Pascal- problem ( prawdopodobnie ) z obliczaniem wyniku.

Pascal- problem ( prawdopodobnie ) z obliczaniem wyniku.
JS
  • Rejestracja:ponad 13 lat
  • Ostatnio:około 13 lat
  • Postów:8
0

Witam!
Jako, że jestem nowy na forum chciałbym wszystkich przywitać!
Dopiero zaczęliśmy w szkole programowanie i mam do napisania swój pierwszy program w języku Pascal.

Treść zadania:
Utwórz program, oraz algorytm obliczający wskaźnik BMI.

Stworzyłem więc program, jednak podczas kompilowania wyświetla mi 2 błędy ( pokazane w załączniku ).

Czy ktoś mógłby mi powiedzieć, na czym polega błąd i czy w ogóle dobrze napisałem program?

Pozdrawiam!
Jakob

edytowany 1x, ostatnio: Jakob_sj
pelsta
Na przyszłość: wklejaj kod ew. jego fragment.
Patryk27
Moderator
  • Rejestracja:ponad 17 lat
  • Ostatnio:prawie 2 lata
  • Lokalizacja:Wrocław
  • Postów:13042
1

Brakło przecinka przed MasaCiala - (Wzrost^2)


Riddle
Administrator
  • Rejestracja:prawie 15 lat
  • Ostatnio:około 11 godzin
  • Lokalizacja:Koszalin
  • Postów:10094
1

Pierwszy błąd mówi o tym że gdzieś nie wstawiłeś nawiasu, a drugi mówi że przez pierwszy błąd nie można skompilować programu.

Kopiuj
Program BMI;
uses crt;
var MasaCiala, Wzrost: Integer;

begin
Writeln('Podaj swoją masę ciała');
Read( MasaCiala );
Clrscr;
Writeln( 'Podaj swój wzrost (w metrach)' );
Read( Wzrost );
Writeln( 'Twój wskaźnik BMI wynosi: ' Masa Ciała - (Wzrost^2));
repeat until keypressed;
end.

WRONG!!

powinno być tak

Kopiuj
Program BMI;
uses crt;
var MasaCiala, Wzrost: Integer;

begin
  Writeln('Podaj swoją masę ciała');
  Readln(MasaCiala);  

  Writeln('Podaj swój wzrost (w metrach)');
  Readln(Wzrost);

  Writeln('Twój wskaźnik BMI wynosi: ', Masa Ciała - (Wzrost^2));
                               ///    /\  przecinek
  Readln();
end.
pelsta
  • Rejestracja:około 19 lat
  • Ostatnio:22 dni
  • Postów:819
1

Writeln('Twój wskaźnik BMI wynosi: ', Masa Ciała - (Wzrost^2));

Do tego kompilator przyczepi się.
A ponadto wzór na BMI jest bez sensu (nie da się policzyć kg-m2)

edytowany 2x, ostatnio: pelsta
KA
  • Rejestracja:prawie 20 lat
  • Ostatnio:mniej niż minuta
  • Lokalizacja:Gorlice
1

Nie wiem czy czysty Pascal to łyknie ale wydaje mi się że powinien:

Kopiuj
program BMI;
var
  masa, wzrost_cm: Integer;
  wsp_bmi, wzrost_m: Real;
begin
  Write('Podaj mase ciala [kg]: ');
  Readln(masa);
  Write('Podaj wzrost [cm]: ');
  Readln(wzrost_cm);
  wzrost_m:= wzrost_cm / 100;
  wsp_bmi:= masa / (wzrost_m * wzrost_m);
  Write('BMI wynosi: ', wsp_bmi:2:2);
  readln;
end.

Nie odpowiadam na PW w sprawie pomocy programistycznej.
Pytania zadawaj na forum, bo:
od tego ono jest ;) | celowo nie zawracasz gitary | przeczyta to więcej osób a więc większe szanse że ktoś pomoże.
JS
  • Rejestracja:ponad 13 lat
  • Ostatnio:około 13 lat
  • Postów:8
0

Panowie, wielkie dzięki za pomoc!

@kAzek, nie miałem jeszcze zmiennych real i przypisania przez ' := ', ale poczytałem trochę i chyba już to ogarniam.

Jeszcze raz wielkie dzięki! :)

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.