|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.05.2009, 21:14 | #1 |
Пользователь
Регистрация: 09.01.2009
Сообщений: 11
|
Процедуры.
нужно заменить выделенное курсивом процедурами
Program Stroka; const max=50; var a,b: array [1..max] of char; i,j,k,n: byte; begin i:=0; repeat i:=i+1; read(a[i]); until a[i]=#13; k:=i-1; n:=1; for n:=1 to k do begin case a[i] of '0': begin b[n]:='n'; b[n+1]:='o'; b[n+2]:='l'; n:=n+3; end; 'a': begin b[n]:='o'; n:=n+1; end; else begin b[n]:=a[i]; n:=n+1; end; end; end; for j:=1 to n do write(b[j]); end. |
08.05.2009, 01:26 | #2 |
Пользователь
Регистрация: 07.05.2009
Сообщений: 17
|
а полностю умовы нету?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
процедуры | Maxxx 83 | Помощь студентам | 3 | 02.10.2009 19:16 |
Процедуры | Sergeo_89 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.01.2009 19:05 |
Запуск процедуры из процедуры с дополнением | 1sal1 | Общие вопросы Delphi | 3 | 06.10.2008 21:54 |
процедуры | Killbrum | Помощь студентам | 5 | 10.06.2008 08:59 |
процедуры | FIIR | БД в Delphi | 9 | 26.02.2008 11:26 |