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

@Dominowood · Регистрация: 29.03.2013

Помогите вот с этим заранее благодарен!

1 задание)Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправится или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) − 100. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Введите в одной строке через пробел
рост (см) и вес (кг) затем нажмите <Enter>
-> 170 68
Вам надо поправится на 2.00 кг.

Задание каждое отдельно

2 задание)
Написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление стоимости поездки на дачу и обратно.
Расстояние до дачи (км) -> 67
Расход бензина (литров на 100 км пробега) -> 8.5
Цена литра бензина (руб.) -> 6.5

@Jener · 29.03.2013, 16:50

Pascal

program v1;
uses
  crt;
var
  wo, w, r : real;
begin
  clrscr;
  write('Введите в одной строке через пробел',#13,#10,'рост(см) и вес(кг) нажмите (Tnter) : ');
  readln(r,w);
  wo := r - 100;
  if w>wo  then writeln('Вам надо похудеть на ',w-wo:4:2,' кг.')
  else if w=wo then writeln('Ваш вес оптимален.')
  else
  writeln('Вам надо поправиться на ',wo-w:4:2,' кг.');
  readln;
end.

Pascal

program r2;
uses
  crt;
var
  rast, rash, cena : real;
begin
  clrscr;
  writeln('Вычисление стоимости поездки на дачу и обратно.');
  write('Расстояние до дачи (км) : ');
  readln(rast);
  write('Расход бензина (литров на 100 км пробега) : ');
  readln(rash);
  write('Цена литра бензина (руб) : ');
  readln(cena);
  cena := rast*2*rash/100*cena;
  write('Стоимость поездки : ',cena:5:3,' руб');
  readln;
end.

@Dominowood 0 / 0 / 0 Регистрация: 29.03.2013 Сообщений: 7
		1
	Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию 29.03.2013, 15:44. Показов 10114. Ответов 1 Метки нет (Все метки) Помогите вот с этим заранее благодарен! 1 задание)Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным и выдает рекомендацию о необходимости поправится или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантиметрах) − 100. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Введите в одной строке через пробел рост (см) и вес (кг) затем нажмите <Enter> -> 170 68 Вам надо поправится на 2.00 кг. Задание каждое отдельно 2 задание) Написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом). Вычисление стоимости поездки на дачу и обратно. Расстояние до дачи (км) -> 67 Расход бензина (литров на 100 км пробега) -> 8.5 Цена литра бензина (руб.) -> 6.5 0

Опции темы

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

Решение