![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. |
![]() |
![]() |
![]() |
#2 | |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
![]()
s-счетчик элементов равных последнему в своей строке!!!
Цитата:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 12.02.2009 в 20:34. |
|
![]() |
![]() |
![]() |
#3 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,591
|
![]()
Странный код. А вообще, 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 |