Пример на ввод и вывод данных и условия в Pascal Программа для анкетирования на паскаль
В этой статье мы напишем программу на паскале, в которой будет организован ввод данных и вывод информации на экран, в программе будут использованы условия. Мы напишем программу на паскале для анкетирования, она будет опрашивать пользователя об его интересах и анализировать полученные ответы на предмет совпадения с ответами, заложенными в программе.
Рассмотрим структуру программы опроса на паскале.
Введём переменную k для подсчета количества совпавших предопределённых ответов и ответов пользователя
var k: integer;
var a1,a2,a3,a4: integer; // номера правильных ответов
Придаём переменным значения с номерами ответов
k:=0;
a1:=3;
a2:=1;
a3:=3;
a4:=2;
Спрашиваем имя пользователя при помощи операции readln() ввода информации с клавиатуры в паскале
writeln('Как вас зовут?');
readln(n);
Задаём вопрос и получаем на него ответ пользователя
print("Здравствуйте",n)
writeln('Ваш любимый жанр литературы? 1- классика, 2 - фантастика, 3 - детективы,');
readln(a);
Анализируем совпадения ответов, используя условный оператор if в паскале. Если ответ совпал с предопределенным, то увеличиваем число совпавших ответов на 1.
if (a = a1) then begin
k:=k+1;
end;
В конце программы проводим анализ числа совпадений и делаем вывод о схожести интересов.
if (k>=2) then begin
writeln('Мы с вами подружимся');
end;
if (k<2) then begin
writeln('Мы с вами очень разные');
end;
Полный текст программы опроса, анкеты на паскале
var k: integer; // количество совпавших ответов
var a1,a2,a3,a4: integer; // номера правильных ответов
var n: string;
var a: integer;
begin
k:=0;
a1:=3;
a2:=1;
a3:=3;
a4:=2;
writeln('Как вас зовут?');
readln(n);
writeln('Ваш любимый жанр литературы? 1- классика, 2 - фантастика, 3 - детективы,');
readln(a);
if (a = a1) then begin
k:=k+1;
end;
writeln('Ваш любимый жанр кино? 1- научная фантастика, 2 - документальные фильмы, 3 - сериалы,');
readln(a);
if (a = a2) then begin
k:=k+1
end;
writeln('Ваш любимый цвет? 1- красный, 2 - синий, 3 - зелёный,');
readln(a);
if (a = a3) then begin
k:=k+1
end;
writeln('Ваш любимый жанр музыки? 1- рок, 2 - рэп, 3 - классика,');
readln(a);
if (a = a4) then begin
k:=k+1
end;
if (k>=2) then begin
writeln('Мы с вами подружимся');
end;
if (k<2) then begin
writeln('Мы с вами очень разные');
end;
end.
Перейти к содержанию курса по Pascal
Поделиться: