Pascal - prosty program


(Peter 88) #1

Ludzie pomóżcie mi. Dlaczego ten program się nie kompiluje?

Uwaga: Jak wklejasz kod to obejmuj go znacznikiem (tagiem) CODE lub QUOTE

Pozdrawiam Gutek2222


(Cina Ms) #2
pole1:=6*a*al;

nie ma zmiennej al - powinno być:

pole1:=6*(a*a);

poza tym są błędy w składni... "readln" pobiera dane z klawiatury wiec

pole2:=3.14*r*r+3.12*r*l; 

readln (pole2)

jest trochę bez sensu bo najpierw zmiennej pole2 przypisujesz jakas wartosc, a nastepnie zamieniasz to na wartosc wpisana z klawiatury. według mnie powinno być tak:

program xxx; 

uses crt; 

var 

i,a,r,l: real; 

pole1, pole2, pole3: real; 

begin 

writeln ('Wprowadz liczbe i'); 

readln (i); 

if i=1 then 

	begin 

	writeln('Podaj dlugosc boku szescianu a'); 

	readln (a); 

	pole1:=6*(a*a); 

	writeln ('Pole całkowite szescianu wynosi: ',pole1:2:2); 

	end 

else 

if i=2 then 

	begin 

	writeln ('Podaj promien r i tworzaca stozka l'); 

	read (r); read (l); 

	pole2:=(3.14*(r*r))+(3.14*r*l); 

	writeln ('Pole calkowite stozka wydnosi: ',pole2:2:2); 

	end 

else 

if i=3 then 

	begin 

	writeln ('Podaj promien kuli r'); 

	readln (r); 

	pole3:=4*3.14*(r*r); 

	writeln ('Pole calkowite kuli wynosi: ',pole3:2:2); 

	end 

else 

if i>3 then 

writeln ('Liczba i równa sie: ',i:2:2); 

readln; 

end.

(Peter 88) #3

Zaczynam dopiero się uczyć programować..

Wielkie dzięki, że mnie poprawiłeś.. potrzebne mi to do szkoły.

Uruchamia Ci się ten program?

Ja to probuowalem odpalic w Turbo Deplhi (napisałem to na zwykłej kartce) i zamiast:

program xxx;

uses crt;

var

i,a,r,l: real;

..

wpisuję

unit Unit1;

interface

implementation

var

i,a,r,l: real;

...

Noi nadal się kompiluje, uruchamia się w konsoli ale od razu szybko automatycznie wyłącza.

na końcu programu jest readln - nie powinno się wyłączać ale niestety nie wiem dlaczego.. :expressionless:

Złączono Posta : 24.04.2007 (Wto) 21:19

Czy może czegoś nie mam skonfigurowanego w Turbo Deplhi (jest to wersja 10) ?


(Cina Ms) #4

tzn no ja to kompilowałem we Free Pascalu i się normalnie uruchamia.

tylko nie rozumiem czemu masz kompilować to w Turbo Delphi a nie w Pascalu...


(mktos) #5

W Turbo Delphi aby się tym bawić musisz stworzyć aplikację konsolową. File -> New Project -> Console application, bo normalnie te Unit1 i tak dalej to kawąłki obiektowości.

A modułu crt w TD nie użyjesz, bo go tam nie ma.


(Monczkin) #6

Peter-88 byleś proszony o coś