Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

Код:

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 в 15:02.
Andrei.Ch вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


00:41.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru