1) Vytvorte dve zadania k vytvoreniu programov v jazyku Pascal na Vami zvolenú problematiku. Minimálne jeden príklad bude obsahovať kontrolu zadaných údajov a jeden príklad bude riešiť prácu s poľom. K zadaniu vytvorte aj správne riešenie.
2) Úloha: Z konštantného poľa načítajte N celých čísel . Zostavte program, ktorý určí a vytlačí prvé dve najväčšie čísla a ich umiestnenie.
3) Príklad zakreslite pomocou vývojového diagramu.
1) neviem ci to mam dobre poradte my pls:
Kód: Vybrať všetko
program PostupnostCisel;
uses crt;
var
Pole : Array [0..10000] of integer;
number : integer;
index : integer;
max_number : integer;
min_number : integer;
begin
clrscr;
index := 0;
writeln('Urci najmensie, najvacsie cislo zo zadanej postupnosti (0-koniec).');
writeln('------------------------------------------------------------------');
Repeat
write('Zadaj cislo: ');
readln(number);
Pole[index] := number;
index := index + 1;
Until number = 0;
index := 0;
max_number := Pole[index];
Repeat
IF Pole[index] > max_number THEN
begin
max_number := Pole[index];
end;
index := index + 1;
Until Pole[index] = 0;
writeln('Najvacsie cislo je : ',max_number);
index := 0;
min_number := Pole[index];
Repeat
IF Pole[index] < min_number THEN
begin
min_number := Pole[index];
end;
index := index + 1;
Until Pole[index] = 0;
writeln('Najmensie cislo je : ',min_number);
readln;
end.Kód: Vybrať všetko
program cele_cisla;
var a,b:integer;
i:integer;
begin
WriteLn('Vypisem vsetky cele cisla od a po b.');
Write('Zadaj cele cislo a=');
ReadLn(a);
Write('Zadaj cele cislo b=');
ReadLn(b);
WriteLn('Poradie celych cisel je:');
if(a<b)then begin
for i:=a to b do
WriteLn(i);
end
else begin
for i:=a downto b do
WriteLn(i);
end;
WriteLn('Koniec');
ReadLn;
end.vopred dakujem
