Практическая работа на тему "Программирование линейных алгоритмов" 8 класс

Практическая работа по теме: «Программирование линейных алгоритмов».

1.     Запустите   Free Pascal  (ярлык на рабочем столе)

2.     Выберите пункт меню    File ® New

3.     Ознакомьтесь с примером программы и выполните задачи для самостоятельного  решения.

Пример.  Даны два целых числа 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 ;

Замечание: Четыре строки  с выводом результатов можно заменить одной: Writeln(‘сумма=’,S,‘  произведение=’,P,‘  разность=’,R,‘  частное=’,C:6:3);

C :=x/y ;

Writeln(‘сумма=’,S);

Writeln(‘произведение=’,P);

Writeln(‘разность=’,R);

Writeln(‘частное=’,C:6:3);

End.

После написания программы необходимо выполнить компиляцию и запуск программы на выполнение.

Компиляция:                      Выбрать пункт меню Compile ® Compile

                                              В появившемся окне  в поле Name набрать имя файла и нажать ok

Если есть ошибки, то  исправить их, если нет, запустить программу на выполнение.

Запуск программы:          Выбрать пункт меню Ran ® Ran

Задачи для самостоятельного решения:

1.     Дана длина ребра куба (вводится с клавиатуры). Найти площадь грани, площадь полной поверхности и объём куба.

2.     Написать программу  вычисления расстояния между двумя точками с координатами (х1;у1) и (х2;у2).

3.     Вычислить длину окружности и площадь круга одного и того же радиуса R.
    (p=3,14)

4.     Выход из среды    File ® Exit