5.3Блок – схема алгоритма программы

Рис. 2 Блок схема алгоритма программы

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

program prim_1;

{вычисления по формулам}

var x,y:real;

sum,m,p:real;

begin

write('введите x=');readln(x);

write('введите y=');readln(y);

sum:=x*x+y*y;

m:=abs(x-y);

p:=x*y;

writeln('сумма квадратов=',sum:6:3);

writeln('модуль разности=',m:6:3);

writeln('произведение=',p:6:3);

readln;

end.

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

Вводим два числа, проверяя корректность работы программы: (1) при двух положительных числах, где Х больше Y; (2) при двух отрицательных числах, где Y больше X. Программа ведёт себя корректно.

1:

Введите Х = 3

Введите Y = 2

Ссума квадратов sum = 13.000

Модуль разности m = 1.000

Произведение р = 6.000

2:

Введите Х = -5

Введите Y = -2

Ссума квадратов sum = 29.000

Модуль разности m = 3.000

Произведение р = 10.000

Пример 2: Значения переменных А и В задаются оператором ввода. Программа должна отпечатать А > B, A < B или A = B в зависимости от значений А и В.

Рис.2. Блок-схема для условного оператора

Блок-схема приведена на рис.2. Алгоритм заключается в сравнении вводимых величин А и В и выводе на экран соответствующих сообщений.

program prim_2;
{использование условного оператора}
var a,b:real;
begin
    write('введите а=');readln(a); 
    write('введите b=');readln(b);
    if a>b then writeln('А больше В')
           else if a<b then writeln('А меньше В')
                       else writeln('А равно В');
end.

Пример 3: Сравнить возраст брата и сестры и выводит соответствующее сообщение.

Вариант 1:

var age1,age2: integer;

begin

write('Введите возраст брата: '); readln(age1);

write('Введите возраст сестры: ');readln(age2);

if age1>age2 then writeln('Брат старше.')

else if age1<age2 then writeln('Сестра старше.')

else writeln('Они близнецы.');

end.

Вариант 2:

var age1,age2: integer;

begin

write('Введите возраст брата: '); readln(age1);

write('Введите возраст сестры: ');readln(age2);

if age1>age2 then writeln('Брат старше.');

if age1<age2 then writeln('Сестра старше.');

if age1=age2 then writeln('Они близнецы.');

end.

Пример 4: Определить день недели известной даты.

var d,m,y: integer; n: longint;

begin

writeln('Введите день, месяц, год даты (например: 3 12 1964)');

readln(d,m,y);

if(m>=2)then m:=m+1

else

begin

m:=m+13; y:=y-1;

end;

n:=trunc(365.25*y)+trunc(30.6*m)+d-621050; n:=n-trunc(n/7)*7+1;

case n of

1: write('понедельник');

2: write('вторник');

3: write('среда');

4: write('четверг');

5: write('пятница');

6: write('суббота');

7: write('воскресенье');

end; writeln;

end.

6Практическая часть

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

Задание 1 Составить программу для вычисления по формулам. Предусмотреть задание исходных данных при помощи оператора ввода.

1. Треугольник задан длинами сторон a и b, и величиной угла С. Найти сторону с и площадь S данного треугольника.

; , где

Предусмотреть ввод угла  в градусах и перевод его в радианы:

2. Треугольник задан длинами сторон. Найти длины высот :

; ;

3. Треугольник задан длинами сторон. Найти длины медиан:

; ;

4. Треугольник задан длинами сторон. Найти длины биссектрис:

; ;

5. Треугольник задан длинами сторон. Найти углы треугольника:

; ;

6.Даны два угла треугольника A, B и высота h_a . Вычислить площадь треугольника и две стороны по формулам:

; ; ;

7. Даны два угла треугольника B,С и высота h_a . Вычислить длины всех сторон по формулам:

; ;

8. В треугольнике заданы сторона a и углы В и С. Найти площадь S и стороны b и c:

; ; ;

9. В треугольнике заданы сторона a, высота h_a и угол С. Найти стороны b,с и площадь S.

; ;

10. Треугольник задан координатами своих вершин. Найти площадь треугольника:

;

Замечание: расстояние между точками A(x₁, y₁) и B(x₂, y₂), расположенными на плоскости рассчитывается:

11. Треугольник задан координатами своих вершин. Найти периметр и площадь треугольника.

12. Вокруг треугольника со сторонами a, b, c описана окружность. Определить ее радиус R, угол треугольника A и площадь, ограниченную стороной a и радиусами, проведенными в вершины B, C.

; ;

13. В окружность радиуса R вписан правильный треугольник. Определить длину его стороны a, площадь S и площадь круга S₀ , вписанного в треугольник:

; ;

14. Вычислить значения Z1 и Z2 по формулам:

;

15. Опредлить дальность полета тела, запущенного с начальной скоростью V₀ с высоты h под углом к горизонту , пренебрегая сопротивлением воздуха. Траектория движения тела описывается уравнениями:

; , где , V_0x, V_0y - компоненты скорости V₀ вдоль осей X и Y. Замечание: в момент падения тела Y=0.

Задание 2. Составить программу для вычисления. Предусмотреть задание исходных данных при помощи оператора ввода.

1. Написать программу вычисления объема параллелепипеда. Значения вводятся с клавиатуры

2. Написать программу вычисления объема и площади поверхности шара.

3. Написать программу вычисления объема цилиндра.

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

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

6. Вычислить расстояние между двумя точками с координатами х1, у1 и х2, у2.

7. Треугольник задан длинами сторон. Найти: длины высот и медиан.

8. Вычислить период колебания маятника длины l.

9. Определить силу притяжения F между телами массы m1 и m2, находящимися на расстоянии r друг от друга.

10. Даны гипотенуза и катет прямоугольного треугольника. Найти второй катет и радиус вписанной окружности.

11. Даны два действительных числа a и b. Получить их сумму, разность и произведение.

12. Даны действительные числа x и y. Получить

13. Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел.

14. Даны два действительных числа. Найти среднее арифметическое и среднее геометрическое их модулей.

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

Задание 3: Составить программу с использованием условного оператора. Предусмотреть задание исходных данных при помощи оператора ввода.

1. Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), выдавать сообщение об ошибке.

2. Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных.

3. Написать программу вычисления сопротивления электрической цепи, состоящей из двух сопротивлений. Сопротивления могут быть соединены последовательно или параллельно.

4. Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в случае, когда коэффициент при второй степени неизвестного равен нулю, выводить соответствующее сообщение.

5. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 10% предоставляется, если сумма покупки больше 1000 руб.

6. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 3% предоставляется в том случае, если сумма покупки больше 500 руб., в 5% — если сумма больше 1000 руб.

7. Написать программу проверки знания даты основания Санкт-Петербурга. В случае неверного ответа пользователя программа должна выводить правильный ответ.

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

9. Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.

10. Написать программу проверки знания истории архитектуры. Программа должна вывести вопрос и три варианта ответа, а пользователь — выбрать правильный ответ и ввести его номер.

11. Даны действительные положительные числа x, y z. Выяснить существует ли треугольник с длинами сторон x, y z. Если треугольник существует, то ответить – является ли он остроугольным.

12. Даны действительные числа a₁, b₁, c₁, a₂, b₂, c₂. Выяснить, верно ли, что , и если верно, то найти решение системы линейных уравнений

(при выполнении неравенства система заведомо совместна и имеет единственное решение).

13. Вывести на экран большее из двух целых чисел

14. Даны целые числа a, b, c. Если a  b  c, то все числа заменить их квадратами, если a > b > c, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.

15. Вычислить значение функции:

Задание 4: Составить программу на использование оператора выбора Case

1. Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующее название времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение "Ошибка ввода данных".

2. Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: "Рабочий день", "Суббота" или "Воскресенье".

3. Написать программу, вычисляющую стоимость междугороднего телефонного разговора (цена одной минуты определяется расстоянием до города, в котором находится абонент). Исходными данными для программы являются код города и продолжительность разговора.

4. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 999), обозначающего денежную единицу, дописывает слово "рубль" в правильной форме. Например, 12 рублей, 21 рубль и т. д.

5. Написать программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 99), обозначающего денежную единицу, дописывает слово "копейка" в правильной форме. Например, 5 копеек, 41 копейка и т. д.

6. Написать программу, которая вычисляет дату следующего дня.

7. Написать программу, которая по номеру месяца выдает время года.

8. Написать программу преобразования цифр в слова.

9. Написать программу, классифицирующую треугольники (остроугольные, прямоугольные, тупоугольные), если даны углы.

10. Написать программу, которая в зависимости от того введена ли открытая скобка или закрытая, напечатать "открытая круглая скобка" или "закрытая фигурная скобка". (Учитывать круглые, квадратные, фигурные скобки).

11. Написать программу, которая в зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.

12. Напишите программу, которая по введенному числу из промежутка 0..24, определяет время суток.

13. Определить, является ли введенная буква русского алфавита гласной.

14. Написать программу, которая в зависимости от значения переменной А на экран выводится наименование оценки. Предусмотреть вывод сообщения об ошибке в случае, когда введено число вне интервала 2..5.

15. Написать программу, которая если переменная Ch будет буквой ('A'..'Z', 'a'..'z'), цифрой ('0'..'9') или оператором ('+', '-', '*', '/'), будет соответственно выдавать одно из сообщений 'Буква', 'Цифра', 'Оператор'. В противном случае программа напечатает сообщение 'Специальный символ'.