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

[best_nik]

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

Текст задачи:
Известен план выпуска компьютеров и количество выпущенных компьютеров тремя фирмами за три месяца. Определить, в каком месяце не был выполнен план третьей фирмой.

P.S. очень нужна помощь!

 

[Vladimir_S]

Ни хрена не понял!

Текст задачи:
Известен план выпуска компьютеров

Каждой фирмой в отдельности или суммарный? Помесячный или поквартальный?

и количество выпущенных компьютеров тремя фирмами за три месяца.

Опять же каждой фирмой в отдельности или суммарное количество? Известен выпуск помесячно или за квартал целиком?

Определить, в каком месяце не был выполнен план третьей фирмой.

Не прежде, чем будут внятно изложены условия задачи. Отговорки типа "А там больше ничего не написано!" НЕ ПРИНИМАЮТСЯ.

P.S. очень нужна помощь!

Сочувствую.

 

[best_nik]

1-суммарный план выпуса тремя фирмами за каждый месяц
2-суммарное количество всеми трем фирмами за три месяца(квартал)

У нас в универе такие вот методички))))

 

[Vladimir_S]

Нет, моих познаний в математике тут явно мало. Ну допустим, что три фирмы скопом должны выпускать ежемесячно 30 компьютеров. Прошел квартал, и оказалось, что выпущено 87. И надо отсюда определить, какая из трех фирм проштрафилась, да еще и в каком месяце? Извините, но я - пас. Даже если наперед известно, что это фирма №3, всё равно - как установить месяц, не вижу. Условий явно не хватает.

 

[Long Cat]

Дам такую интерпретацию:
У нас есть: двумерный массив, содержащий количество выпущенных ПК, каждой фирмой в каждом месяце (таблица 3x3)
И еще один массив 3x3: план каждой фирмы на каждый месяц.
Верно?

Вариант:
второй массив - одномерный, содержит план выпуска пк первой, второй, третей фирмой - у каждой фирмы свой план, но на месяцы он универсальный.

 

[best_nik]

Дам такую интерпретацию:
У нас есть: двумерный массив, содержащий количество выпущенных ПК, каждой фирмой в каждом месяце (таблица 3x3)
И еще один массив 3x3: план каждой фирмы на каждый месяц.
Верно?

А как это выразить в паскале?(можно ли будет тогда узнать в каком месяце третья фирма не выполнила план?)

 

[best_nik]

Укажите мне на ошибку...

Это относительно прошлой темы составил прогу, тока ошибка где-то, причем детская ошибка, но уже все не соображаю, два дня делал задачи...
Цель тут такая необходимо, чтобы (z) выходила как результат в (writeln) (выдает 26 ошибку).

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

 

[Vladimir_S]

Это относительно прошлой темы составил прогу, тока ошибка где-то, причем детская ошибка, но уже все не соображаю, два дня делал задачи...
Цель тут такая необходимо, чтобы (z) выходила как результат в (writeln) (выдает 26 ошибку).

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

Да тут целый букет ошибок!
1. z:=a[x]<b[y]; Бессмысленная запись, если только z не имеет формат boolean. У Вас же он real.
2. Неправильная расстановка операторных скобок. Begin должно идти ПОСЛЕ
for x:=1 to 3 do
for y:=1 to 3 do, а не перед.
Не говоря уже о том, что вот я, например, совершенно не понимаю смысла программы. Можете СЛОВАМИ изложить суть алгоритма?

 

[best_nik]

Спасибо за помощь, boolean я пробовал, токо немного не то получилось.

суть программы должна быть в том, чтобы при потборке значений (a) и (b) в формулу (a[x]<b[y]) прога должна найти значение, когда (a) меньше (b) и вывести это на экран.

 

[Vladimir_S]

Спасибо за помощь, boolean я пробовал, токо немного не то получилось.

суть программы должна быть в том, чтобы при потборке значений (a) и (b) в формулу (a[x]<b[y]) прога должна найти значение, когда (a) меньше (b) и вывести это на экран.

Что "это"? Значение чего? В процессе выполнения двойного цикла у Вас четырежды выполнится поставленное условие:
a[1]<b[3]
a[2]<b[1]
a[2]<b[2]
a[2]<b[3]
Ну и что? Даже если Вы замените бессмысленное выражение z:=a[x]<b[y]; на, скажем, z:=a[x]-b[y];, то у Вас выведутся 4 числа:1, 1, 2 и 3. И что с ними делать? Какое они имеют отношение к номеру месяца?

 

[best_nik]

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

 

[Vladimir_S]

По идее 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]

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

 

[best_nik]

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

 

[Vladimir_S]

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

 

[best_nik]

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