Текст программы

Program Tochka;

{Определение местоположения точки на плоскости.

Входные данные: x, y - координаты точки

Выходные данные: s - сообщение}

Var x, y: Real;

s: String;

Begin

{Ввод исходных данных}

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

ReadLn(x, y);

{Анализ координат}

If (x = 0) And (y = 0)

Then s:= ' в начале координат'

Else If(((x+1)*(x+1)+(y-1)*(y-1))<1)AND(x<-1)AND(y>1) {Область М1?}

Then s:= ' в области М1'

Else If(x>1)AND(x<2)AND(y<2)AND(y>x-1) {Область М2?}

Then s:= ' в области М2'

Else If(x*x+y*y<1)AND(((x+1)*(x+1)+(y-1)*(y-1))<1) {Область М3?}

Then s:= ' в области М3'

Else If(x>-2)AND(y<0)AND(y>x+1) {Область М4?}

Then s:= ' в области М4'

Else If(((x-1)*(x-1)+(y+1)*(y+1))<1)AND(x*x+y*y>1){Область М5?}

Then s:= ' в области М5'

Else s:= ' вне всех обозначенных областей';

{Вывод сообщения}

WriteLn('Положение точки:', s);

ReadLn;

End.

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

Управляющая структура «Выбор варианта»

Цель лабораторной работы: изучение концепций и освоение технологии структурного программирования, приобретение навыков структурного программирования на языке Турбо Паскаль многовариантных вычислений.

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

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

1) Получить у преподавателя индивидуальное задание и выполнить постановку задачи: сформулировать условие, определить входные и выходные данные.

2) Разработать математическую модель:

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

- выявить ключ выбора - данное целого типа, значения которого могут служить ключами различных вариантов выполнения действий;

- с помощью формул описать варианты получения выходных данных задачи в зависимости от значения ключа выбора варианта.

3) Построить схему алгоритма решения задачи.

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

5) Входные данныевводить с клавиатуры по запросу.

6) Выходные данные выводить на экран в развернутой форме с пояснениями.

7) Проверить и продемонстрировать преподавателю работу программы на полном наборе тестов, в том числе с ошибочными входными данными.

8) Оформить отчет о лабораторной работе в составе: постановка задачи, математическая модель, схема алгоритма решения, текст программы, контрольные примеры.

Варианты индивидуальных заданий

Определить название месяца года, следующего за заданным месяцем.

Определить название k-го месяца после заданного месяца года.

Определить название столицы по заданному названию страны.

Определить название десятичной цифры по заданному ее значению.

Определить написание заданной десятичной цифры римскими цифрами.

Определить двоичный код заданной десятичной цифры.

Определить сезон года (зима, весна, лето, осень), на который приходится заданный месяц.

Определить название континента (Азия, Америка, Африка, Европа) по заданному названию страны.

Определить название цвета радуги, следующего за заданным цветом.

Определить название интервала (секунда, терция, кварта, квинта, секста, септима), образованного двумя заданными нотами (до, ре, ми, фа, соль, ля, си).

Определить величину в метрах некоторой длины, заданной в одной из указанных единиц измерения (километр, метр, дециметр, сантиметр, миллиметр).

Для целого числа k от 1 до 130 вывести фразу “Мне k лет”, учитывая при этом, что при некоторых значениях k слово “лет” надо заменить словом “год” или “года”.

Для натурального числа k вывести фразу “Мы нашли k грибов в лесу”, согласовав слово “гриб” с числом k.

Для целого числа d от 1 до 9999, обозначающего денежную единицу, дописать слово “рубль” в правильной форме.

Для целого числа d от 1 до 9999, обозначающего денежную единицу, дописать слово “копейка” в правильной форме.

Вычислить стоимость междугородного телефонного разговора заданной продолжительности. Цена одной минуты определяется по указанному коду города.

Вывести указанное слово из группы однотипно склоняемых слов (степь, боль, тетрадь, дверь) в заданном падеже (им., род., дат., вин., твор., предл.).

Корабль сначала шел по заданному курсу (север, восток, юг, запад). Затем его курс был изменен согласно заданному приказу (вперед, вправо, назад, влево). Определить новый курс корабля.

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

Определить, образует ли заданная тройка чисел y (год), m (месяц), d (день) правильную дату.

По заданной дате d (день), m (месяц), y(год) определить дату d1, m1, y1 следующего дня.

Определить порядковый номер того дня високосного года, который имеет заданную дату d (день), m (месяц).

Определить d (день), m (месяц) – дату k-го по счету дня високосного года.

Считая, что год не високосный и его 1 января приходится на день недели wd1, определить wd – день недели, на который приходится день с датой d (день), m (месяц).

Считая, что год не високосный и его 1 января приходится на день недели wd1, определить количество пятниц в году, приходящихся на 13-е числа месяца.

Пример программы

Program PloFig;

{Вычисление площадей геометрических фигур.

Входные данные: t - тип фигуры,

a,l,h,r - параметры фигур.

Выходные данные: s - площадь фигуры.}

Var

t:Byte;

a,l,h,r,s:Real;

Begin {Ввод и контроль}

WriteLn('Задайте тип фигуры:');

Write('1-квадрат,2-прямоугольник,3-круг? ->');

ReadLn(t);

If (t<1)or(t>3)

Then Begin

WriteLn('Ошибочный тип фигуры!');

Write(‘Нажмите Enter ->’);

ReadLn; Halt;

End;

{Вычисление площади}

Case t Of

1: Begin

Write('Размер стороны квадрата? ->');

ReadLn(a);

s:=a*a;

End;

2: Begin

Write('Размеры сторон прямоугольника? ->');

ReadLn(l,h);

s:=l*h;

End;

3: Begin

Write('Величина радиуса круга? ->');

ReadLn(r);

s:=Pi*r*r;

End;

End;

WriteLn('Площадь фигуры: ',s:7:2);

End.