|
Блог - Pascal ABC
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.
|
| 2013-02-18 09:04:38 - Елена Николаевна Сильванькова Не поняла средняя температура за неделю почему
const n=3?, разве не 7 дней? После writeln не понятно что? Да счётчик вижу, но не понятен диапазон температур. | | 2013-02-18 09:23:47 - Владимир Николаевич Русаков исправил
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
и вычислите сумму элементов каждого столбца.
program pr6;
uses crt;
var x:array[1..3,1..3] of integer;
i,j,s1,s2,s3: integer;
begin
clrscr;
for i:=1 to 3 do
begin
writeln;
for j:=1 to 3 do
begin
write(`x(`,i,`,`,j,`)=`);
readln(x[i,j]);
end;
end;
for i:=1 to 3 do
begin
writeln;
for j:=1 to 3 do
begin
write(` `,x[i,j]);
end;
end;
for i:=1 to 3 do
begin
s1:=s1+x[i,1];
s2:=s2+x[i,2];
s3:=s3+x[i,3];
end;
writeln;
writeln;
writeln(`s1=`,s1,` s2=`,s2,` s3=`,s3);
readln;
end. |
Прокомментируйте!Выскажите Ваше мнение:
Зарегистрироваться
|
Вакансии для учителей
|
|