Программа, которая вычисляет среднюю температуру за неделю. Исходные данные вводятся с клавиатуры
Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах.
Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте.
Как быстро и эффективно исправить почерк? Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.
Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.
Напишите программу, которая вычисляет среднюю за неделю температуру воздуха
Напишите программу, которая вычисляет среднюю за неделю температуру воздуха. Исходные данные вводятся с клавиатуры.
| Пример входных данных | Пример выходных данных |
| Введите температуру Понедельник>>12 Вторник>>10 Среда>>16 Четверг>>18 Пятница>>17 Суббота>>16 Воскресенье>>14 |
Средняя температура за неделю: 14.71 |
Ответ
program temperatuta;
var
а: array [1..7] of integer; // Исходные данные
i: integer; // Счетчик цикла
s: integer; // Промежуточная величина
st: real; // Результат
const b: array [1..7] of string = (‘Понедельник’, ‘Вторник’, ‘Среда’, ‘Четверг’, ‘Пятница’, ‘Суббота’, ‘Воскресенье’);
begin
writeln (‘Введите температуру’);
for i:= 1 to 7 do
begin
writeln (b[i], ‘>>’);
readln (a[i])
end;
s:= 0;
for i:=1 to 7 do
s:=s+a[i];
st:=s/7;
writeln (‘Средняя температура за неделю:’, st:4:2);
end.
Pascal Массивы
1.Напишите программу, которая вычисляет среднюю за неделю температуру воздуха.
program pr1;
const n=7;
var t:array[1..n] of integer;
i: integer;
s: real;
begin
writeln(‘Введите температуру воздуха за неделю’);
for i:=1 to n do
begin
write(i,’ день=’);
readln (t[i]);
s:=s+t[i];
end;
s:=s/n;
writeln(‘Средняя температура : ‘,s:5:2);
readln;
end.
2.Найдите количество положительных и отрицательных элементов в данном одномерном массиве.
program pr2;
uses crt;
const n=3;
var m:array[1..n] of integer;
i,a,b: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
m:=-10+random(11);
writeln(m,` `);
if m0 then a:=a+1;
if m0 then b:=b+1;
end;
writeln(`Количество положительных элементов: `,a);
writeln(`Количество отрицательных элементов: `,b);
readln;
end.
5.Найти наименьший элемент последовательности.
program pr5;
uses crt;
const n=3;
var x:array[1..n] of integer;
i,m,k: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
x:=-10+random(21);
writeln(x,` `);
end;
m:=x[1]; k:=1;
for i:=2 to n do
begin
if xm then
begin
m:=x;
k:=i;
end;
end;
writeln(`min: `,x[k]);
readln;
end.
6.Заполнить массив значениями, вычисляемыми по формуле: a:=sin(i)*i2.
Вывести элементы этого массива на экран компьютера и найти максимальное значение среди них.
program pr6;
uses crt;
const n=3;
var x:array[1..n] of real;
m:real;
i,k: integer;
begin
clrscr;
for i:=1 to n do
begin
x:=sin(i)*i*i;
writeln(x:5:2);
end;
m:=x[1]; k:=1;
for i:=2 to n do
begin
if xm then
begin
m:=x;
k:=i;
end;
end;
writeln(`max: `,x[k]:5:2);
readln;
end.
7.Определить в одномерном массиве количество пар одинаковых соседних элементов.
program pr7;
uses crt;
const n=9;
var x:array[1..n] of integer;
i,m,k: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
x:=-1+random(2);
writeln(x,` `);
end;
for i:=2 to n do
begin
if x=x[i-1] then k:=k+1;
end;
writeln(`Kol_vo par: `,k);
readln;
end.
8.Дан одномерный массив целого типа.Получить другой массив, состоящий только из нечетных чисел исходного массива. Полученный массив вывести в порядке убывания элементов.
6.Введите с клавиатуры целочисленные элементы матрицы 3Х3
и вычислите сумму элементов каждого столбца.