Программа на тему:"Теоретическая мехника"

[Andreyko]

Однородный цилиндр М, вес которого Р=20 кг, лежит на гладкой горизонтальной плоскости. Сверху на цилиндр давит вертикальная сила F=50 кг, линия действия которой проходит через центр тяжести цилиндра.Определить давление цилиндра на горизонтальную плоскость.


Формула, по которой решается эта задача равна: R=P+F

как в паскале сделать так, что бы пользователь, выбрав эту задачу, ввел данные (P и F) и получил ответ ? Кто что может пишите пожалуйста.

[Andreyko]

Не знает никто ?

[p51x]

У телепатов по воскресеньям выходной.

Где пользователь выбирал? В меню, комбобоксе, в консольном текстовом меню?...

ввел данные (P и F) и получил ответ ?

Элементарнейшие действия. Первые главы практически любой книги по паскалю.

[ROMA2PVT]

и чё формула ж дана.ввёл данные и готово.Или я чёт недогоняю.В чём фишка то...
Да и что означает Теоретическая мехника

[Andreyko]

я не разбераюсь в этом деле, но мне нужна помощь. я знаю что помощь = решите за меня. но вам это 5 мин работы, а мне неделя. есть такая штука как курсовая. У меня программа должна делать такую вещь: пользователь выбирает 1 из 3 задач. затем вводит данные( на каждую задачу своя формула) и программа выдает ответ.
Доп. инф: тема курсовой: Решение задач статики курса "Теоретическая механика". Реально ребят помогите.

[ROMA2PVT]

как сказал p51x =>

У телепатов по воскресеньям выходной.

Uses
   CRT;
Var
  i:integer;
  key:char;

Procedure Cilindr;
Var
  f,p,r:real;
begin
write('Введите P кг:=');
readln(p);
write('Введите F кг:=');
readln(f);
R:=P+F;
writeln('Определить давление цилиндра на горизонтальную плоскость:=',R:1:3);
end;

begin
   writeln('1: Однородный цилиндр М, вес которого Р=20 кг лежит',
             ' на гладкой горизонтальной плоскости. Сверху на цилиндр',
             ' давит вертикальная сила F=50 кг, линия действия которой',
             ' проходит через центр тяжести цилиндра.Определить давление',
             ' цилиндра на горизонтальную плоскость.');
repeat
write('Ваш выбор: ');
readln(i);
case i of
1: Cilindr;
end;
write('Повторить (Yes/No)?');
  readln(key);
  Until UpCase(key)<>'Y';
readkey;
end.

Ну вот так можно.

[Andreyko]

Спасибо огромнешее !!!!! Дай тебе Бог счастья и здоровья. Но я к тебе еще обращусь.

[Andreyko]

А если у нас есть 3 задачи(на прикрепл. файле) и надо как-то сделать, чтобы пользыватель выбирал сам задачи, с помощью стрелки, или Yes/no. А после выбора, чтобы польз. вводил данные, что уже написал Roma.DSC00737.jpg