Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Baga_X
0 / 0 / 0
Регистрация: 08.02.2012
Сообщений: 9
1

Помогите построить блок-схему к задаче

14.02.2012, 22:18. Просмотров 326. Ответов 0
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{Решить задачу о количестве вызовов на АТС, используя три процедуры:
1) для определения количества вызовов за каждую секунду;  (Kolvyzov)
2) для вычисления количества вызовов за первые 10 секунд; (Summavyzov)
3) для определения наибольшего количества вызовов за некоторую секунду (MaxKolvyzov) }
program ATS1;
Uses Crt;
type vyzov=array[1..10] of integer;
var  y:vyzov;
     max,s:integer;
procedure  Kolvyzov(var y:vyzov); {Процедура Kolvyzov}
var i:integer;                    {определяет количество вызовов}
begin
    for i:=1 to 10 do
    begin
    y[i]:=random(i);
    writeln ('y(',i,')= ',y[i]:5);
    end;
end;
procedure Summavyzov(y:vyzov;var s:integer);{Процедура вычисляет количество вызовов}
var i:integer;   {За первые 10 секунд}
begin
   s:=0;
   for i:=1 to 10 do s:=s+y[i];
   writeln ('Сумма вызовов S= ',s:3);
end;
procedure MaxKolvyzov(y:vyzov;var max:integer);
var i:integer; {Процедура MaxKolvyzov определяет}
begin          {наибольшее количество вызовов}
   max:=y[1];  {за некоторую секунду}
   for i:=2 to 10  do
       if max<y[i] then max:=y[i];
       write('Максимально количество вызовов за одну');
       writeln('секунду равно',max:3)
end;
begin
  ClrScr;
  randomize;
  Kolvyzov(y);         {Вызываем процедуру Kolvyzov}
  Summavyzov(y,s);     {Вызываем процедуру Summavyzov}
  MaxKolvyzov(y,max);  {Вызываем процедуру MaxKolvyzov}
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.02.2012, 22:18
Ответы с готовыми решениями:

Написать алгоритм к задаче и составить блок-схему
Здрасте уважаемые програмисты не могли бы вы помочь мне с программой напишите если не трудно...

Построить блок-схему
uses crt; var a:array of integer; i,n:integer; begin writeln('введите n'); readln(n); i:=1;...

Построить блок схему
Найти координаты точек пересечения прямой y=kx+b и окружности радиуса R с центром в начале...

Построить блок-схему
uses crt; const m=10; {размеры матрицы} n=8; type Tmn=set of byte; {тип множества} ...

Построить блок схему
Построить блок схему. Заранее спасибо =) const a1=8; b1=12; a2=16; b2=24; var mas: array...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.02.2012, 22:18

Построить блок схему
program a2; var a,b,k,sum:integer; sr:real; begin writeln('Введите значение конца...

Множества, построить блок-схему
Помогите пожалуйста построить блок схему. uses crt; var k,i: integer; s:string; begin while...

Построить блок схему по массивам
Здравствуйте, прошу вашей помощи, завтра экзамен, и к нему нужна блок схема по программному коду...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru