Программирование на Pascal / Delphi / Лабораторная работа №2. Вариант 6

Министерство образования Российской Федерации

Уфимский государственный авиационный технический университет

Ишимбайский филиал

ЛАБОРАТОРНАЯ РАБОТА №2

ПО ИНФОРМАТИКЕ

Тема: Ознакомление со средой Turbo Pascal. Составление простейших программ в среде Turbo Pascal.

Выполнил: Желонкин П., АТП-110

Проверил: Епифанов А.В.

Ишимбай, 2007г.

Задача №1.

Дано значение х. Получить значения — 2х + Зх² — 4х³ и 1 + 2х + Зх² + 4x³. Позаботиться об экономии операций.

Программа на языке ТР:

Program Ex1;

var x,y:real;

begin

readln(x);

y:=x*(-2+x*(3-4*x));

writeln(y);

y:=1+x*(2+x*(3+4*x));

writeln(y);

readln;

end.

Тестирование:

Задача №2

Данная тройка натуральных чисел а, b, с является тройкой Пифагора, т.е. с²= а²+ b².

Программа на языке ТР:

Program ex2;

var a,b,c:integer;

begin

readln(a,b,c);

if (sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c)) or (sqr(c)=sqr(a)+sqr(b))

then writeln('True')

else writeln('False');

readln;

end.

Тестирование:

Задача №3

Даны две точки А(x1,y1) и В(x2,y2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.

Программа на языке ТР:

program Ex3;

var x1,x2,y1,y2:real;

begin

writeln('A:');

readln(x1,y1);

writeln('B:');

readln(x2,y2);

if (sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2))

then writeln('A') else

if (sqr(x1)+sqr(y1))=(sqr(x2)+sqr(y2))

then writeln('OA=OB')

else writeln('B');

readln;

end.

Тестирование: