Главная | Обратная связь

Необходимо выполнить 3 любых задания на выбор.

Лабораторная работа 8

Знакомство с Consol application (консольное приложение)

Цель работы: изучить консольное приложение Delphi

Продолжительность работы - 2 часа.

 

Задания выполняются максимум по 2 человека (но каждый делает свой отчет и в со своим порядковым номером в журнале).

Необходимо выполнить 3 любых задания на выбор.

 

Теоретические сведения:

1. Writeln (‘значение переменной равно’,y);

где

Writeln – вывод на экран дисплея

‘значение переменной равно’ – выводимое сообщение

Y – значение переменной у выведется на экран.

2. Readln (у);

где

Readln – считывание с экрана дисплея

У- считываемая переменная.

 

Задание:

1. Необходимо найти периметр и площадь четырехугольника;

2. Необходимо найти корни квадратного уравнения;

3. Даны 4 целых числа. Выяснить, можно ли построить четырехугольник с такими сторонами.

4. Даны три действительных числа. Выбрать из них те, которые принадлежат интервалу (1, 3).

5. Даны действительные числа x, y. Если x, y отрицательны, то каждое значение заменить его модулем; если отрицательное только одно из них, то оба значения увеличить на 0.5; если оба значения не отрицательны и ни одно из них не принадлежит отрезку [0.5, 2.0], то оба значения уменьшить в 10 раз; в остальных случаях x, y оставить без изменения.

6. Даны 3 целых числа. Выяснить, можно ли построить треугольник с такими сторонами

7. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.

 

Пример1: Определить расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1) и M2(x2,y2)

Этапы решения задачи:

1. Математическая модель: расстояние на плоскости между двумя точками

M1(x1,y1) и M2(x2,y2) высчитывается по формуле

2. Составим схему алгоритма

 

Дальнейшая детализация не требуется. Переводим блок-схему на язык Delphi.

1. Запустить Delphi

2. Для того чтобы открыть консольное приложение следует сделать следующее: File/New/Other/ Consol application

3. Набираем код программы

program Project1;

 

{$APPTYPE CONSOLE}

 

uses

SysUtils;

 

var x1, x2, y1, y2: integer;

d:real;

begin

writeln('program vichicliat rasstoianie megdy 2 tochkami na ploskosti');

writeln('vvedite koordinati 2 tochek:');

write('x1= '); readln(x1);

write('y1= '); readln(y1);

write('x2= '); readln(x2);

write('y2 ='); readln(y2);

d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

writeln('d= ',d:4:2);

writeln('nachmiti Enter dlia zaverchenia raboti program');

readln;

end.

 

Требования к отчету

Отчет должен содержать:

1) название и цель работы;

2) алгоритмы всех программы;

3) эскиз, показывающий расположение выбранных компонентов в форме;

4) значения используемых свойств компонентов для их настройки;

5) тексты обработчиков событий

6) вывод по работе.