Uses
Crt;
var
i,n:integer;
a,s:real;
begin
Writeln(Вычисление среднего арифметического);
Writeln(последовательности действительных чисел);
Write(Введите количество чисел последовательности ->);
Readln(n);
Writeln(Введите последовательность. После ввода каждого числа нажмите Enter);
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln(Среднее арифметическое введенной последовательности: ,s/n);
Write(Для завершения работы программы нажмите Enter);
Readkey
end.
Тестовое решение:
Вычисление среднего арифметического
последовательности действительных чисел
Введите количество чисел последовательности ->5
Введите последовательность. После ввода каждого числа нажмите Enter
5.4
7.8
3.0
1.5
2.3
Среднее арифметическое введенной последовательности: 4
Для завершения работы программы нажмите Enter
Для версии Pascal.ABC.Net:
Среднее арифметическое элементов массива
var
i,n:integer;
a,s:real;
begin
Writeln(Вычисление среднего арифметического);
Writeln(последовательности действительных чисел);
Write(Введите количество чисел последовательности ->);
Readln(n);
Writeln(Введите последовательность. После ввода каждого числа нажмите Enter);
s:=0;
for i:=1 to n do
begin
Read(a);
s:=s+a
end;
Writeln(Среднее арифметическое введенной последовательности: ,s/n)
end.
Источник: reshaika.com
Решение задач. День тринадцатый. Series1-10
Приветствуем читателей нашего сайта! Сегодня мы с вами решаем Series1-10. Этот блок подведет огромную жирную черту под темой всех наших уроков. А дальше мы начнем изучать массивы, строки, функции, процедуры и алгоритмы.
Series1-10
Series1°. Даны десять вещественных чисел. Найти их сумму.
Program series1; var a, summ: real; i: integer; begin for i := 1 to 10 do begin write(‘Введите число: ‘); readln(a); summ := summ + a; end; writeln(‘Сумма чисел: ‘, summ); end.
Series2. Даны десять вещественных чисел. Найти их произведение.
Program series2; var a, proizv: real; i: integer; begin proizv := 1; for i := 1 to 10 do begin write(‘Введите число: ‘); readln(a); proizv := proizv * a; end; writeln(‘Произведение чисел: ‘, proizv); end.
Series3. Даны десять вещественных чисел. Найти их среднее арифметическое.
Program series3; var a, summ: real; i, count: integer; begin for i := 1 to 10 do begin write(‘Введите число: ‘); readln(a); summ := summ + a; inc(count); end; writeln(‘Среднее арифметическое чисел: ‘, summ/count); end.
Series4. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.
Занятие 24 среднее арифметическое по элементам массива
Program series4; var a, summ, proizv: real; i, n: integer; begin write(‘Введите N: ‘); readln(n); proizv := 1; for i := 1 to n do begin write(‘Введите число: ‘); readln(a); summ := summ + a; proizv := proizv * a; end; writeln(‘Сумма чисел: ‘, summ); writeln(‘Произведение чисел: ‘, proizv); end.
Series5. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке целые части всех чисел из данного набора (как вещественные числа с нулевой дробной частью), а также сумму всех целых частей.
Используем функцию int(x), выделяющую целую часть из вещественного числа.
var i, N: integer; a, S: real; begin write(‘N = ‘); readln(N); S := 0; writeln(‘Введите ‘, N, ‘ вещественных чисел:’); for i := 1 to N do begin write(‘Введите вещественное число: ‘); read(a); S := S + int(a); writeln(‘Целая часть — ‘, int(a)); end; write(‘Сумма целых частей — ‘, S); end.
Series6. Дано целое число N и набор из N положительных вещественных чисел. Вывести в том же порядке дробные части всех чисел из данного набора (как вещественные числа с нулевой целой частью), а также произведение всех дробных частей.
Используем функцию frac(x), выделяющую дробную часть вещественного числа.
var i, N: integer; a, P: real; begin write(‘N = ‘); readln(N); P := 1; writeln(‘Введите ‘, N, ‘ вещественных чисел:’); for i := 1 to N do begin write(‘Введите вещественное число: ‘); read(a); P := P * Frac(a); writeln(‘Дробная часть — ‘, Frac(a):3:2); //Два знакоместа для цифр после точки. end; write(‘Произведение дробных частей — ‘, P:3:2); end.
Series7. Дано целое число N и набор из N вещественных чисел. Вывести в том же поряд ке округленные значения всех чисел из данного набора (как целые числа), а также сумму всех округленных значений.
Для округления вещественного числа до ближайшего целого используем функцию round(a), которая результат записывает как целое число.
var i, N: integer; a, S: real; begin write(‘N = ‘); readln(N); S := 0; writeln(‘Введите ‘, N, ‘ вещественных чисел:’); for i := 1 to N do begin write(‘Введите вещественное число: ‘); read(a); S := S + Round(a); writeln(‘Округленное значение — ‘, Round(a)) end; writeln(‘Сумма округленных значений — ‘, S); end.
Series8. Дано целое число N и набор из N целых чисел. Вывести в том же порядке все четные числа из данного набора и количество K таких чисел.
var i, N, k, a: integer; begin write(‘N = ‘); readln(N); k := 0; writeln(‘Введите ‘, N, ‘ целых чисел:’); for i := 1 to N do begin write(‘Введите целое число: ‘); read(a); if a mod 2 = 0 then begin Inc(k); writeln(‘Четное число — ‘, a); end; end; writeln(‘Количество четных чисел — ‘, k); end.
Series9. Дано целое число N и набор из N целых чисел. Вывести в том же порядке номера всех нечетных чисел из данного набора и количество K таких чисел.
var i, N, k, a: integer; begin write(‘N = ‘); readln(N); k := 0; writeln(‘Введите ‘, N, ‘ целых чисел:’); for i := 1 to N do begin write(‘Введите целое число: ‘); read(a); if a mod 2 <> 0 then begin Inc(k); writeln(‘Нечетное число # ‘, i); end; end; writeln(‘Количество нечетных чисел — ‘, k); end.
Series10. Дано целое число N и набор из N целых чисел. Если в наборе имеются положительные числа, то вывести True; в противном случае вывести False.
Немножко логических переменных.
var i, N, a: integer; pozitiv: boolean; begin write(‘N = ‘); readln(N); pozitiv := false; writeln(‘Введите ‘, N, ‘ целых чисел:’); for i := 1 to N do begin write(‘Введите целое число: ‘); readln(a); if a > 0 then pozitiv := true end; writeln(pozitiv); end.
На сегодня все! Если у вас возникли какие-либо вопросы, оставляйте их в комментариях.
Источник: learnpascal.ru
Написать программу, которая вычисляет среднее арифметическое последовательности дробных чисел, вводимых с клавиатуры. после того, как будет введено последнее число, программа должна вывести разность между минимальным и максимальным числом последовательности. количество чисел должно задаваться во время работы программы. паскаль
Используя метод нисходящего проектирования составить программу вычисления функции при заданных значениях аргументов.
Информатика, 25.04.2019 20:03
Составить блок схемуprogram n_18; varn, sum, q: integer; beginwrite (‘ n = ‘); readln (n); writeln; q: = 0; sum: =0while n> 0 dobegininc (q); sum: = sum + n mod 10n: = n div 10end. writeln (‘количество цифр: ‘ , q); writeln (‘ сумма цифр: ‘sum); end.
Информатика, 11.05.2019 10:33
Дөңгелекте градустық өлшемдері 40°, 130° және 60° үш сектор сызып, оларды əртүрлі түспен бояңдар. боялмаған сектордың бұрышының градустық өлшемін табыңдар.
Источник: otvetovik.com