Язык программирования Паскаль. Структура программы. Линейные программы

Лабораторная работа №1

«Язык программирования Паскаль. Структура программы. Линейные программы.»

14 вариант

Задание к лабораторной работе: Составить программу для соответствующего варианта, отладить программу на компьютере и обработать результаты вычислений.

Ход выполнения работы:

Задача №14.

Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь.

Program Labа1_Var14

var

x1, y1, x2, y2, x3, y3, AB, AC, BC, p, S: real;

begin

writeln ('Введите координаты вершины A: ');

readln(x1, y1);

writeln ('Введите координаты вершины B: ');

readln(x2, y2);

writeln ('Введите координаты вершины C: ');

readln(x3, y3);

AB := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); { <-- Длина стороны AB }

AC := sqrt(sqr(x3 - x1) + sqr(y3 - y1)); { <-- Длина стороны AC }

BC := sqrt(sqr(x3 - x2) + sqr(y3 - y2)); { <-- Длина стороны BC }

p := (AB + AC + BC); { <-- Периметр треугольника ABC }

writeln;

writeln(' p = ', p:0:2); { <-- Выводим периметр }

p := p / 2; { <-- Находим полупериметр }

{ Площадь треугольника ABC за формулой Герона: }

S := sqrt(p * (p - AB) * (p - AC) * (p - BC));

writeln(' S = ', S:0:2);

readln

end.

[pic 1]

Задача №28.

Составить программу вычисления значений функции.

Program Labа1_Var14

uses crt;

var

x, y: integer;

begin

clrscr;

write ('x = '); readln (x);

if x > 0 then

y := x - 2

else

if x = 0 then

y := 0

else

y := abs (x);

writeln ('y = ', y);

readln;

end.

[pic 2]

Задача №38.

Даны катеты прямоугольного треугольника. Найти его периметр.

Program Labа1_Var14

var

a,b: real;

begin

write('Введите катеты a, b: ');

readln(a,b);

writeln('P = ',a + b + sqrt(a*a+b*b):0:2);

readln;

end.

[pic 3]

Задача №48.

Дано натуральное число n (n>9). Найти число единиц в нем.

var n:integer;

begin

write('Введите число '); readln(n);

writeln(n mod 10);

end.

[pic 4]

Задача №58.

Составьте программу, складывающую две обыкновенные дроби.

Program Labа1_Var14

uses crt;

var a1, a2, b1, b2, c1, c2: Integer;

begin

Writeln ('введите числитель первой дроби: '); Readln(a1);

Writeln ('введите знаменатель первой дроби: '); Readln(a2);

Writeln ('введите числитель второй дроби: '); Readln(b1);

Writeln ('введите знаменатель второй дроби: '); Readln(b2);

if a2=b2 then

begin

c2:=a2;

c1:=a1+b1;

end

else

begin

c2:=a2*b2;

c1:=a1*b2+a2*a1;

end;

Writeln ('результат: ', a1,'/',a2,' + ',b1,'/',b2,' = ',c1,'/',c2);

end.

[pic 5]

Лабораторная работа №2.

«Решение задач с использованием операторов языка Паскаль.»

Цель работы - приобретение навыков использования простых и составных

операторов языка Паскаль.

Выполнение работы:

1) Составить алгоритм и программу на языке Паскаль для заданного варианта.

2) Отладить задачу на компьютере с выводом программы и результатов на экран.

3) Защитить лабораторную работу.

Задача №51.

Даны вещественные координаты точки, не лежащей на координатных осях OX и OY. Вывести номер координатной четверти, в которой находится данная точка.

Program Labа2_Var14

var

X,Y: Real;

begin

  Writeln('Введите координаты точки: ');

  Write('Введите координату X: ');

  Readln (X);

  Write('Введите координату Y: ');

  Readln (Y);

if (X>0) and (Y>0) then Writeln('Точка лежит в I координатной четверти');

if (X<0) and (Y>0) then Writeln('Точка лежит во II координатной четверти');

if (X<0) and (Y<0) then Writeln('Точка лежит в III координатной четверти');