1.Podac przyklad deklaracji tablicy (w Turbo Pascalu albo w QBasicu), ktorej elementy sa zastosowane w prezentowanej instrukcji

for k=1 to 20
print"nr,x,y,k",k,"punktu"
input nr(k), xyz(k,1),xyz(k,2),xyz(k,3)
next k

2.Napisac program na pole figury.W programie zastosowac dwa podprogramy(w turbo pascalu)
a)na pole jednego prostokata(o boku a i b)
b)na pole trojkata (wysokosc h i podstawa c)
Dane wczytac z klawiatury

3.Napisac program(w qbasicu albo w TP) ktory wczyta plik ze scieszki a:\dane.txt zawierajacy n-roznych liczb. Posortuje je rosnaca i zapisze je w scieszce a:\wyniki.txt.Posortowany zbior dopisac do pliku z danymi.

dziekuje

no to se pascala przypomnialem;] w pierwszym nie bardzo wiem o co chodzi, ostatniego nie umiem a to jest 2:

program cos;
uses crt;
var a,b,p:real;


procedure prostokat;
begin
clrscr;
write('podaj dlugosc boku a= '); readln(a);
write('podaj dlugosc boku b= '); readln(b);
p:=a*b;
writeln('pole= ',p:8:2);
readln;
end;


procedure trojkat;
begin
clrscr;
write('podaj dlugosc podstawy '); readln(a);
write('podaj dlugosc wysokosci '); readln(b);
p:=a*b/2;
writeln('pole= ',p:8:2);
readln;
end;


procedure menu; {menu wyboru}
var zn:real; d:string;
begin
clrscr;
writeln('wybierz liczbe przypisana operacji ktora chcesz wykonac');
writeln('1 -oblicz pole kwadratu');
writeln('2 -oblicz pole trojkata');
writeln('3 -wyjdz');
readln(d); val(d,zn);
if zn=1 then prostokat else
if zn=2 then trojkat else
if zn=3 then halt else
end;


begin
repeat menu until false;
end.

jak ci potrzebne zabezpieczenia np na wypadek wpisania litery zamiast liczby to pisz...