![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#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. помоги пожалуйста |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Разбирайся, что не поймешь, спрашивай, но вроде все ясно.
Код:
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
мне надо в турбо паскале 7
все надо сделать с развилками препод не поверит что я написал, если не тяжело просто дополните мой первый пост там есть скелет программы. заранее спасибо |
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
А это что, на китайском? Я и так в Турбо Паскале 7,0 пишу, или что второй раз видите? Если думаете что if ... then ... else легче, то пожалуйста:
Код:
|
![]() |
![]() |
![]() |
#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)) вот эти места непонятны вообще в паскале в школе максимум вычисляли площадь треугольника и так далее, большое спасибо вам за помощь |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 06.08.2007
Сообщений: 2,183
|
![]()
вот с ифами:
Код:
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 28.10.2008
Сообщений: 77
|
![]()
большое спасибо!!!
|
![]() |
![]() |
![]() |
#8 | ||
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]() Цитата:
Цитата:
|
||
![]() |
![]() |
![]() |
#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 |