Pascal

[Kruczeq]

Witam wszystkim mam do was pro?b?, ot?? tak? ?eby kto? mi napisa? program licz?cy pole prostok?ta i ?eby nie by?o ?adnych b??d?w w nim(kodzie). Patrzy?em na google ale mn?stwo b??d?w jest prosz? bardzo.

 

[Norbert]

Odp: Pascal

function pole_prostokata(a,b:integer):integer;
begin
result:=a*b;
end;

Trzymaj funkcje.

Stosuje si? j? np tak:

showmessage(inttostr(pole_prostokata(12,10)));

ofc po wcze?niejszej implementacji potrzebnych modu??w ;d

 

[Kruczeq]

Odp: Pascal

Fajnie mam ju? kod, ale nie wiem czy on jest z?y czy ja ?le napisa?em oto on :

Program poleprostokata;

Uses Crt;

Var
a,b,P : Real; { dane liczby }
temp: char;

procedure wprowadzDane;
begin
WriteLn('Program obliczajcy pole prostok?ta');
WriteLn;
Write('Podaj bok a = ');
ReadLn(a);
Write('Podaj bok b = ');
ReadLn(b);
end;



procedure rozwiazanie;
begin
P:=a*b;
Writeln ('P=',10:3);

end;


Begin
ClrScr;
repeat
wprowadzDane;
WriteLn;
rozwiazanie;
WriteLn;
WriteLn('Kontynuowac [T/N]?');
readln(temp);
until ((temp = 'N') or (temp = 'n'));
End.

A b??d wyskakuje mi taki:
Error 36: BEGIN expected


#Karol98
Wszystkie begin mam z ma?ej litery..; |

 

[karol98]

Odp: Pascal

"Begin" napisane z du?ej litery??

To raczej nie jest b??d ale sprawdzi? nie zaszkodzi

 

[Kruczeq]

Odp: Pascal

A powie mi kto? jeszcze jaka jest funkcja na obliczanie wieku tzn. o to mi chodzi, ?e jak napisz?, ?e urodzi?em si? w 1994 roku to ma mi obliczy? ile mam lat. Prosz? o szybk? pomoc

#Dragonas
Nie dzia?a bo ju? zauwa?y?em b??dy. A z reszt? ju? mi nie potrzebny kolega mi pom?g? tylko teraz potrzebuj? takiej funkcji jak napisa?em powy?ej. =)
#Kamil
Wczoraj ju? to mia?em bo mia?em mie? to na dzisiaj na drug? lekcj?, ale teraz potrzebuj? tej funkcji.

 

[Dragonas]

Odp: Pascal

USES crt;
var a,b,c,d: real;
var aa: integer;
BEGIN
writeln ('1)Obliczanie obwodu prostok?ta ');
writeln ('2)Obliczanie pola prostok?ta ');
readln(aa);
clrscr;
CASE aa OF
1:BEGIN
writeln ('Podaj d?ugo?c boku a ');
readln(a);
writeln ('Podaj d?ugo?c boku b ');
readln(b);
writeln ('Obw?d prostok?ta wynosi ',a*2+b*2:2:2);
readln;
end;
2:BEGIN
writeln ('Podaj d?ugo?c a ');
readln(c);
writeln ('Podaj d?ugo?c b ');
readln(d);
writeln ('Pole prostok?ta wynosi ',c*d:2:2);
readln;
end;
end;
end.

Spr?buj to, nie testowa?em, ale powinno dzia?a?, Pozdro

 

[Kamil]

Odp: Pascal

Dragonas tw?j kod jest prawid?owy. Trzeba tylko z przodu pami?ta? o:

program nazwa;

no i wszystko pi?knie tyle ?e tam jeszcze obw?d jest, ale od przybytku g?owa nie boli.

 

[Bobise]

Odp: Pascal

A powie mi kto? jeszcze jaka jest funkcja na obliczanie wieku tzn. o to mi chodzi, ?e jak napisz?, ?e urodzi?em si? w 1994 roku to ma mi obliczy? ile mam lat.

Dwie zmienne, aktualny rok i rok urodzenia. Pierw pytasz, jaki jest rok, nast?pnie o rok urodzenia, odejmujesz tera?niejszy, od roku urodzenia i masz wiek. Je?eli chc? Ci si? pobawi?, to mo?esz te? wprowadzi? inne zmienne, odpowiadaj?ce za miesi?ce(tera?niejszy, przesz?y) i dni...

 

[Kruczeq]

Odp: Pascal

Dwie zmienne, aktualny rok i rok urodzenia. Pierw pytasz, jaki jest rok, nast?pnie o rok urodzenia, odejmujesz tera?niejszy, od roku urodzenia i masz wiek. Je?eli chc? Ci si? pobawi?, to mo?esz te? wprowadzi? inne zmienne, odpowiadaj?ce za miesi?ce(tera?niejszy, przesz?y) i dni...

A m?g?by? mi napisa? taki kod?; >