Решение задачи на циклические структуры в Pascal. (тема объединена со второй) - Страница 2

best_nik · 25.12.2009, 11:11

По идее a[1,2,3]-это должно быть количество реально произведенных компьютеров за каждый месяц
b[1,2,3]-план по производству компьютеров на каждый месяц.
нужно найти среди присвоенных значений, когда присвоенные значения a<b и вывести номер месяца, которому принадлежит это число на экран и все.

Vladimir_S · 25.12.2009, 11:26

Цитата:

Сообщение от best_nik

По идее a[1,2,3]-это должно быть количество реально произведенных компьютеров за каждый месяц
b[1,2,3]-план по производству компьютеров на каждый месяц.
нужно найти среди присвоенных значений, когда присвоенные значения a<b и вывести номер месяца, которому принадлежит это число на экран и все.

Тогда так:

Код:

program rgr2;
uses crt;
var
 a,b:array[1..3] of integer;
 x:integer;
begin
 clrscr;
 a[1]:=40;
 a[2]:=38;
 a[3]:=42;
 b[1]:=39;
 b[2]:=40;
 b[3]:=41;
 for x:=1 to 3 do
  if a[x]<b[x] then 
   writeln('firma 3 ne vipolnela plan v ',x,' mesace');
 readln;
end.

Только вот как быть с тем обстоятельством, что по условию фирм не одна, а три?

best_nik · 25.12.2009, 11:37

Но дело в том, что остальные фирмы точно выполнили план, следовательно они нам не очень-то и нужны.

best_nik · 25.12.2009, 11:41

все работает!!!! Спасибо это настоящий новогодний подарок!!!!

Vladimir_S · 25.12.2009, 11:42

В общем, идиотская задача с мутной, непонятной, идиотской формулировкой. Так при случае и скажите преподавателю. Шутка.

best_nik · 25.12.2009, 11:56

После того как сдам ргр, сразу ему об этом скажу)))

25.12.2009, 11:11	#11 (permalink)
best_nik Новичок Регистрация: 24.12.2009 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	По идее a[1,2,3]-это должно быть количество реально произведенных компьютеров за каждый месяц b[1,2,3]-план по производству компьютеров на каждый месяц. нужно найти среди присвоенных значений, когда присвоенные значения a<b и вывести номер месяца, которому принадлежит это число на экран и все.

25.12.2009, 11:37	#13 (permalink)
best_nik Новичок Регистрация: 24.12.2009 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Но дело в том, что остальные фирмы точно выполнили план, следовательно они нам не очень-то и нужны.

25.12.2009, 11:41	#14 (permalink)
best_nik Новичок Регистрация: 24.12.2009 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	все работает!!!! Спасибо это настоящий новогодний подарок!!!!

25.12.2009, 11:42	#15 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	В общем, идиотская задача с мутной, непонятной, идиотской формулировкой. Так при случае и скажите преподавателю. Шутка.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

25.12.2009, 11:56	#16 (permalink)
best_nik Новичок Регистрация: 24.12.2009 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	После того как сдам ргр, сразу ему об этом скажу)))