|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.10.2008, 19:01 | #1 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
помогите с программой
Написать в ТР программу реализующие следующие действия:
Запросить и ввести с клавиатуры символ, если символ буква латинского алфавита то напечатать три буквы латинского алфавита следующие после нее в другом регистре. Если введенный символ цифра то написать сумму цифр стоящих до и после заданной. В противном случае сообщить что символ не буква и не цифра. скелет вот такой я думаю, а как дальше не знаю program bykBa_Cifra; {Романов Антон ЭЭ 31-08} var symbol:char; begin writeln('введите символ '); readln(symbol); if{Латинская буква } then begin {действия по букве } end else if{цифра} then begin {действия по цифре } end else writeln('символ не буква латинского алфавита и не цифра ') readln end. помоги пожалуйста |
28.10.2008, 20:08 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Разбирайся, что не поймешь, спрашивай, но вроде все ясно.
Код:
|
28.10.2008, 20:11 | #3 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
мне надо в турбо паскале 7
все надо сделать с развилками препод не поверит что я написал, если не тяжело просто дополните мой первый пост там есть скелет программы. заранее спасибо |
28.10.2008, 20:36 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
А это что, на китайском? Я и так в Турбо Паскале 7,0 пишу, или что второй раз видите? Если думаете что if ... then ... else легче, то пожалуйста:
Код:
|
28.10.2008, 20:48 | #5 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
if c in ['A'..'W'] then write(chr(ord(c)+33),chr(ord(c)++34 ),chr(ord(c)+35))
else if c in ['a'..'w'] then write(chr(ord(c)-31),chr(ord(c)-30),chr(ord(c)-29)) вот эти места непонятны вообще в паскале в школе максимум вычисляли площадь треугольника и так далее, большое спасибо вам за помощь |
28.10.2008, 20:49 | #6 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
вот с ифами:
Код:
|
28.10.2008, 20:56 | #7 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
большое спасибо!!!
|
28.10.2008, 20:56 | #8 | ||
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Цитата:
|
||
28.10.2008, 20:59 | #9 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
хорошо спасибо еще раз
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с программой | Panda | Помощь студентам | 4 | 07.07.2008 18:13 |
Помогите с программой(( | stan1k | Фриланс | 4 | 10.05.2008 16:16 |
помогите с программой | LexusSPb | Фриланс | 2 | 04.09.2007 16:29 |