Forum programistyczne

Języki programowania => Inne języki programowania => Wątek zaczęty przez: eviloone Listopad 26, 2008, 18:14:22



Tytuł: Pascal - 2 miniprogramy
Wiadomość wysłana przez: eviloone Listopad 26, 2008, 18:14:22
Mam 2 zadania, przydalaby sie pomoc, leze w tej kwestii :P

Napisz program, który rysuje szachownice o podanych wymiarach ze znakow: 0,1. Wykorzystaj procedure.


Napisz program do obliczania pola prostokata o zadanych długościach boków. Wykorzystaj funkcje.


Z gory dzieki.


Tytuł: Odp: Pascal - 2 miniprogramy
Wiadomość wysłana przez: Shadow Grudzień 27, 2008, 12:19:15
Jakbyś podał dobry adres @ to byś już kilka dni temu miał zadanko.

Napisz program do obliczania pola prostokata o zadanych długościach boków. Wykorzystaj funkcje.


program pole_kwadratu;
uses crt;
var
a,b,wynik: integer;

function prostokat(a,b: integer):byte;
begin
clrscr;
prostokat:=(2*a)+(2*b);
end;

begin
writeln('Program oblicza pole prostokĄta');
writeln;
delay(200);
write('Podaj bok a: ');
delay(100);
read(a);
delay(200);
write('Podaj bok b: ');
delay(100);
readln(b);
wynik:=prostokat(a,b);
delay(400);
writeln('Pole prostokĄta o bokach: ',a,',',b,' wynosi:  ',wynik);
readln;
end.


Może być?
Jak coś to pisz.


Tytuł: Odp: Pascal - 2 miniprogramy
Wiadomość wysłana przez: Shadow Grudzień 27, 2008, 12:31:13
Napisz program, który rysuje szachownice o podanych wymiarach ze znakow: 0,1. Wykorzystaj procedure.

Napisałeś coś odnośnie tego programu?
Jak tak to wrzucaj, jak nie to powiedz czego nie rozumiesz.