Question

Napisz 3 proste programy w Pascalu np na pole i obwod kwadratu, prostokata itd. PROOOSZE!!

Answer 1

NA POLE KWADRATU:
program kwadrat;
uses crt;
var
a: real;
begin
clrscr;
writeln (‘Podaj długość boku kwadratu’);
readln (a);
writeln (‘Pole kwadratu wynosi ‘,a*a:10:2);
readkey;
end.

OBWÓD
program kwadrat;
uses crt;
var
a, b, O: integer;
begin
clrscr;
writeln (‘Podaj długości boków kwadratu’);
readln (a,b);
O := a*a ;
writeln (‘Obwód = ‘, O);
readkey;
end.

JAKOS TAK nIE PAMIETAM JAK TO BYLO ALE MYSLE ZE TAK :P

Answer 2

To jest na takiego Matrixa...

Program Matrix;UsesCrt;
Begin
ClrScr;
Writeln('Program Matrix - nacisnij Enter');
Readln;
TextBackground(black);
TextColor(green);
Repeat
Begin
Write(' .....'); (w miejsc tych kropek wpisz 4 liczby lub cyfry oddzielone spacją)
End;
Until Keypressed
End.