| Автор | Паскаль |
|---|
Помогите пожалуйста написать несложную программу в паскале, я в этом совсем не разбираюсь.
Задача:
Известны две скорости, одна в километрах в час, другая в метрах в секунду. Какая из скоростей больше?
Нужно сделать так:
Program zadacha1;
Var и т.д. |
а=(скорость в км/Ч)
б=(скоростьв м/с) *1000/60*60 / перевод в км/ч
if a<б
переменные сакм определишь |
| 60*60 в скобках |
для olmin:
можно полностью если не сложно плииз...? |
а=(скорость в км/Ч)
б=(скоростьв м/с) *1000/60*60 / перевод в км/ч
if a<б
Это что за ад вообще? 0_о |
б=(скоростьв м/с) *1000/60*60 /
Т.е. 1 м/с=0.2(7) км/ч:-)? |
Program zadacha1;
Var
x,y: integer
begin
if x>(1000*у)/3600 then write x else write y;
end |
| = 1 км/ч = 1000/3600 м/с |
для Йопсель:
это всё? серьезно? |
| 7 Ответ будет посылаться на деревню к дедушке? |
для Йопсель
не давай больше полный текст, пусть сам хоть немного подумает |
для Темный_Серёга:
данные укажи еще) |
это всё? серьезно?
ну там без ввода скоростей. |
для Йопсель:
А значения переменных откуда-нибудь взять не надо:-)? |
для Йопсель:
вроде бы еще нужно Readln Wtiteln что-то такое |
ну блин) реадл лень дописать?)
Program zadacha1;
Var
x,y: integer;
Readln (x,y);
begin
if x>(1000*у)/3600 then write x else write y;
end. |
program Serega_nub;
var a,b integer;
begin
writeln('vvedite 1u skorostb v km\chas');
readln(a);
writeln('vvedite 2u skorostb v metr\sek');
readln(b);
b:=b*1000/3600;
if a<b then
writeln('1ckorostb bolshe')
else writeln('2 ckorostb bolshe');
end. |
для Йопсель:
я ж говорю не шарю в этом,))) спасибо за помощь =)) |
для Йопсель:
у меня интерфейс круче))))) |
Program zadacha1;
Var
x,y: integer;
begin
Readln (x,y);
if x>((1000*у)/3600) then write x else write y;
end.
Только считать после бегина, конечно. Ну и скобки в сравнении можно поставить. Не очень помню пунктуацию Паскаля. Возможно, что и не трэба. |
