Question

(w pascalu)proszę o napisanie całego programu.

1.zamień istniejący program- zastosuj procedute z parametrem ma dane zdanie wywołać 4 razy.

begin

writeln('oto test');

writeln('oto test');

writeln('oto test');

writeln('oto test');

readln;

end.

zadanie 2

i tu też prosze o napisanie całego programu.

zamień istniejący program zastosuj funkcję ma obliczać pole kwadratu.

var pole:integer;

begin

writeln('podaj bok a=');

pole=a*a;

writeln('pole kwadratu wynosi',pole);

readln;

end.

Answer 1

1.

program jeden;
uses crt;
var i,n:integer;

procedure wypisz(n:integer);
begin
for i:=1 to n do
begin
writeln('oto test');
end;
end;

begin
clrscr;
wypisz(4);
readln;
end.

 

2.

program pole_kwadratu;
uses crt;
var a,pole:integer;

function pole_kwadrat(a:integer):integer;
begin
pole:=a*a;
writeln('Pole kwadratu wynosi ',pole,'.');
end;

begin
clrscr;
writeln('Podaj bok a: ');
readln(a);
pole_kwadrat(a);
readln;
end.