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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.01.2018, 02:17   #1
Andrei.Ch
 
Регистрация: 24.01.2018
Сообщений: 6
По умолчанию Помогите Разобраться что не так

Расчет подарков детям работников по предприятию
программа выводит только матрицу
что надо поменять изменить чтобы программа выдавала
количество подарков

Код:
Program INFORMATION_SYSTEM;
var
   a:array[1..1000,1..5]of integer;
   i,j,n,s1,k,с,m:integer;

procedure vvod_a;
begin
Write ('Введите кол-во строк :');
readln (n);
Write ('Введите кол-во столбцов :');
readln (m);
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        write ('A[',i,j,']=');
        Readln(a[i,j]);
        end;
    writeln;
    end;
writeln('Исходная матрица:');
For i:=1 to n do
    begin
    for j:=1 to m do
        write(a[i,j]:4);
    writeln;
    end;
end;

procedure pr_2;   
begin    
    for i:=1 to n do
    begin
    с:=0;
        if a[i,3]>1998 then с:=с+1;
     if с>=1 then
       begin
       s1:=s1+c;
       end;
    end;
    writeln('Колличество подарков ',s1,'');
end;

procedure pr_3;   
   begin
   write ('Ввести код подразделения:');
    readln (d);
    end;
  begin  
    for i:=1 to n do
   begin
    c:=0;
        if a[i,1]=d then c:=c+1;
     if c>=1 then
       begin
       s1:=s1+c;
       end;
       writeln('Колличество подарков ',s1,'');
    end;
    end.
 
 begin
  Vvod_A;
  While (k=1) or (k=2) DO
  begin
    writeln('Введите номер запроса');
    writeln('Выход из программы– любое число, кроме 1,2');
    writeln('1 - подарки для всех подразделений');
    writeln('2 - подарки по подразделению');
    readln(k);
  Case k of
  1:pr_2; {первый запрос}
  2:pr_3; {второй запрос}
  End;
  end;
  end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 24.01.2018 в 14:02.
Andrei.Ch вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не вычисляет!!! Что не так? Помогите TheAlexMan Помощь студентам 6 25.04.2017 21:42
Помогите понять что не так Anne123 C# (си шарп) 1 03.05.2016 19:31
массив что сдесь k:=k+1; и b[k]:=i что к чему присваивается помогите разобраться Вячик Помощь студентам 1 16.03.2016 14:24
Помогите, что не так в программе? jinos Помощь студентам 2 18.05.2015 23:22
Программма работает, но не так как мне нужно. Помогите разобраться. shewlett Помощь студентам 1 30.03.2015 17:25