Программирование на Pascal / Delphi / Лабораторная работа №2. Вариант 6
.docМинистерство образования Российской Федерации
Уфимский государственный авиационный технический университет
Ишимбайский филиал
ЛАБОРАТОРНАЯ РАБОТА №2
ПО ИНФОРМАТИКЕ
Тема: Ознакомление со средой Turbo Pascal. Составление простейших программ в среде Turbo Pascal.
Выполнил: Желонкин П., АТП-110
Проверил: Епифанов А.В.
Ишимбай, 2007г.
Задача №1.
Дано значение х. Получить значения — 2х + Зх2 — 4х3 и 1 + 2х + Зх2 + 4x3. Позаботиться об экономии операций.
Программа на языке ТР:
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, с является тройкой Пифагора, т.е. с2= а2+ b2.
Программа на языке ТР:
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.
Тестирование: