referaty.sk – Všetko čo študent potrebuje
Emília
Utorok, 24. novembra 2020
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
 
1. Spúšťame guličku z výšky h. Gulička sa po dopade odráža do výšky 70% z predchádzajúcej výšky až dovtedy, kým jej výška nie je menšia ako 1.
program gulicka;
uses crt;
var h:real;
n: integer;
begin
clrscr;
writeln ('Zadaj povodnu vysku gulicky');
read (h);
if h>0 then writeln ('cislo je kladne');
if hn (t,’c:bp|bin|praca2.txt’);
reset (u);
repeat read (u,c);
if eoln (u) then n:=n+1;
write (c);
until eof (u);
close (u);
reset (u);
rewrite (t);
repeat
read (u,c);
if (ord (c) 65) and (ord (c)96) and (ord (c)= 97) and (ord(riadok[i]) 122 then riadok[i]:=char(ord(riadok[i])+posun-26)
else riadok[i]:=char(ord(riadok[i])+posun);
end;
end;
writeln(riadok);
end;
close(f1);
readln
end.
 
   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.