referaty.sk – Všetko čo študent potrebuje
Miloslav
Nedeľa, 3. júla 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
 
20. Na vstupe je rad znakov ukončený bodkou (veta)
program vety;
uses crt;
var veta:string;
i: integer;
begin
clrscr;
writeln('Zadaj vetu : ');
readln(veta);
writeln('Veta vyzera takto : ',veta);
writeln('Veta je dlha : ',( length(veta)-1));
for i := 1 to Length(veta) do
begin
if (ord(veta[i])>= 65) and (ord(veta[i]) ='5'then inc (dievcata)else inc (chlapci);

end;
writeln ('chlapcov je: ',chlapci);
writeln ('dievcat je: ',dievcata);
write ('hladany mesiac');
readln (hladMesiac);
for i:=1 to pocetziakov do begin
val(copy(trieda[i].rodnecislo,3,2),mesiac,Chyba);
if Chyba=0 then begin
if mesiac>50 then mesiac := mesiac - 50;
if mesiac = hladMesiac then
writeln('Meno: ',trieda[i].meno,' Priezvisko: ',trieda[i].priezvisko,' Rodne cislo: ',trieda[i].rodnecislo);
end;
end;
readkey;
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.