|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.02.2009, 19:44 | #1 |
Пользователь
Регистрация: 28.01.2009
Сообщений: 16
|
Именно тот паскаль... Двумерные массивы
В этой программе меня интересует, что такое S?
program z1; uses crt; type stroka=array[1..20] of integer; table=array[1..20] of stroka; var i,j,n,m,c,S,g:integer; a:table; procedure wwod; var i,j:integer; begin clrscr; write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є, n=');readln(n); write('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў, m=');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; end; procedure wywod; var i,j:integer; begin clrscr; for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end;end; begin clrscr; wwod; wywod; g:=A[1,1]; for i:=1 to n do begin g:=A[i,j]; for j:=1 to m do begin if g=A[i,j] then S:=S+1; if s=m then c:=c+1; end; S:=0; end; write(c); readkey; end. |
12.02.2009, 20:14 | #2 | |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
s-счетчик элементов равных последнему в своей строке!!!
Цитата:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 12.02.2009 в 20:34. |
|
12.02.2009, 20:32 | #3 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Странный код. А вообще, S - переменная типа Integer.
E-Mail: arigato.freelance@gmail.com
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тот самый Pascal... Двумерные массивы... | Сеня | Помощь студентам | 21 | 29.01.2009 00:36 |
Двумерные массивы | angelangel | Общие вопросы C/C++ | 2 | 22.12.2008 15:47 |
Двумерные массивы | katia230990 | Помощь студентам | 2 | 10.05.2008 00:58 |
Двумерные массивы | Lioness | Помощь студентам | 2 | 06.01.2008 12:39 |