Программа:
arr: array of integer;
n, i, sum: integer;
write(‘Количество учеников: ‘); readln(n);
for i := 0 to n — 1 do begin
arr[i] := random(2, 5);
writeln(‘Оценки учеников в классе: ‘, arr);
writeln(‘Средняя оценка: ‘, sum/n);
Для начала выделяем память массиву целых чисел, после — регистрируем переменные, которые будем использовать далее. Запрашиваем кол-во учеников (это и будет размерностью массива), устанавливаем длину массива — введённое число n. Циклом проходима по элементам массива, устанавливаем рандомное значение от 2 до 5 и суммируем элементы. В конце выводим сам массив и высчитываем среднюю оценку как среднее арифметическое чисел.
Источник: vashurok.com
Разработать алгоритм, писать его с помощью блок-схемы и написать текст программы на языке Pascal для решения следующей задачи: Заданы числа X,Y,Z. Найти сумму четных чисел и произв
Разработать алгоритм, писать его с помощью блок-схемы и написать текст программы на языке Pascal для решения следующей задачи: Заданы числа X,Y,Z. Найти сумму четных чисел и произведение нечетных.
Пример решения задач на Pascal #1
Код к задаче: «Разработать алгоритм, писать его с помощью блок-схемы и написать текст программы на языке Pascal для решения следующей задачи: Заданы числа X,Y,Z. Найти сумму четных чисел и произв»
Листинг программы
program one ; var X,Y,Z,resmul,resadd: integer; procedure AddMul(a : integer; var ba,bm : integer); begin if (a and 1) = 1 then ba := ba+a else bm := bm*a ; end; begin resadd := 0 ; resmul := 1 ; Write(‘Input X,Y,Z ‘); Readln(X,Y,Z); AddMul(X,resadd,resmul); AddMul(Y,resadd,resmul); AddMul(Z,resadd,resmul); Writeln(‘ resadd= ‘, resadd, ‘ resmul =’, resmul); Readln (X) ; end.
Источник: studassistent.ru
Составить программу на языке паскаль для решения следующей задачи
1)Составьте и. напишите программу для вычисления 10x+12x²+204
2)Напишите логическое выражение на языке Паскаль для решения следующей задачи:
Условие верно (Вывести на экран «верно») если с меньше 55 и больше 4
3) Запишите условие на языке Паскаль для выражения:
Увеличить число b на 5, если b кратно 2 и уменьшить на 4 в противном случае.
4)исправить ошибки в следующем фрагменте программы:
var l, k:real; s: real;
begin
k=81
s:=4
for i=1 to k
s=s/2
end
Решение задач #5 Pascal
Похожие вопросы:
- РЕШИТЕ! А не пишите какой-то бред решите хотя бы 10 задач! 1. Дано целое число
- Кто в этом разбирается? Помогите 1. Составить линейный алгоритм и программу вычисления периметра прямоугольника, если
- А1. Наличие в России Государственной Думы, Правительства РФ, Верховного Суда РФ является признаком: 1) Верховенства
Ответы: 1 шт. →
Ответ: 1) # Считываем значение переменной x с клавиатуры x = float(input(«Введите значение переменной x: «)) # Вычисляем значение выражения result = 10 * x + 12 * (x ** 2) + 204 # Выводим результат на экран print(«Значение выражения при x =», x, «равно», result) 2) if (a > 4) and (a < 55) then writeln(‘верно’); 3) Условие на языке Паскаль для данного выражения: if (b mod 2 = 0) then b := b + 5 else b := b — 4; Данное условие использует оператор if для проверки кратности числа b двум (через оператор деления с остатком mod). Если b кратно 2, то к нему будет прибавлено 5, иначе к нему будет вычтено 4. Обратите внимание, что блок else будет выполнен только в том случае, если первое логическое условие не будет истинным. 4) var l, k, s: real; begin k := 81; // знак присваивания должен быть := s := 4; for i := 1 to k do s := s / 2; // добавляем оператор цикла и правильный знак деления end. 5) print(» _____ «) print(» ___/ \___») print(» / / «) print(«| | | |») print(«| |___| |») print(«|___ ___ ___|») print(» | | | | «) print(» |_|___|_| «)
Источник: znanija-online.com