Panel użytkownika
Nazwa użytkownika:
Hasło:
Nie masz jeszcze konta?

Turbo pascal pomoc

Ostatnio zmodyfikowano 2012-05-28 17:24
Autor Wiadomość
zolax
Temat założony przez niniejszego użytkownika
Turbo pascal pomoc
» 2012-05-28 16:14:58
Witam dostałem zadanie domowe oto jego treść:
Jest plik dane2.txt w kolejnych linikjkach dane są wartosci:
1 - nazwa figury (walec, prostopadloscian, stozek)
2,3... - wartosci
program w zaleznosci od wartosci pierwszej linijki liczy pole i objetosc podanej figury


Program zadanie_domowe;


var

plik: text;
a, b, c: integer;
w, v: integer;
s: string;

begin
    Assign(plik, 'Z:\dane2.txt');
    Reset(plik);
    ReadLn(plik, s);
    WriteLn(s);
    ReadLn(plik, a);
    WriteLn(a);
    ReadLn(plik, b);
    WriteLn(b);
    ReadLn(plik, c);
    WriteLn(c);

    WriteLn('Wybierz figure: walec, prostopadloscian, stozek');
    ReadLn(s);
    if (s = 'prostopadloscian') then
       begin
         w := (2*a*b) + (2*a*c) + (2*b*c);
         v := a*b*c;
         WriteLn('Pole prostopadloscianu = ', w, ' Objetosc = ', v);
       end;
    if (s = 'walec') then
       begin
         w := (2*Pi*(a*a))+(2*PI*a*b);
         v := Pi*(a*a) * b;
         WriteLn('Pole walca = ', w, 'Objetosc = ', v);
       end;
    if (s = 'stozek') then
       begin
         w := Pi*a*(a*c);
         v := 1/3*PI*(a*a)*b;
         WriteLn('Pole stozka = ', w, 'Objetosc = ', v);
       end;
    Close(plik);
    ReadLn;
end.

Mam problem bo gdy chcę skompilować wskakują mi następujące błędy:


33 / 27 untitl~1.pas
 Error: Incompatible types: got "S80REAL" expected "LONGINT"
34 / 24 untitl~1.pas
 Error: Incompatible types: got "S80REAL" expected "LONGINT"
39 / 19 untitl~1.pas
 Error: Incompatible types: got "S80REAL" expected "LONGINT"
40 / 27 untitl~1.pas
 Error: Incompatible types: got "S80REAL" expected "LONGINT"


Proszę was o pomoc.
P-57387
m4tx
» 2012-05-28 17:05:39
Nie znam się za bardzo na Pascalu, ale zapewne chodzi o to, że PI to liczba zmiennoprzecinkowa, a ty jej nie castujesz do LONGINT.
P-57394
zolax
Temat założony przez niniejszego użytkownika
» 2012-05-28 17:08:28
Tak tylko jak próbuję np. dać v iw jako longint to błąd jest nadal ten sam.
P-57395
m4tx
» 2012-05-28 17:10:08
Fajnie, tylko że ja napisałem o PI, a nie o v.

Btw., 1000. post! :)

EDIT:
Albo może raczej to dlatego, że w to jest integer, a ty próbujesz przypisać do niego liczbę zmiennoprzecinkową.
P-57396
zolax
Temat założony przez niniejszego użytkownika
» 2012-05-28 17:24:03
Dałem zmienną real i działa poprawnie dzięki za pomoc. Temat można zamknąć.
P-57399
« 1 »
  Strona 1 z 1