С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
aekuznecov
33 / 33 / 17
Регистрация: 25.03.2013
Сообщений: 520
Записей в блоге: 5
1

Составьте программу вычисления работы при равномерном поднятии груза массой 2 т. На высоту 50 см

16.10.2014, 09:36. Просмотров 572. Ответов 0
Метки нет (Все метки)

Подруга попросила помочь, надо сделать ей задачи.
Суть самой задачи:
Составьте программу вычисления работы при равномерном поднятии груза массой 2 т. на высоту 50 см.
В паскале не особо силен. Помогите кто чем сможет. Спасибо

Добавлено через 19 минут
вот для этой задачи код в паскале:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var A,m,h:real; const g = 10;
begin
  writeln('Введите массу в кг');
   readln(m);
  writeln('Введите высоту в м');
   readln(h);
A:=m*g*h;
if A > 999 then
begin
A:= A / 1000;
writeln('Работа в кДж: ');
writeln(A);
end
else
begin
writeln('Работа в Дж: ');
writeln(A);
end;
readln();
end.
помогите ошибки подправить с выводом(не корректно выводить сам результат)

Добавлено через 12 минут
там вместо real - double
Pascal
1
var A,m,h:double;
Добавлено через 14 минут
вопрос снят. Разобрался с задачей сам
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.10.2014, 09:36
Ответы с готовыми решениями:

Составьте программу, реализующую алгоритм вычисления суммы данного ряда. Записать результат работы программы при заданн
Составьте программу, реализующую алгоритм вычисления суммы данного ряда. ...

Составьте программу вычисления значения y по указанным ниже формулам при заданных с клавиатуры необходимых целых данных
Составьте программу вычисления значения y по указанным ниже формулам при...

Составьте программу вычисления значений заданной функции при изменении аргумента на заданном отрезке с заданным шагом

Вычислить работу, совершаемую при равноускоренном поднятии груза на высоту за время.
Задача: Вычислить работу, совершаемую при равноускоренном поднятии груза на...

Составьте программу вычисления значения функции у при произвольных значениях х, а
Составьте программу вычисления значения функции у при произвольных значениях х,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.10.2014, 09:36

Составьте программу на языке С++ для вычисления значения функции z=f(x,y) при заданных значениях х и у.
Здравствуйте, кому не сложно помогите решить задачи: Язык: C++, Среда...

Составьте блок-схему и программу вычисления значения функции у при произвольных значениях х, а, b
Здравствуйте! Нужна помощь в написании программы на языке Pascal. Задание:...

По представленной блок-схеме составьте программу вычисления функции у при заданном с клавиатуры значении х
подскажите где и что исправить (добавить)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru