(Сам и контр)

Задание 2 Вариант 1 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Босова, Босова, Аквилянов

11 класс

Класс

11

Предмет

Информатика

Автор

Босова, Босова, Аквилянов

Оцени решение

← Предыдущий Следующий →

Сообщить об ошибке

Задание 2 Вариант 1 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Задача

Каждый вторник члены Клуба Толстяков выстраиваются в определённом порядке и взвешиваются. Напишите программу, которая бы хранила взвешивания всех 8 членов клуба за прошлую неделю. При вводе новых данных компьютер должен печатать «Поздравляю!», если члену клуба удалось похудеть, либо величину прибавки веса. Запишите исходные данные и полученные результаты:
Вес на прошлой неделе Результат взвешивания Комментарий

Подробный ответ

Программа хранит веса 8 членов клуба за прошлую неделю в массиве a. Затем для каждого человека вводится новый вес c. Если новый вес меньше старого, выводится «Поздравляю!», иначе вычисляется прибавка веса $$c-a[i]$$ и выводится она.

№	Вес на прошлой неделе	Результат взвешивания	Комментарий
1	97.8	105	Прибавка 7.2
2	106.4	98.2	Поздравляю!
3	123	88.7	Поздравляю!
4	98.5	103	Прибавка 4.5
5	150.9	77	Поздравляю!
6	98.2	80	Поздравляю!
7	134.7	125.3	Поздравляю!
8	126.9	130	Прибавка 3.1

program s5_v1_2;
const
  n = 8;
var
  a: array[1..n] of real;
  c: real;
  i: integer;
begin
  writeln(‘ ‘);
  for i := 1 to n do
  begin
    write(i, ‘=’);
    readln(a[i]);
  end;
  writeln(‘ ‘);
  for i := 1 to n do
  begin
    write(i, ‘=’);
    readln(c);
    if a[i] > c then writeln(‘Поздравляю!’)
    else writeln(‘Прибавка ‘, c — a[i]:2:1);
  end;
end.