2 уровень сложности 1. Разработать схему алгоритма для ввода четырёх целых чисел и вычисления их среднего арифметического. Протестировать алгоритм на различных исходных данных (включая вещественные числа) и доказать правильность его работы. 2. Вводятся величины X,Y целого типа. Разработать схему алгоритма для обмена значений величин. Необходимо использовать вс величину Т. Протестировать алгоритм для X=5 и Y=-11. 3. Разработать схему алгоритма для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы алгоритма для вариантов, когда d>0, d=0 и d<0. 4. Из железной полосы длиной L метров нужно изготовить обруч. На соединение концов уходит D метров полосы. Разработать схему алгоритма для вычисления радиуса R обруча. Протестировать алгоритм для а) L=5.8, D=0.2, б) L=3.25, D=0.1 5. Найти площадь кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2). Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм для R1=5.6 и R2=3.8. Проверить ответ на калькуляторе. 6. Разработать схему алгоритма для вычисления выражения: S= (2x+y)(x-y) Протестировать алгоритм для следующих исходных данных: 1) x=2, y=1 2) x=3, y=0 3) x=0, y=-2
1.Постановка задачи разрабатывается организацией, разработчиком программной продукции, на основании технического задания совместно с заказчиком. Главный исполнитель — это разработчик
2.Алгоритм-Последовательность действий, приводящих к результату.
Блок-схема- Графический записи алгоритма.
Исполнитель алгоритма-Человек, компьютер, автомат.
Язык программирования-Знаковая система для записи компьютерных программ.
Программа-Последовательность действий, приводящих к результату.
Объяснение:
Удачи тебе в учёбе!
// Программы на писаны на PascalABC.NET
// 7.6:
var
number: integer;
Begin
For number := 1000 to 9999 do
if ((number mod 133 = 125) and (number mod 134 = 111)) then
WriteLn(number);
End.
// Нашлось одно единственное число: 1987
___________________________
// 7.7
var
Sum, a, b, c, count: integer;
Begin
count := 0;
// Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15
For a := 1 to 4 do
For b := 0 to 9 do
For c := 0 to 9 do
begin
Sum := a + b + c;
if (15 = Sum) then
count := count + 1;
end;
WriteLn('Кол-во искомых чисел: ', count);
End.
// Кол-во искомых чисел: 26