Question

Turbo pascal!
1. Napisz program obliczający pole całkowite i objętość prstopadloscianu o podstawie kwadratu.
2. Napisz program, który oblicza koszt przejazdu x km jeżeli wiadomo, że samochód spala 0,5 litra na 100km, a litr paliwa kosztuje 5,60zł. Program ma wczytać podana przez użytkownika ilość przejechanych kilometrów, a zwrócić koszt przejazdu. PROSZĘ O POMOC!

Answer 1

Jesli chodzi o pierwsze - tutaj kawalek kodu napisany na telefonie i niesprawdzany:

program HelloWorld;

var
podstawa : double;
wysokosc : double;

begin
WriteLn('Program obliczajacy pole i objętość prostopadłościanu!');

repeat
Write('Podaj długość podstawy kwadratu: ');
Readln(podstawa);
if (podstawa < 0) then
Write('Długość podstawy nie może być mniejsza od 0.');
until podstawa < 0;

repeat
Write('Podaj wysokość prostopadłościanu: ');
Readln(wysokosc);
if (wysokosc < 0) then
Write('Wysokosc nie może być mniejsza od 0.');
until wysokosc <= 0;

Write('Pole całkowite: ', podstawa*podstawa*2+podstawa*wysokosc*4);
Write('Objętość: ', podstawa*podstawa*wysokosc);
end.