Практическая работа № 1
«Решение задач в среде Паскаль АВС»
Цель: закрепление навыка работы в среде Паскаль АВС, использование встроенного задачника.
План работы:
- Активизируйте пункт Файл и создайте новый файл (Новый).
- Наберите текст программы (см. ниже). При наборе текста программы соблюдайте позиционирование (отступы) строк. Это не влияет на работу программы, но делает ее читабельной и облегчает поиск ошибок.
- В следующей программе подсчитывается доход клиента за 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.
- Запустите программу на выполнение. Введите следующие данные:
Введите величину вклада в леях: 1000
Введите величину банковского процента. 10
В результате должен получиться ответ:
Ваш доход =100 лей
- Снова запустите программу и введите другие разумные исходные данные. Привыкайте понимать сообщения об ошибках!
- Вернитесь в текст, сотрите знак " ; " в любом месте программы и запустите ее на выполнение. Проанализируйте сообщение об ошибке (красная строчка с сообщением).
- Исправьте ошибку, затем сотрите точку после последнего End в программе. Эта ошибка часто встречается у начинающих. Запустите программу и посмотрите, как реагирует Паскаль на подобную ошибку.
- Сотрите любую букву, например, в слове writeln. Посмотрите, как реагирует Паскаль на подобную ошибку.
- Сотрите в блоке var объявленную переменную и посмотрите, как отреагирует компьютер на запуск программы с такой ошибкой. Запоминайте сообщения компьютера.
- Исправьте ваши ошибки и сохраните программу. Сделайте вывод о проделанных исправлениях в тексте программы.
- Напишите программу, соответствующую следующей задаче:
Запросить имя пользователя и его возраст. Определить год рождения (текущий год запросить с клавиатуры), вывести его на экран и попрощаться по имени.
Запомните:
тип integer для хранения целых чисел
тип real для хранения любых чисел, в том числе дробных
тип string для хранения слов и букв
clrscr очистить экран
write написать на экране и оставить курсор в текущей строке
writeln написать на экране и перейти на следующую строку
readln прочитать данные с клавиатуры и поместить их в переменную
- Выполните задания с Begin1° по Begin8°, с Begin31° по Begin34° по электронному задачнику. Открыть его можно в режиме Помощь – Электронный задачник РТ. Задачник откроется отдельным файлом в формате pdf.
