Odpowiedzi

2009-11-02T20:08:50+01:00
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
2009-11-02T21:02:29+01:00
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.