|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2011, 19:20 | #1 |
Пользователь
Регистрация: 15.11.2011
Сообщений: 10
|
циклы
Посмотрите пожалуйста - на чем именно зацикливается программа(((
begin s:=Edit1.Text; y:=length(s); while y>0 do begin if y>b then begin s1:=copy(s,1,b); delete(s,1,b); end else begin for i:=1 to n do begin for j:=1 to n do begin z[i,j]:=''; end; end; s1:=s; delete(s,1,length(s)); end; y1:=length(s1); while y1>0 do begin v:=copy (s1,y1,1); delete(s1,y1,1); for i:=1 to n do begin for j:=1 to n do begin if a[i,j]=y1 then z[i,j]:= v; end; end; y1:=length(s1); end; for j:=1 to n do begin for i:=1 to n do begin sh:=sh+z[i,j]; end; end; y:=Length(s); end; end; |
25.12.2011, 20:58 | #2 |
С++
Форумчанин
Регистрация: 22.09.2008
Сообщений: 791
|
Вы знаете что такое с++?
Форматируйте код, будьте людьми.
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
циклы | Samuel | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 11.10.2011 20:58 |
синусы и ко. циклы, вроде циклы | Scorch92 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 22.12.2010 19:26 |
циклы (с++) | @lenk@ | Помощь студентам | 0 | 05.05.2010 00:58 |
Циклы - вложенны циклы? | tigga | Microsoft Office Excel | 5 | 19.02.2010 23:36 |
циклы | Mizantrop | Помощь студентам | 0 | 04.11.2009 18:06 |