best_nik

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

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

Vladimir_S

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

best_nik

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

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

Vladimir_S

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

Long Cat

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

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

best_nik

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

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

Да тут целый букет ошибок!
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

Что "это"? Значение чего? В процессе выполнения двойного цикла у Вас четырежды выполнится поставленное условие:
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. И что с ними делать? Какое они имеют отношение к номеру месяца?