Вопрос № 80340: Помогите решить задачу. Запросите у пользователя символ и выведите на экран пять символов, предшествующих данному в таблице американских стандартных кодов обмена информацией. Проверьте, есть ли среди них знаки простейших математических действий
.Вопрос № 80341: Здравствуйте. Дана строка символов s. Известно, что символ s1 отличен от восклицаельного знака и что среди s2,s3.... есть по крайней мере один восклицательный знак. Пусть s1...sn - символы данной строки, предшествующие первому восклицательному знаку....
Вопрос № 80.340
Помогите решить задачу. Запросите у пользователя символ и выведите на экран пять символов, предшествующих данному в таблице американских стандартных кодов обмена информацией. Проверьте, есть ли среди них знаки простейших математических действий
Отправлен: 30.03.2007, 08:18
Вопрос задал: SashaFAN (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Ерёмин Андрей
Здравствуйте, SashaFAN!
Лёгкая задачка. Вот программа:
uses Crt;
var ch,ch2: char; c1: byte; i: integer; m: boolean;
begin
clrscr;
write('Введите символ: ');
readln(ch);
c1:=ord(ch)-1;
m:=false;
for i:=c1-4 to c1 do
begin
ch2:=chr(i);
if (ch2 = '+') or (ch2 = '-') or (ch2 = '*') or (ch2 = '/') then
m:=true;
write(chr(i),' ');
end;
writeln;
write('Знаки простейших математических операций ');
if m then
write('присутствуют.')
else
write('отсутствуют.');
readln;
end.
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Здравствуйте. Дана строка символов s. Известно, что символ s1 отличен от восклицаельного знака и что среди s2,s3.... есть по крайней мере один восклицательный знак. Пусть s1...sn - символы данной строки, предшествующие первому восклицательному знаку. Определить кол-во пробелов среди s1...sn
Отправлен: 30.03.2007, 08:18
Вопрос задал: SashaFAN (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Яна
Здравствуйте, SashaFAN!
1) Найти позицию восклицательного знака (с помощью функции pos или циклом)
2) Отрезать кусок строки до восклицательного знака
3) Посчтитать количество пробелов в полученной строке (с помощью цикла)
Ответ отправила: Яна (статус: Практикант)
Ответ отправлен: 30.03.2007, 08:35
Отвечает: Bingo
Здравствуйте, SashaFAN!
В принципе, если у Вас есть затруднения, то Вы можете посмотреть исходный код в приложении. Все работает по тому принципу, как Вам об этом уже писали.
Удачи!
Приложение:
--------- C темным пивом в светлое будущее!
Ответ отправил: Bingo (статус: 2-ой класс)
Ответ отправлен: 30.03.2007, 11:27
