Лабораторная работа №6 Pascal abc. Операторы условия.
Цель: ознакомиться с табличным процессором MS Ecxel; закрепить работу с таблицами и формулами в табличном процессоре.
Оборудование: ПК;
ПО: ОС Windows, Microsoft Excel.
Ход работы:
Время выполнения — 2 часа.
Цель работы:
Познакомиться с арифметическими выражениями и операциями.
Научиться составлять программы с использованием операторов условия.
Средства обеспечения занятия
Оборудование: ПК;
Программное обеспечение: OS Windows, Microsoft Word, Pascal ABC.
Задание
Выполнить задание в соответствии с установленным порядком;
Оформить отчет.
Выполнение:
Запустите интегрированную среду pascalabc.
В окне редактора наберите программу и сохраните файл под именем lab06.PAS
Задание 1.
Н
аберите
программу проверки числа на двузначность
и выполните ее:Сделайте скриншот и вставьте в отчет.
Самостоятельно измените программу так, чтобы она определяла трехзначное число.
Задание 2.
Из лабораторной работы №4 возьмите задание №2 и напишите программу, которая будет вычислять значение функции.
Контрольные вопросы:
Типы данных в Pasacl ABC.
Назовите арифметические операции и приведите пример использования их в программе.
Требования к отчету:
Название работы.
Цель работы.
Постановка задачи.
Скриншоты выполненных заданий.
Ответы на вопросы.
Выводы.
Лабораторная работа №7 Pascal abc. Операторы цикла
Цель: ознакомиться с табличным процессором MS Ecxel; закрепить работу с таблицами и формулами в табличном процессоре.
Оборудование: ПК;
ПО: ОС Windows, Microsoft Excel.
Ход работы:
Время выполнения — 2 часа.
Цель работы:
Познакомиться с циклической конструкцией For.
Научиться составлять программы с использованием оператора цикла с параметром.
Средства обеспечения занятия
Оборудование: ПК;
Программное обеспечение: OS Windows, Openoffice.org Writer, Pascal ABC.
Задание
Выполнить задание в соответствии с установленным порядком;
Оформить отчет.
For <параметр цикла> := <начальное значение параметра цикла> to <конечное значение параметра цикла> do
Begin <операторы (тело цикла)> end;
For..downto…
Выполнение:
Пример: Вычислить сумму: s = 1 + 2+ 3 + … + n.
Program summa; {нахождение суммы чисел}
Var n,s,i: integer; {описание переменных: целого типа}
Begin
Writeln ('введите натуральное число n');
Readln (n);
S:=0;
For i:=1 to n do
S:=s+i;
Writeln ('cумма ' ,n, ' чисел равна ',s)
End.
№ варианта |
Задание |
|
|
Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + … + 1/N (вещественное число).
|
|
|
Составьте программу вычисления суммы чисел в диапазоне от 1 до 100.
|
|
|
Составьте программу вычисления произведения чисел от 1 до 10. 1*2*3*...*10 (целое число). |
|
|
Составьте программу, которая находит сумму квадратов чисел от 1 до 10. 12+22+32+...+102. |
|
|
Составьте программу вычисления суммы чисел в диапазоне от 5 до 65. 5+6+7+... ...+65 |
|
|
Составьте программу вычисления суммы чисел кратных 5 в диапазоне от 1 до 100. |
|
|
Составьте программу вычисления суммы чисел кратных 7 в диапазоне от 1 до 100. |
|
|
Составьте программу вычисления суммы чисел в диапазоне от 13 до 113. 13+14+15+... ...+113 |
|
|
Составьте программу вычисления суммы чисел в диапазоне от 15 до 95. 15+16+17+... ...+95
|
|
|
Составьте программу вычисления суммы чисел в диапазоне от 25 до 115. 25+26+27+... ...+115
|
|
|
Составьте программу вычисления суммы чисел кратных 4 в диапазоне от 4 до 100. 4+8+12+…..+100.
|
|
|
Составьте программу вычисления суммы чисел в диапазоне от 45 до 115. 45+46+47+... ...+115
|
|
|
Составьте программу вычисления суммы чисел кратных 6 в диапазоне от 6 до 100.
|
Контрольные вопросы:
1. В каких случаях в программе используется оператор for?
2. Какие формы оператора for вы знаете?
3. Чем отличается формы «to» и «downto» оператора for?
4. Можно ли изменять параметр цикла в теле цикла?
5. Какой тип данных может иметь параметр цикла?
Требования к отчету:
Название работы.
Цель работы.
Постановка задачи.
Скриншоты выполненных заданий.
Ответы на вопросы.
Выводы.
Литература: