|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2013, 00:33 | #1 |
Пользователь
Регистрация: 26.05.2013
Сообщений: 14
|
Разработать блок-схему и программу на языке Паскаль
Дана целочисленная прямоугольная матрица. Определить номер строки, в которой находиться самая длинная серия одинаковых элементов. Помогите пожалуйста, срочно надо.......
Вот примерный код программы который смог сделать, но он не работает, поправьте кто может? Procedure seria (var a: matr); var number,maxlen,slen: integer; begin maxlen:=1; number:=1; for i:=1 to n do begin slen:=1; for j:=1 to m-1 do if (a[i,j]=a[i,j+1]) then else inc(slen); begin if slen>maxlen then begin number:=i; maxlen:=slen; end; slen:=1; end; if slen>maxlen then number:=i; end; end; begin writeln ('введите матрицу'); readln(n,m); nol(b); seria(b); x:=1; z:=1; for i:=1 to n do for j:=1 to m do if b[i,j]=0 then z:=b[i,j]; if b[i,j]=b[i,j+1] then x:=b[i,j]; writeln(z,x); end. Последний раз редактировалось Denis19061989; 26.05.2013 в 01:50. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разработать программу, реализовывающую шифрование файлов на языке программирования Паскаль | Banderlogin | Помощь студентам | 0 | 12.12.2012 21:02 |
Разработать алгоритм, отобразить его в виде блок-схемы и написать программу на языке Паскаль. Оформить отчет | MID_SAN | Помощь студентам | 1 | 02.02.2012 10:24 |
Разработать блок-схему и программу на языке Си функции операции со строками | МариМар | Помощь студентам | 0 | 01.01.2011 11:31 |
Составить блок-схему алгоритма и программу на алгоритмическом языке | Sven84 | Помощь студентам | 2 | 20.10.2010 20:56 |
Сделать:математическую постановку, разработать блок-схему и написать программу в паскале | Сергей Панов | Помощь студентам | 2 | 20.11.2008 22:40 |