Program prostokąt;
uses crt;
var: a,b,p: integer;
procedure Pole;
begin
writeln ('podaj 2 liczby');
readln (a,b);
P:=a*b;
End;
begin
pole;
writeln(p);
readln
end.
Program trójkąt
uses crt;
Var
a: array (1...4) of integer;
Procedure obwód;
begin
a (4);
a(1)+a(2)+a(3);
end;
begin
writeln ('podaj 3 liczby');
readln(a(1),a(2),a(3));
obwód;
writeln (a(4));
readln;
end.
Nie wiem czy to jest dobrze bo ja to dostałam i tylko przekazuje dalej...
Ostatnio edytowany przez __kasia_2 (2011-02-23 19:50:11)
Offline
Użytkownik
Nooo ja to zaraz sprawdzę, i naniosę ewentualne zmiany, bo mi sie wydaje ze to nie jest dobrze.
1. jest źle, nie mogę odpalić, na początku znalazło mi jakieś błędy, potem wcale nie znajdowało błędu ale nie mogłem odpalic. -.-'
Ostatnio edytowany przez Orgazmodawca (2011-02-24 15:44:25)
Offline
Ten drugi jest źle
Program trójkąt
uses crt;
Var
a: array [1...4] of integer;
Procedure obwód;
begin
a [4]:=a[1]+a[2]+a[3];
end;
begin
writeln ('podaj 3 liczby');
readln(a[1],a[2],a[3]);
obwód;
writeln (a[4]);
readln;
end.
teraz powinno być dobrze
Offline