Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2018, 19:04   #1
Temka3791
Пользователь
 
Регистрация: 05.03.2018
Сообщений: 17
По умолчанию не могу найти проблему

В ПК поступают сведения о количество кв. метров жилой площади и количестве человек в семье, каждого из N работников предприятия. Требуется определить у скольких работников предприятия жилищные условия ниже нормы (норма – 12 кв. метров на одного человека).






Var i,n,s:integer;
m :real;
Begin
m:=0;
for i:=1 to n do
begin
writeln ('Введите кол-во человек в семье');
readln (s);
s:=s+n;
end;
s:=s/n;
writeln('введите кол-во кв метров');
if m>=12 then writeln('Жилищные условия в норме')
else if m<12 then writeln('Жилищные условия ниже нормы');
End.
Temka3791 вне форума Ответить с цитированием
Старый 10.04.2018, 10:04   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,536
По умолчанию

Название темы прикольное. Обычно проблемы сами меня находят, а мне приходится искать их решение
Т.е. мы суммируем количество работников (с их домочадцами, собачками и тещами) и делим на всех площадь ведомственного дома. Получаем среднюю температуру по больнице "Все хорошо, прекрасная маркиза"...
Код:
Var i,k,n:integer;
people: array[1..1000] of integer ;
place: array[1..1000] of real ;
Begin
  n:=0;
  for i:=1 to 1000 do
  begin
     writeln ('Введите кол-во человек в семье');
     readln (k);
     if k<0 then break ;
     people[i] := k ;
     inc (n)
  end ;
  // Вводом отрицательного числа условно обозначаем конец списка ;
  k := 0 ;
  for i:=1 to n do
  begin
     writeln ('Введите кол-во кв метров');
     readln (place[i]);
     if place[i]/people[i] < 12 then inc (k)
  end ;
writeln('Их, горемычных = ',k);
End.
Можно и без массива.
Код:
  k := 0 ; 
  for i:=1 to n do
  begin
    Readln (people1,place1) ;
   if place1/people1 < 12 then inc (k)
  end ;
И тишина...
Изображения
Тип файла: jpg Tish.JPG (27.8 Кб, 55 просмотров)

Последний раз редактировалось digitalis; 11.04.2018 в 10:03.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу решить проблему с ShellListView Janger Общие вопросы Delphi 2 29.03.2021 09:36
не могу найти проблему Temka3791 Фриланс 3 06.03.2018 13:38
Не могу решить проблему с ошибкой Janger Общие вопросы Delphi 7 20.03.2015 22:03
Не могу решить проблему в программе с BackSpace Namtarius Общие вопросы C/C++ 5 24.02.2012 12:36
Не могу понять проблему scalpel PHP 3 02.11.2011 17:50