Задача 1. Вычислить среднее арифметическое 5 целых случайных чисел, которые выбираются из диапазона от -15 до +20. Задача 2. Вычислить выражение , где t – случайное вещественное число, целая часть которого лежит в диапазоне от -4 до +4. Задача 3. Написать программу, которая выводит арифметический пример для вычисления, запрашивает ответ и выводит соответствующее сообщение (“Верно” или “Неверно” Общая формула для арифметического примера: (A+B)·C–D. Для примера выбираются случайные двузначные числа от 20 до 60. Задача 4. Сгенерировать случайное число в диапазоне от -20 до 50 и вывести его на экран. Задача 5. Сгенерировать случайное число в диапазоне от a до b и вывести его на экран. Границы диапазона вводятся пользователем, причем a < b. Задача 6. Вычислить выражение , где d – случайное вещественное число, целая часть которого лежит в диапазоне от 3 до 15. Задача 7. Вычислить выражение , где a – случайное число в диапазоне от -5 до +5, d – случайное число в диапазоне от 2 до 21.
Ответы
Эмм это не 1-4классы
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Число 410=1002 в восьмиразрядном представлении имеет вид:
Автор: vantoslaltd
А)информация понятна , если она - б) сообщение может пополнить знания человека , если- !
Автор: muzaffarovich-Sergei1777
ага
Объяснение: