сервис вопросов и ответовPascal, помогите.
10-11 класс|
|
Запросите у пользователя символ и выведите на экран 5
символов, следующих за ним в таблице американских стандартных кодов обмена
информацией. Проверьте, есть ли среди них знаки препинания.
МаШкА2222
03 марта 2017 г., 8:14:33 (7 лет назад)
Масяньчик
03 марта 2017 г., 8:59:14 (7 лет назад)
uses crt;
var i,n,znak:integer;
a:char;
begin
clrscr;
Writeln('Введите символ:');
readln(a);
writeln;
znak:=0;
for i:=1 to 5 do
begin
n:=ord(a);
n:=n+i;
writeln(i,') ',chr(n));
if (n = 44) or (n = 45) or (n = 46) or (n = 58) or (n = 59) or (n = 33) or (n = 63) or (n = 34) then
znak:=znak+1;
end;
if znak = 0 then writeln('Нет знаков препинание.')
else writeln('В следующем 5 символе оказалась ',znak,' знак(ов) препинание');
readkey;
end.
Ответить
Другие вопросы из категории
1.Выполнить отладку следующей программы:
A) SCREEN 9
FOR X=1 TO 640
CLS
CIRCLE(Х+I, 100),30,2
FOR J=1 T0 5000
NEXT J
CIRCLE(Х+1,100),30,0
NEXT X
Б) Изменить эту программу таким образом, чтобы окружность двигалась по экрану сверху вниз.
Pascal.Не могу нормально вывести S которое вычисляется в процедуре. Если просто выводить переменную S то показывает 0. Как нормально вывести S? Программа
считает всё правильно, но с выводом проблемы.
program kr_pr_4;
procedure fgerona(a,b,c:real);
var
p,s:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
end;
var
a,b,c,s,p:real;
begin
writeln('Введите сторону А');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону C');
read(c);
fgerona(a,b,c);
writeln('S = ',s);
end.
Читайте также
Програмирование в pascal, помогите, скиньте работающую программу. Дано четырёхзначное число. Найдите среднее арифметическое его средних цифр.
только пожалуйста без sum
Pascal.Помогите решать хотя бы некоторые!!!Очень нужно.
Задача 1. Ввести три вещественных числа: длины сторон треугольника. а) Напечатать существует ли треугольник с такими длинами сторон; б) Если треугольник существует, то напечатать тип треугольника: остроугольный,
прямоугольный или тупоугольный.
Задача 2. Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В
какую секунду впервые появится число, делящееся на 2009?
Задача 3. Текст состоит из слов, разделенных пробелом. Найти самое длинное слово. Если таких слов несколько, то напечатать последнее. Задача 4. Ввести натуральное число N. Это число записывается в виде суммы нескольких неубывающих натуральных слагаемых. Например, 5=1+4=2+3=1+1+3=1+1+1+2=1+1+1+1+1
Напечатать количество таких изложений (при n=5, ответ 5);
Пусть
y0 = 0; yk = (yk-1 + 1)/(yk-1 + 2), k = 1, 2, …
Дано действительное число ε > 0. Найти первый член yn, для которого вы-
полнено yn – yn-1 < ε.
Pascal, помогите решить.
Помогите, пожалуйста, решить задачу:
Дан вектор из 25 элементов. Найти минимальное значение. Записать на языке Pascal и построить алгоритм.
Вы находитесь на странице вопроса "Pascal, помогите.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.