program searchname; (Имя программы)var a,b,c:string; (объявляем переменные a, b, c состоящими из букв)
begin (Начало программы)
writeln ('Введите свое имя '); (Просим ввести имя)
read (a); (даем возможность ввести значение a (пользователь думает что вводит имя)
if a='Юрий' then (Тут наш оператор. Переводим на русский: Если а='Юрий' то (then переводится как "ТО" и используется после IF)
b:=' Паршутин'; (Если пользователь ввел имя Юрий то b(фамилия)=Паршутин
c:=' Алексеевич'; (c(отчество)=Алексеевич
writeln ('Ваше имя: ' , a); (Пишем ваше имя: Юрий)
writeln ('Ваша фамилия: ' , b); (Фамилия: Паршутин)
writeln ('Ваше отчество:' , c); (Отчество: Алексеевич)
writeln ('Приветствую, ' , b, ' ', a, ' ', c); (Выводим Имя фамилию отчество в порядке ФИО)
read; (Тормозим программу чтобы не закрылась сама)
end. (Завершение)
Результат
Введите свое имя
Юрий
Ваше имя: Юрий
Ваша фамилия: Паршутин
Ваше отчество: Алексеевич
Приветствую, Паршутин Юрий Алексеевич
Эта программа ищет соответствие по имени. Такие программы используют в регистратурах, банках и т.п То есть если мы вводим только имя человека, то программа выдает нам полные данные о нем.
На сегодня все.
Вот чистый код:
program searchname;
var a,b,c:string;
begin
writeln ('Введите свое имя ');
read (a);
if a='Юрий' then
b:=' Паршутин';
c:=' Алексеевич';
writeln ('Ваше имя: ' , a);
writeln ('Ваша фамилия: ' , b);
writeln ('Ваше отчество:' , c);
writeln ('Приветствую, ' , b, ' ', a, ' ', c);
read;
end.
Если после оператора then будет больше чем одна строка надо писать begin и end Например
var s:string;
begin
read (s);
if s='demon' then
writeln ('Тут мы писали begin потому что после then более 1 строки');
write ('Ведь так?');
end
else write ('Это пишем по желанию');
end.
