programowanie w pascalu

[Swat]

NIe wiedziałem gdzie temat wcisnąć to upcham go tu

Więc tak , pisze na jutrzejszą infe programik i mam 1 błąd i nie wiem czego sie uczepić w kodzie bo nie widze zadnych braków ; czy innych "dupereli " moze wy coś znajdziecie :

Kod: Zaznacz wszystko


program  benzynka;

var
spalanie, koszt, km, cena:real;
begin
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|                                                             |');
writeln ('|        Witaj na stacji  paliw "Chrzczona benzyna"           |');
writeln ('|                                                             |');
writeln ('|                    ______________                           |');
writeln ('|              _____//___|___|___|_\________                  |');
writeln ('|             |------=---------=---l---------\                |');
writeln ('|            *---(©)---------------------(©)-|*               |');
writeln ('|                                                             |');
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('Podaj cene benzyny :');
readln (cena);
writeln ('Koszt 1L benzyny ustawiono na  : ',cena:10:2,' zl');
writeln ('');
writeln (' Ile rzlopie twoj samochod ? ');
readln (spalanie);
writeln (' Spalanie : ',spalanie:3:2,' Rzlopie jak czolg (^_^) ');
writeln ('');
writeln (' Ile chcesz przejechac ? ');
readln (km);
writeln (' Zapisano, ze chcesz przejechac : ',km:10:3);
writeln ('');
writeln (' Trwa obliczanie kosztu calkowitego ... prosze czekac ... ');
writeln ('');
koszt:=spalanie/100*cena*km;
writeln ('');
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|KOSZ CALKOWITY PRZEJAZDU : ',koszt:10:3)'                    |');
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('                                             Copyright by SwaT ');
readln
end.




treść błędu
Fatal: Syntax error, ; expected but const string found

jak kliknę


na błąd to mi wskazuje linijkę :

writeln ('|KOSZ CALKOWITY PRZEJAZDU : ',koszt:10:3)' |');

[wojtas]

Więc tak , pisze na jutrzejszą infe programik

wg. regulaminu nie odrabiamy Prac domowych pozdrawiam

[bramkarz91_91]

DOKŁADNIE

EOT

[Precel]

spokojnie panowie on che tylko znaleźć blad nic wiecej bo zadanko odrobil

[Lukesh]

bramkarz91_91 - nie powtarzaj jak jakas papuga, po prostu zamknij jak cos, bo nie sadze, zeby koniecznym bylo podkreslenie, ze to akurat Ty zrobiles

Otwieram, wyluzujcie ...

[kajtekjr]

Kod: Zaznacz wszystko

program  benzynka;

var
spalanie, koszt, km, cena:real;
begin
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|                                                             |');
writeln ('|        Witaj na stacji  paliw "Chrzczona benzyna"           |');
writeln ('|                                                             |');
writeln ('|                    ______________                           |');
writeln ('|              _____//___|___|___|_\________                  |');
writeln ('|             |------=---------=---l---------\                |');
writeln ('|            *---(©)---------------------(©)-|*               |');
writeln ('|                                                             |');
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('Podaj cene benzyny :');
readln (cena);
writeln ('Koszt 1L benzyny ustawiono na  : ',cena:10:2,' zl');
writeln ('');
writeln (' Ile rzlopie twoj samochod ? ');
readln (spalanie);
writeln (' Spalanie : ',spalanie:3:2,' Rzlopie jak czolg (^_^) ');
writeln ('');
writeln (' Ile chcesz przejechac ? ');
readln (km);
writeln (' Zapisano, ze chcesz przejechac : ',km:10:3);
writeln ('');
writeln (' Trwa obliczanie kosztu calkowitego ... prosze czekac ... ');
writeln ('');
koszt:=spalanie/100*cena*km;
writeln ('');
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|KOSZ CALKOWITY PRZEJAZDU: ',koszt:10:3);
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('                                             Copyright by SwaT ');
readln
end.

Ta wersja działa Trzeba było poprawic linijke

Kod: Zaznacz wszystko

writeln ('|KOSZ CALKOWITY PRZEJAZDU : ',koszt:10:3)'                    |');

na

Kod: Zaznacz wszystko

writeln ('|KOSZ CALKOWITY PRZEJAZDU: ',koszt:10:3);

bo po nawiasie musi byc znak ;

A zeby dokonczyc tabelke musisz uzyc komendy

Kod: Zaznacz wszystko

gotoXY(x,y)

i przeniesc sie w miejsce gdzie brakuje tabelki

[Swat]

tabelek jeszcze na programowaniu nie miałem , dopiero 1 Ti jestem i sie ucze

[kajtekjr]

Łap kompletny kod

Kod: Zaznacz wszystko

program  benzynka;
uses crt;

var
spalanie, koszt, km, cena:real;
begin
clrscr;
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|                                                             |');
writeln ('|        Witaj na stacji  paliw "Chrzczona benzyna"           |');
writeln ('|                                                             |');
writeln ('|                    ______________                           |');
writeln ('|              _____//___|___|___|_\________                  |');
writeln ('|             |------=---------=---l---------\                |');
writeln ('|            *---(©)---------------------(©)-|*               |');
writeln ('|                                                             |');
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('Podaj cene benzyny :');
readln (cena);
writeln ('Koszt 1L benzyny ustawiono na  : ',cena:10:2,' zl');
writeln ('');
writeln (' Ile rzlopie twoj samochod ? ');
readln (spalanie);
writeln (' Spalanie : ',spalanie:3:2,' Rzlopie jak czolg (^_^) ');
writeln ('');
writeln (' Ile chcesz przejechac ? ');
readln (km);
writeln (' Zapisano, ze chcesz przejechac : ',km:10:3);
writeln ('');
writeln (' Trwa obliczanie kosztu calkowitego ... prosze czekac ... ');
writeln ('');
koszt:=spalanie/100*cena*km;
writeln ('');
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|KOSZ CALKOWITY PRZEJAZDU: ',koszt:10:3);
gotoXY(63,24);
writeln ('|');
gotoXY(1,25);
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
writeln ('                                             Copyright by SwaT ');
readln
end.

tabelek jeszcze na programowaniu nie miałem , dopiero 1 Ti jestem i sie ucze

Ja jestem w 2 i zaczalem C++ - masakra :|

[Swat]

i dzięki za pomoc, działa jak należy ^^

[kajtekjr]

Swat looknij ta wersje

Kod: Zaznacz wszystko

program  benzynka;
uses crt;
var
koszt, km:real;
cena,spalanie:real;
begin
clrscr;
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
writeln ('|                                                             |');
writeln ('|        Witaj na stacji  paliw "Chrzczona benzyna"           |');
writeln ('|                                                             |');
writeln ('|                    ______________                           |');
writeln ('|              _____//___|___|___|_\________                  |');
writeln ('|             |------=---------=---l---------\                |');
writeln ('|            *---(©)---------------------(©)-|*               |');
writeln ('|                                                             |');
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
textcolor(green);
writeln ('Podaj cene benzyny :');
readln (cena);
writeln ('Koszt 1L benzyny ustawiono na: ',cena:10:2,' zl');
writeln ('');
textcolor(white);
writeln (' Ile rzlopie twoj samochod ? ');
readln (spalanie);
writeln (' Spalanie : ',spalanie:3:2,' Rzlopie jak czolg (^_^) ');
writeln ('');
textcolor(blue);
writeln (' Ile chcesz przejechac ? ');
readln (km);
writeln (' Zapisano, ze chcesz przejechac : ',km:10:3);
writeln ('');
textcolor(red);
writeln (' Trwa obliczanie kosztu calkowitego ... prosze czekac ... ');
writeln ('');
koszt:=spalanie/100*cena*km;
writeln ('');
textcolor(yellow);
writeln (' _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ');
textcolor(yellow);
write('|');
textcolor(green);
write ('            KOSZ CALKOWITY PRZEJAZDU: ');
textcolor(red);
write(koszt:10:3);
textcolor(yellow);
writeln ('             |');
textcolor(yellow);
writeln ('|_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _|');
writeln ('');
textcolor(white);
writeln ('                                             Copyright by SwaT ');
readln
end.

Pozdrawiam

[Swat]

oo kolorki // własnie na necie nie mogłem znaleźć jak pokolorowac

[kajtekjr]

Swat przerób na kolorki ta wersje z gotoXY bedzie 5 murowane
A to z kolorkami robił moj kumpel i dlatego bez gotoXY ;P

[Mike]

i zaczalem C++ - masakra :|

C/C++ jest ok, ale Pascal jest ****** bleeeeeee - chyba nie ma głupszego języka...

[Swat]

wkońcu jakiś język pierwszy musiał byc ^^

[kajtekjr]

C/C++ jest ok, ale Pascal jest ****** bleeeeeee - chyba nie ma głupszego języka...

Jak narazie poznałem (heh to za duzo powiedziane) Turbo pascala a C++ mam dopiero od poczatku wrzesnia.. Moze pozniej zmienie stosunek do tego jezyka