|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
30.11.2017, 19:37 | #1 |
Пользователь
Регистрация: 30.11.2017
Сообщений: 16
|
Repeat и Until
Как в конце в until добавить несколько массивов, а то получается только несколько добавить
program mass; var mas: array[0..7]of string; h,b,b1,b2,b3:string; begin mas[7] :='Фарит?'; mas[6] :='Кто?'; mas[5] :='Что?'; mas[4] :='Кто это?'; //mas[3] :=''; //mas[2] :=''; //mas[1] :=''; //mas[0] :=''; b:=mas[7]; b1:=mas[6]; b2:=mas[5]; b3:=mas[4]; //b4:=mas[3]; //b5:=mas[2]; //b6:=mas[1]; //b7:=mas[0]; Writeln('Тебя искал Фарит'); Readln(h); if (h = b) or (h = b1) or (h=b2) or (h=b3)then Writeln('Хороший Дядька') else Writeln('Не будешь спрашивать кто это?'); //if(h<>b) or (h<>b1) or (h<>b2) or (h<>b3) or (h<>b4)then Repeat Readln(h); if (h = b) or (h = b1) or (h=b2) or (h=b3)then Writeln('Хороший дяденька') else Writeln('Не будешь спрашивать кто это?'); until h = 'Кто?' end. |
30.11.2017, 22:23 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
for, while, repeat | dxn | Общие вопросы Delphi | 2 | 27.10.2015 20:28 |
While and Repeat! | Linker88 | Паскаль, Turbo Pascal, PascalABC.NET | 12 | 19.05.2009 13:43 |
repeat ... until | 08ekhiv1 | Помощь студентам | 3 | 17.03.2009 16:42 |
repeat until | 4ERRY | Помощь студентам | 7 | 21.02.2009 21:38 |
Repeat | Наталья111 | Общие вопросы Delphi | 7 | 06.01.2009 19:44 |