referaty.sk – Všetko čo študent potrebuje
Beáta
Utorok, 28. júna 2022
Vypracované programy v pascale
Dátum pridania: 27.10.2005 Oznámkuj: 12345
Autor referátu: eja
 
Jazyk: Slovenčina Počet slov: 650
Referát vhodný pre: Základná škola Počet A4: 2.2
Priemerná známka: 2.96 Rýchle čítanie: 3m 40s
Pomalé čítanie: 5m 30s
 
12. Urobte program na výpočet n – tej mocniny čísla „a“
program mocnina;
uses crt;
var n,b:Integer;
a,v:Real;
begin
clrscr;
v:=1;
writeln ('Zadaj a');
read (a);
writeln ('Zadaj mocninu n');
read (n);
if n>0 then writeln ('mocnina n je kladna');
if n0 then writeln ('cislo je kladne');
if amaximum) then maximum:=cisla[i];
end;
writeln;
writeln('Maximum je : ' , maximum);

readln
end.
 
späť späť   1  |   2  |  3  |  4  |  5  |  ďalej ďalej
 
Copyright © 1999-2019 News and Media Holding, a.s.
Všetky práva vyhradené. Publikovanie alebo šírenie obsahu je zakázané bez predchádzajúceho súhlasu.