Ludzie pomóżcie mi. Dlaczego ten program się nie kompiluje?
Uwaga: Jak wklejasz kod to obejmuj go znacznikiem (tagiem) CODE lub QUOTE
Pozdrawiam Gutek2222
Ludzie pomóżcie mi. Dlaczego ten program się nie kompiluje?
Uwaga: Jak wklejasz kod to obejmuj go znacznikiem (tagiem) CODE lub QUOTE
Pozdrawiam Gutek2222
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.
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…
Złączono Posta : 24.04.2007 (Wto) 21:19
Czy może czegoś nie mam skonfigurowanego w Turbo Deplhi (jest to wersja 10) ?
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…
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.
Peter-88 byleś proszony o coś