Grupa A.

Zadanie 1) Proszę napisać funkcję, która na ekranie wyświetla liczby od 1 do 15112

Function wypisz_liczby(l1,l2: Integer);

Var i: Integer;

Begin

For i:=l1 To l2 Do

WriteLn(i);

End;

a w programie uruchamiamy funkcję poleceniem wypisz_liczby(1,15112);

lub wersja inna

Function wypisz_liczby;

Var i:Integer;

Begin

For i:=1 To 15112 Do

WriteLn(i);

End;

Zadanie 2) schemat blokowy

Z tego schematu wynika, ze zmiennej A[i,j] należy przypisac wartość 2 dla „i” przyjmujacego co druga wartosc z zakresu od 1 do N (tylko nieparzyste) i dla „j” przyjmującego wszystkie kolejne wartości z zakresu od 1 do N. Jeśli wyobrazimy sobie, ze ta zmienna A to jest macierz kwadratowa NxN, to ten program ma w co drugim wierszu we wszystkich kolumnach wstawic liczbe 2.

For i:=1 To N Do

If i Mod 2 <> 0 Then

For j:=1 To N Do

A[i,j]:=2;

lub wersja inna

For i:=1 To N Do

Begin

If i Mod 2 = 0 Then

Continue;

For j:=1 To N Do

A[i,j]:=2;

End;

lub wersja inna

i:=1;

Repeat

j:=1;

Repeat

A[i,j]:=2;

j:=j+1;

Until j>N;

i:=i+2;

Until i>N;

Zadanie 3) Plik tekstowy “dane.txt” zawiera wykaz numerów punktów geodezyjnych i ich wysokości. Napisać program, który na ekranie monitora wyświetla dane tego punktu, którego wysokość jest największa.

Program wysokości;

Var

f:Text;

maxH,h:Real;

maxNr, nr:Word;

BEGIN

maxH:=-99999;

Assign(f,'dane.txt');

Reset(f);

While Not SeekEoF(f) Do

Begin

ReadLn(f,nr,h);

If h>maxH Then

Begin

maxH:=h;

maxNr:=nr;

End;

End;

Close(f);

Writeln(`Najwyzszy punkt to `,maxNr,' jego wysokość wynosi `,maxH:0:2);

END.

---