referaty.sk – Všetko čo študent potrebuje
Ladislav, Ladislava
Pondelok, 27. 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
 
24. Vytvorte program na nakreslenie štvorca alebo obdĺžnika zo znaku *. Dĺžka strán sa zadá na vstupe, pričom treba dodržať maximálnu veľkosť ktorejkoľvek strany 20. Ponúkne sa možnosť kresliť útvar prázdny alebo vyplnený hviezdičkami.
program stvorec;
uses crt;
var utvar,vypln:integer;
a,b,i,j:integer;
begin
clrscr;
writeln('1 - stvorec');
writeln('2 - obdlznik');
readln(utvar);
if (utvar=1) then
begin
repeat
write('Zadaj rozmer stvorca: '); readln(a); b:=a;
until ab) then
a:=a-b;
if (b>a) then
b:=b-a;
until (a mod b=0) or (b mod a=0) ;
if a>=b then
writeln(b);
if b>a then
writeln(a);
readln
end.
 
späť späť   2  |  3  |  4  |   5  |  6    ď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.