С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Alexey0
1 / 1 / 4
Регистрация: 11.12.2014
Сообщений: 28
1

Разбить программу на процедуры

16.04.2015, 10:49. Просмотров 290. Ответов 1
Метки нет (Все метки)

Разбить программу на процедуры и описать каждая из них делает.
Сама задача:
Вложение 515356
Программа:
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
  N, i, t1, t2, j, t:longint;
  str:string;
  a: array[1..3,2000..5001] of integer;
begin
  Readln(N);
  for i:=1 to N do begin
  readln(str); t1:=0; t2:=0; t:=0;
  for j:=1 to length(str) do begin
  if (str[j]<>' ') and (t=2) then begin
  t1:=t1*10+ord(str[j]) - ord('0');
  end;
  if (str[j]<>' ') and (t=3) then begin
  t2:=t2*10+ord(str[j]) - ord('0');
  end;  
  if str[j]=' ' then inc(t);  
  end; 
  inc(a[t1 div 5 - 2,t2]);
  end;
  for i:=1 to 3 do begin
  for j:=2000 to 5001 do
  if a[i,j]<>0 then break;
  write(a[i,j],' ');
  end;
  writeln();
 end.
 Комментарий модератора 
Текст на картинках запрещен
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.04.2015, 10:49
Ответы с готовыми решениями:

Разбить программу на процедуры
var a:array of integer; i,j,n,m,t,min,min1,f:integer; begin write('M=');...

нужно разбить на процедуры
Здравствуйте, уважаемые) Необходимо было написать задачу с применением...

нужно разбить на процедуры
Здравствуйте, уважаемые) Необходимо было написать задачу с применением...

Разбить программу на процедуры
const maxn=100; type mas=arrayof integer; var b,a:mas; ...

Разбить программу на подпрограммы
Помогите пожалуйста исправить прогу. Ввести, вывести, убрать нули,...

1
Verevkin
Заблокирован
17.04.2015, 09:33 2
Автор! Срочно найди писателя этого кода и оторви ему руки. А лучше - голову.
Ну неужели вот так хуже?
Delphi
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
var
  N, i, t1, t2, j, t: longint;
  str:                string;
  a:                  array[1..3, 2000..5001] of integer;
begin
  Readln(N);
 
  for i:= 1 to N do
    begin
      readln(str);
      t1:= 0;
      t2:= 0;
      t:=  0;
 
      for j:= 1 to length(str) do
        begin
          if (str[j] <> ' ') and (t = 2)
            then t1:= t1 * 10 + ord(str[j]) - $30;
 
          if (str[j] <> ' ') and (t = 3)
            then t2:= t2 * 10 + ord(str[j]) - $30;
 
          inc(t, Byte(str[j] = ' '));
        end;
 
      inc(a[t1 div 5 - 2, t2]);
    end; // for
 
  for i:= 1 to 3 do
    begin
      for j:= 2000 to 5001 do
        if a[i, j] <> 0
          then break; // это чо за индусский цикл?
 
      write(a[i, j], ' ');
    end; // for
 
  writeln();
end.
Теперь можно и процедуры разбивать. Пусть это кто-нить следующий сделает.

Пост сдал!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2015, 09:33

Разбить программу на модули
Ребят, как программку вот єту разбить на модули? а то что то не пойму) uses...

Программу разбить на модули
Программу разбить на модули. Нужно создать 4-ре модуля – модуль с условным...

Разбить программу на подпрограммы
Нужно переделать эту программу,чтобы были(-а) подпрограммы(-а). Uses crt; var...


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

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

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