УРОК №25. Практическая работа №9. Программирование линейных алгоритмов
Практическая работа по теме: «Программирование линейных алгоритмов».
Запустите Free Pascal (ярлык на рабочем столе)
-
Выберите пункт меню File New
-
Ознакомьтесь с примером программы и выполните задачи для самостоятельного решения.
-
Пример. Даны два целых числа x и y. Вычислить их сумму, разность, произведение и частное.
Программа:
Program Pr1;
Uses crt;
Var x,y:integer;
S,P,R:integer; C:real;
Begin
Clrscr;
Writeln(‘введите два целых числа’);
Readln(x,y);
S:=x+y;
R:=x-y;
P :=x*y ;
C :=x/y ;
Writeln(‘сумма=’,S);
Writeln(‘произведение=’,P);
Writeln(‘разность=’,R);
Writeln(‘частное=’,C:6:3);
End.
Замечание: Четыре строки с выводом результатов можно заменить одной:
Writeln(‘сумма=’,S,‘ произведение=’,P,‘ разность=’,R,‘ частное=’,C:6:3);
После написания программы необходимо выполнить компиляцию и запуск программы на выполнение.
Если есть ошибки, то исправить их, если нет, запустить программу на выполнение.
Задачи для самостоятельного решения:
Дана длина ребра куба (вводится с клавиатуры). Найти площадь грани, площадь полной поверхности и объём куба.
-
Написать программу вычисления расстояния между двумя точками с координатами (х1;у1) и (х2;у2).
-
Вычислить длину окружности и площадь круга одного и того же радиуса R.
-
(=3,14)
Домашняя работа:
Вопросы и задания (ст.125-129)
Вариант №1 (нечётные номера в ШП) -№10
Вариант №2 (чётные номера в ШП) -№11
ДОПОЛНИТЕЛЬНО: