|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
16.12.2012, 22:06 | #1 (permalink) |
Новичок
Регистрация: 16.12.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помощь в написании программы по TURBO PASCAL
Заполнить левую половину экрана синим цветом, правую - зеленым. Ввести строку с клавиатуры. Если в ней больше букв "a", чем букв "o", вывести в центре экрана слово "привет". |
16.12.2012, 22:06 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что потратив минутку на прочтение похожих топиков проблема проясниться Помощь в написании программы под Java. Помощь в написании программы на Паскале Помогите пожалуйста в написании программы на языке Turbo Pascal Необходима помощь в написании программы Нужна помощь в написании программы |
16.12.2012, 22:31 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И это в текстовом режиме, через CRT? Или в графическом? Вообще-то в текстовом экране я тоже не очень представляю себе, как это сделать.
|
16.12.2012, 23:22 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во черт, а я таки в текстовом ухитрился соорудить! Гляньте, может быть, подойдёт.
Но! Внимание! Предупреждаю сразу: НИКАКОЙ КИРИЛЛИЦЫ! Заморачиваться с разными кодировками, извините, не буду. Посему и слово вводить латиницей, и на экране будет "Hello!", а не "Привет". Уж извините. У меня DOS, у Вас наверняка Windows версии Паскаля, кодировки там разные, в общем, ну их! Код:
Uses CRT; Var S:String; Na,No,i,j:Byte; Begin NormVideo; ClrScr; Write('Enter the word: '); Readln(S); Na:=0; No:=0; For i:=1 to Length(S) do begin if S[i]='a' then Inc(Na); if S[i]='o' then Inc(No); end; ClrScr; TextBackground(2); For i:=1 to 25 do For j:=40 to 80 do begin GotoXY(j,i); Write(' '); end; TextBackground(1); For i:=1 to 25 do For j:=1 to 40 do begin GotoXY(j,i); Write(' '); end; If Na>No then begin TextBackground(0); textcolor(14); gotoXY(38,12); write('Hello!'); end; NormVideo; ReadKey; End. |
17.12.2012, 00:50 | #5 (permalink) |
Новичок
Регистрация: 16.12.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое за помощь в написании этой программы)))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|