|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2008, 13:15 | #1 |
Новичок
Джуниор
Регистрация: 07.12.2008
Сообщений: 2
|
циклы while...do и repeat...until.
Ребят, помогите плз с написанием
Задание: Написать две программы, которые выводят на экран заданный набор символов. Одна программа должна использовать только цикл while...do, а другая repeat...until. Массивы и строки не применять. Как должно выводить... I I G I G E I G E C I G E C A |
07.12.2008, 13:42 | #2 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
Если ничего не напутал то так
Код:
Код:
|
07.12.2008, 13:43 | #3 |
Форумчанин
Регистрация: 28.10.2008
Сообщений: 350
|
4: writeln('I G E C А'); вот так правильнее
|
07.12.2008, 13:47 | #4 |
Форумчанин
Регистрация: 11.11.2008
Сообщений: 161
|
массивы не применять в смысле для вывода или даже для хранения символов?
|
07.12.2008, 14:18 | #5 |
Новичок
Джуниор
Регистрация: 07.12.2008
Сообщений: 2
|
|
07.12.2008, 15:51 | #6 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот обе задачи в одной, если надо разделишь.
Код:
|
07.12.2008, 15:58 | #7 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вообще-то строку (chr(ord(74-2*j+1)),' '); лучше переписать
(chr(ord(73-2*(j-1))),' '); это более логично (73-код символа I) |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с програмкой (Repeat...Until)... | Goldberg | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 11.11.2008 15:50 |
Циклы! | vlad1991 | Паскаль, Turbo Pascal, PascalABC.NET | 15 | 28.10.2008 22:07 |
Циклы While и Repeat в Delphi 7.0(Задач) | n01R | Помощь студентам | 6 | 21.01.2008 23:41 |