Пример, который был на занятии.
Программа организует диалог человека с компьютером:
Uses Crt;
Var
name, r1, r2 : string;
n : integer;
Begin
writeln('Привет! Кого я вижу!');
writeln('Как тебя зовут?');
readln(name);
writeln('Привет, ' , name, '!');
writeln('А я - компьютер №1');
writeln('А сколько тебе лет?');
readln(n);
writeln(n,' это много. А мне 10.');
writeln;
writeln('Давай стихи сочиним. Дай мне два слова в рифму');
write('Первое слово: ');
readln(r1);
write('Второе слово: ');
readln(r2);
writeln('На меня снизошло вдохновение. Смотри, что я сочинил:');
writeln;
writeln('На заборе сидит ', r1);
writeln('на земле лежит ', r2);
writeln;
writeln('Ну все, пока. Иди физику учи!');
End.
Комментариев нет:
Отправить комментарий