Набор следующей программы.

9. Активизируйте пункт Файл и создайте новый файл (Новый).

10. Наберите текст программы (см. ниже). При наборе текста программы соблюдайте позиционирование (отступы) строк. Это не влияет на работу программы, но делает ее читабельной и облегчает поиск ошибок.

11. В следующей программе подсчитывается доход клиента за 1 год в зависимости от банковского процента и от величины денежного вклада.

Внимание! Текст в фигурных скобках является пояснением: его не нужно набирать. Обратите внимание на значение служебных слов языка.

program doxod; {название программы}

uses crt; {подключаемые модули (библиотеки)}

var b,a:integer; {объявление переменных и их типа}

c:real;

begin {начало программы}

clrscr; {очистка экрана}

writeln('Доход от вклада'); {вывод текста на экран

с переводом курсора на следующую строку}

write( 'Введите величину вклада в рублях: ' ); {вывод текста на экран без перевода

курсора на следующую строку}

readln(b); {ввод целого числа в

переменную b с переходом на

следующую строку}

write('Введите величину банковского процента ');

readln(a);

c:=a*b/100; {расчет значения переменной с}

writeln('Ваш доход =',c,' рублей'); {вывод текста, значения переменной и текста}

end.

12. Запустите программу на выполнение. Введите следующие данные:

Введите величину вклада в рублях: 1000

Введите величину банковского процента. 10

В результате должен получиться ответ:

Ваш доход =100 рублей

13. Снова запустите программу и введите другие разумные исходные данные.

Привыкайте понимать сообщения об ошибках!

14. Вернитесь в текст, сотрите знак " ; " в любом месте программы и запустите ее на выполнение. Проанализируйте сообщение об ошибке (красная строчка с сообщением).

15. Исправьте ошибку, затем сотрите точку после последнего End в программе. Эта ошибка часто встречается у начинающих. Запустите программу и посмотрите, как реагирует Паскаль на подобную ошибку.

16. Сотрите любую букву, например, в слове writeln. Посмотрите, как реагирует Паскаль на подобную ошибку.

17. Сотрите в блоке var объявленную переменную и посмотрите, как отреагирует компьютер на запуск программы с такой ошибкой. Запоминайте сообщения компьютера.

18. Исправьте ваши ошибки и сохраните программу.

19. Напишем программу, соответствующую следующей задаче:

Запросить имя пользователя и его возраст. Определить год рождения (текущий год запросить с клавиатуры), вывести его на экран и попрощаться по имени.

program vozrast;

uses crt;

var voz, gr, tg:integer; {для возраста, года рождения, текущего года: целые числа}

im:string; {для имени: буквы, слова}

begin

clrscr;

write( 'Как тебя зовут? ' );

readln(im);

write('Сколько тебе лет? ');

readln(voz);

write('Какой сейчас год? ');

readln(tg);

gr:=tg-voz;

writeln('Ты родился в ',gr,' году');

writeln('До свидания, ',im);

end.

Запомните:

тип integer для хранения целых чисел

тип real для хранения любых чисел, в том числе дробных

тип string для хранения слов и букв

clrscr очистить экран

write написать на экране и оставить курсор в текущей строке

writeln написать на экране и перейти на следующую строку

readln прочитать данные с клавиатуры и поместить их в переменную