5. Задания для самостоятельного решения Задание 1
Группе студентов за активное участие в спортивных мероприятиях выделена
премия в размере 9500р. Эта сумма должна быть поделена между всеми
студентами группы с учетом их вклада. Для этого каждому студенту
присваивается коэффициент вклада, который задается в интервале от 0 до 1.
Определить размер коэффициента.
Задание 2
Минимальная продуктовая потребительская корзина состоит:
Известно что:
Картофель - в два раза дешевле хлеба
Крупа - на два рубля дешевле хлеба
Масло растительное - в семь раз
дороже хлеба
Масло сливочное - в шесть раз
дороже хлеба
Молоко - на один рубль дороже
хлеба
Мясо - в десять раз дороже хлеба
Рыба - в три раза дороже хлеба
Сахар - на два рубля дороже хлеба
Сыр - на пять рублей дороже мяса
Фрукты - на три рубля дороже рыбы
Макаронные изделия - на четыре
рубля дешевле рыбы
Соль - в два раза дешевле хлеба
Овощи - на рубль дешевле хлеба
Технология использования табличных процессоров. Подбор параметра
9
Необходимо вычислить стоимость 1 кг хлеба так, чтобы стоимость
продуктовой корзины равнялась размеру минимальной зарплаты.
Задание 3
Электронная таблица содержит расчет квартирной платы. В ее состав входят:
название статьи расхода, стоимость единицы, норматив использования –
количество потребляемой статьи расхода.
Стоимость единицы электричества неизвестна и условно принята Xруб.
Стоимость единицы остальных статей расхода больше стоимости
электричества в заданное количество раз.
Вода в 5 раз больше
Отопление в 160 раз больше
Лифт на 10 рублей больше
Антенна на 15 рублей больше
Радио в 200 раз больше
Мусоропровод на 7 рублей больше
Плата за наем жилья в 300 раз больше
Необходимо вычислить стоимость единицы электричества так, чтобы
стоимость квартирной платы была равна 2550руб.
Построить диаграмму норматив использования каждой статьи расхода.

Показать ответ

Ответ:

egor44rus

12.08.2022 14:21

// PascalABC.NET 3.0, сборка 1073
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,imax,jmax:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
imax:=1; jmax:=1;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end
    end;
    Writeln
end;
for i:=1 to m do a[i,jmax]:=0;
for j:=1 to n do a[imax,j]:=0;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
end
end.

Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
11 -10 -25 -25 -19 -3 -2   0
-24   1   5 -25 -21 -16 -16 -22
-21 -10 -12   7 20 16   0 -10
-13 25 -18 18 -5   9 15   1
-19 -10 -16   9 -11 11 24 -19
*** Результирующий массив ***
11   0 -25 -25 -19 -3 -2   0
-24   0   5 -25 -21 -16 -16 -22
-21   0 -12   7 20 16   0 -10
   0   0   0   0   0   0   0   0
-19   0 -16   9 -11 11 24 -19

0,0(0 оценок)

Ответ: