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
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.
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
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.
Nie wiem czy czysty Pascal to łyknie ale wydaje mi się że powinien:
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.
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.