Skocz do zawartości


Zdjęcie

zadanie Pascal Turbo


  • Zaloguj się, aby dodać odpowiedź
2 odpowiedzi w tym temacie

#1 alutka3

alutka3

    Nowy

  • 1 postów

Napisano 15 06 2012 - 13:32

Witam
Mam problem ze skompilowaniem programu dla ubezpieczyciela pojazdów.
Program na podstawie ceny pojazdu znizek i zwyzek ma obliczyc skłądke OC
I wygląda on tak:

uses crt;
VAR
wartosc,podstawa:integer;
plec,zamieszkanie,zawod,wiek,jazda:string;

Begin
clrscr;
writeln('Podaj wartosc twojego pojazdu (pln)');
readln(wartosc);
writeln('Czy mieszkasz na wsi (t/n)');
readln(zamieszkanie);
writeln('Czy jestes kobieta (t/n)?');
readln(plec);
writeln('Czy pracujesz (t/n)');
readln(zawod);
writeln('Czy miales stluczke w ostatnim czasie (t/n)?');
readln(jazda);
writeln('Ile masz lat');
readln(wiek);
podstawa:=wartosc*0,01;

IF(zamieszkanie='t') THEN
Begin
znizka1:=podstawa-0,05;
End;
IF(plec='t') THEN
Begin
znizka2:=podstawa-0,05;
End;
IF(zawod='t') THEN
Begin
znizka3:=podstawa-0,05;
End;
IF(jazda='n') THEN
BEGIN
znizka4:=podstawa-0,1;
End;
IF(jazda='t') THEN
Begin
zwyzka1:=podstawa+0,1;
End;
IF(wiek<=25) THEN
Begin
zwyzka2:=podstawa+0,05;
End;
wysokosc skladki:=(podstawa-znizka1-znizka2-znizka3-znizka4)+zwyzka1+zwyzka2
writeln('Wysokosc skladki dla ciebie to', wysokosc skladki:2:2, zl);
end;
END.

Ja nie widze żadnego błedu ale podczas kompilowania ich pokolei troche wyskakuje.
Dokładnie wyskakuje błąd przy przecinku : podstawa:=wartosc*0,01;
Wiecie może czemu i jak to poprawić?
Z góry dziękuje za pomoc

  • 0

#2 MarcoMarc

MarcoMarc

    Początkujący

  • 109 postów

Napisano 26 06 2012 - 11:58

w pascalu nie piszę ale na pierwszy rzut oka widać, że nie masz zadeklarowanej zmiennej
wysokosc skladki
pozatym zmiennie nie robi się ze spacjami ;)

  • 0

#3 w0jtek

w0jtek

    Obserwator

  • 6 postów

Napisano 27 06 2012 - 12:01

Dokładnie wyskakuje błąd przy przecinku : podstawa:=wartosc*0,01;


Bo zapewne ma być kropka a nie przecinek ;)

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal program ubezpieczenie pojazdów



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych