Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сделать рамку вокруг окна из символов псевдографики Нужно в окне Windows(X, Y); по краям без отступом от краев сделать рамку из символов псевдографики. Когда доходит до последней строки и последнего символа, автоматически происходит переход на новую... https://www.cyberforum.ru/ turbo-pascal/ thread1808036.html Определить высоту треугольника, если его площадь равна S (Блок-схема) Turbo Pascal
Определить высоту треугольника, если его площадь равна S, а основание больше высоты на величину a. uses crt; var s,a,h,d:real; begin clrscr; write('Площадь='); readln(s); write('На сколько...
Turbo Pascal Найти произведение элементов массива с положительными номерами https://www.cyberforum.ru/ turbo-pascal/ thread1807631.html
В одномерном массиве , который состоит из n целых элементов , вычислить : а ) произведение элементов массива с положительными номерами ; б) сумму элементов массива , расположенных между первым и...
Turbo Pascal Возведение в степень Паскаль не понимает следующее выражение: F:= ((power(sin(x+a)),1/3)+cos(x))/((pi)*x+4.15*power(y,4)*power(e,(abs(x-y)))); Я в чем-то ошибся или нужно по-другому записывать степень? https://www.cyberforum.ru/ turbo-pascal/ thread1807228.html
Параметры в процедуре Turbo Pascal
Есть две процедуры и нужно правильно написать параметры чтобы программа работала, помогите пожалуйста Program lab1bochkov; uses crt; type Tcars = object number: string; color: string;
Turbo Pascal Принадлежит ли точка закрашенной области Как найти принадлежит ли точка закрашенной области не используя условные операторы. https://www.cyberforum.ru/ turbo-pascal/ thread1806022.html
Turbo Pascal Для трех вещественных типов рассчитать диапазон порядка Для трех вещественных типов (Real, Double, Extended) рассчитать диапазон порядка и сделать переполнение. https://www.cyberforum.ru/ turbo-pascal/ thread1805832.html Выведите на экран все числа в порядке убывания, которые присутствуют в каждой строке матрицы Turbo Pascal
Пусть задана матрица размером NхM. Элементы матрицы находятся в диапазоне от 1 до 10. Выведите на экран все числа в порядке убывания, которые присутствуют в каждой строке. Обязательно использование...
Turbo Pascal Принадлежит ли точка закрашенной области Почему при вводе координаты x=0.2 и y удовлетворяющего условию, программа выдает ложно значение. Программа должна быть написана без OR и AND program s11; var x,y,r:real; a:boolean; begin https://www.cyberforum.ru/ turbo-pascal/ thread1805572.html Turbo Pascal Выведите на экран все числа в порядке убывания, которые присутствуют в каждой из диагоналей матрицы Написать программу с подпрограммами. Пусть задана матрица размером 3х3. Элементы матрицы находятся в диапазоне от 1 до 10. Выведите на экран все числа в порядке убывания, которые присутствуют в... https://www.cyberforum.ru/ turbo-pascal/ thread1804498.html
Turbo Pascal Вывести все цифры строки на экран без повторений
Написать программу, используя подпрограммы. Дана строка. Сколько цифр входит в строку? Вывести все цифры на экран без повторений.
Turbo Pascal Вычислить значение выражения по заданной формуле Написать программу: Даны целое число n, действительные числа i,j,k вычислить: r=\cos ^3\left(i^2+3 \right)+\operatorname{tg}^2\left(\frac{k}{j}+1 \right)+756.3 https://www.cyberforum.ru/ turbo-pascal/ thread1804356.html
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
15.09.2016, 17:00 0

Вычислить оптимальный вес пользователя - Turbo Pascal - Ответ 9544386

15.09.2016, 17:00. Показов 1768. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
function IdealWeight(const height: Integer): Integer;
begin
    IdealWeight := height - 100;
end;
 
procedure Answer(const weight, ideal: Integer);
var
    diff: Integer;
begin
    diff := ideal - weight;
    if (diff > 0)
    then
        WriteLn('Нужно набрать ', diff, ' кг.')
    else
        if (diff = 0)
        then
            WriteLn('Вы идеальны!')
        else
            WriteLn('Необходимо сбросить ', Abs(diff), ' кг.');
end;
var
    h, w: Integer;
begin
    Write('Рост? '); ReadLn(h);
    Write('Масса? '); ReadLn(w);
    Answer(w, IdealWeight(h));
end.


Вернуться к обсуждению:
Вычислить оптимальный вес пользователя Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.09.2016, 17:00
Готовые ответы и решения:

Вычислить оптимальный вес пользователя
Написать программу которая вычисляет оптимальный вес пользователя сравнивает его с реальным и...

Вычислить оптимальный вес пользователя, сравнить его с реальным и выдать рекомендацию
Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и...

Вычислить общий вес багажа
Дан массив из восьми строк. В строке "фамилия пассажира_количество вещей_вес". Вычислить общий...

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2016, 17:00
Помогаю со студенческими работами здесь

Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию
Помогите вот с этим заранее благодарен! 1 задание)Написать программу, которая вычисляет...

Вычислить общий вес багажа
Дан массив из восьми строк. В строке "фамилия пассажира_количество вещей_вес". Вычислить общий вес...

Вычислить оптимальный вес пользователя
Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и...

Вычислить оптимальный вес для пользователя
Написать программу, которая вычисляет оптимальный вес для пользователя, сравнивает его с реальным и...

Вычислить оптимальный вес для пользователя (Pelles C)
Добрый вечер. Помогите пожалуйста. Условие задачи. Необходимо написать программу, которая...

Задача С++ на оптимальный вес пользователя и рекомендации
Написать программу, которая вычисляет оптимальный вес пользователя сравнивает его с реальным и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru