|
Обработка одномерного массива
|
|
| Brut | Дата: Пятница, 28.02.2014, 14:59 | Сообщение # 1 |
|
Рядовой
Группа: Администраторы
Сообщений: 7
Статус: Offline
| Нужна программа загрузки массива с использованием генератора случайных чисел, вывода его на экран. программа должна вывести максимальное, минимальное и среднее значение элементов массива.
|
| |
| |
| Ариша | Дата: Пятница, 28.02.2014, 19:16 | Сообщение # 2 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var
a,b,c,D:integer
D:real
begin
cls;
write(a)realn(a);
write(b)realn(b);
D=Sgr(b)-4*a*c;
if D<0 then;
begin
x1=(-bSqrt(D))(a*2); x1=(-b+Sqrt(D)(2*a);
x2=(-bSqrt(D))(2*a); x2=(-b-Sqrt(D)(2*a);
end;
if D=0 then begin x1:=-b/(2*a)/;
write(x1)
end.
|
| |
| |
| kseniya_knyazeva11 | Дата: Суббота, 01.03.2014, 09:15 | Сообщение # 3 |
|
Рядовой
Группа: Проверенные
Сообщений: 7
Статус: Offline
| var
i,n,min,max:integer; sr:real;
m:array[1..100]of integer;
begin
cls;
randomize;
write('Введите количество элементов массива ');
readln(n);
for i:=1 to n do
begin m[i]:=random(100);
writeln('m[',i,']=',m[i]) end;
min:=m[1];
for i:=2 to n do if m[i]<min then min:=m[i];
write('min=',min);
max:=m[1];
for i:=2 to n do if m[i]>max then max:=m[i];
write(' max=',max);
sr:=0;
for i:=1 to n do
sr:=sr+m[i];
sr:=sr/n;
writeln(' sr=',sr);
end.
|
| |
| |
| BARAK | Дата: Воскресенье, 02.03.2014, 13:06 | Сообщение # 4 |
 Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var
n:real;
begin
writeln('1-треугольник');
writeln('2-прямоугольник');
writeln('3-круг');
writeln('Введите номер фигуры ');
end.Добавлено (02.03.2014, 12:57)
---------------------------------------------
var
a,b,c:integer;
x1,x2,D:real;
begin
cls;
writeln('a= ');
readln(a);
writeln('b= ');
readln(b);
writeln('c= ');
readln(c);
D:=Sqr(b)-4*a*c;
if D>0 then
begin
x1:=(-b+Sqrt(D))/2*a;
readln(x1);
x2:=(-b-Sqrt(D))/2*a;
readln(x2)
end;
if D=0 then
begin
x1:=-b/2*a;
readln(x1)
end;
if D<0 then
writeln('Уравнение решений не имеет');
end. Добавлено (02.03.2014, 13:06)
---------------------------------------------
var
i,n,min,max:integer;
m:array[1..100]of integer;
begin
cls;
randomize;
write('Укажите количество элементов массива ');
readln(n);
for i:=1 to n do
begin m[i]:=random(100);
writeln('m[',i,']=',m[i])
end;
min:=m[1];
for i:=2 to n do if m[i]<min then min:=m[i];
write('min=',min);
max:=m[1];
for i:=2 to n do if m[i]>max then max:=m[i];
write(' max=',max);
end.
|
| |
| |
| Ариша | Дата: Воскресенье, 02.03.2014, 16:41 | Сообщение # 5 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var
i,n: integer;
m:array[1..100]of integer;
begin
write('b...');
readln(n);
for i:=1to n do
begin writeln('m[',i,']=');
readln(m[i])
end;
for i: 1 to n do
write(m[i],' ');
end.Добавлено (02.03.2014, 16:37)
---------------------------------------------
var
i,n,min,max:integer; sr:real;
m:array[1..1000]of integer;
begin
cls;
randomize;
write('Введите количество элементов массива ');
readln(n);
for i:=1 to n do
begin m[i]:=random(1000);
writeln('m[,i,]=',m[i]) end;
min:=m[1];
for i:=2 to n do if m[i]<min then min:=m[i];
write('min=',min);
max:=m[1000];
for i:=2 to n do if m[i]>max then max:=m[i];
write(' max=',max);
sr:=0;
for i:=1 to n do
sr:=sr+m[i];
sr:=sr/n;
writeln(sr=,sr);
end. Добавлено (02.03.2014, 16:41)
---------------------------------------------
var
a,b,c:integer;
x1,x2,D:real;
begin
cls;
writeln('a= ');
readln(a);
writeln('b= ');
readln(b);
writeln('c= ');
readln(c);
D:=Sqr(b)-4*a*c
if D>0 then
x1:=(-b+Sqrt(D))/2*a;
readln(x1);
x2:=(-b-Sqrt(D))/2*a;
readln(x2)
end;
readln(x1)
if D=0 then
begin
x1:=-b/2*a;
readln(x1)
end;
if D<0 then
writeln('Уравнение решений не имеет');
end.
|
| |
| |
| Ira | Дата: Понедельник, 03.03.2014, 14:08 | Сообщение # 6 |
|
Рядовой
Группа: Проверенные
Сообщений: 6
Статус: Offline
| var
i,n,min,max:integer;
m:array[1..100]of integer;
begin
cls;
randomize;
write('Введите количество элементов массива ');
readln(n);
for i:=1 to n do
begin m[i]:=random(100);
writeln('m[',i,']=',m[i]);
end;
min:=m[1];
for i:=2 to n do if m[i]<min then min:=m[i];
write('min=',min);
max:=m[1];
for i:=2 to n do if m[i]>max then max:=m[i];
write(' max=',max);
end.
|
| |
| |
| kseniya_knyazeva11 | Дата: Суббота, 05.04.2014, 11:15 | Сообщение # 7 |
|
Рядовой
Группа: Проверенные
Сообщений: 7
Статус: Offline
| var i,n,a:integer; m,c:array[1..100]of integer;
begin
cls; randomize;
write('Укажите количество элементов массива '); readln(n);
for i:= 1 to n do
begin m[i]:=random(100);
end;
write('Введите число а '); readln(a);for i:= 1 to n do
begin c[i]:=random(100);
c[i]:=m[i]*a;
writeln('m[',i,']= ',m[i],' ',c[i]) end;
end.
|
| |
| |
| BARAK | Дата: Понедельник, 07.04.2014, 19:16 | Сообщение # 8 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var i,n,g:integer;d,m:array[1..100] of integer;
begin
cls;
randomize;
write('Введите количество элементов массива');readln(n);
for i:=1 to n do
begin
d[i]:=random(100);end;
write('Введите число g');
readln(g);
for i:=1 to n do
begin m[i]:=random(100);
m[i]:=d[i]*g;
writeln('d[',i,']= ',d[i],' ',m[i]) end;
end.
|
| |
| |
| Ариша | Дата: Понедельник, 07.04.2014, 21:38 | Сообщение # 9 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var i,n,g:integer;d,m:array[1..100] of integer;
begin
cls;
randomize;
write('Введите количество элементов массива');readln(n);
for i:=1 to n do
begin
d[i]:=random(100);end;
write('Введите число g');
readln(g);
for i:=1 to n do
begin m[i]:=random(100);
m[i]:=d[i]*g;
for i:=1 to n do
writeln('d[',i,']= ',d[i],' ',m[i]) end;
end.
|
| |
| |
| kseniya_knyazeva11 | Дата: Пятница, 11.04.2014, 12:32 | Сообщение # 10 |
|
Рядовой
Группа: Проверенные
Сообщений: 7
Статус: Offline
| var mass:array[1..10,1..10]of integer;
n1,n2,i,j:integer;
begin
cls; randomize;
write('Количество строк '); readln(n1);
write('Количество столбцов '); readln(n2);
for i:=1 to n1 do
for j:=1 to n2 do
mass[i,j]:=random(100);
for j:=1 to n2 do
begin writeln(' ');
for i:=1 to n1 do
write(mass[j,i],' ') end;
end.
|
| |
| |
| Зяблик | Дата: Воскресенье, 13.04.2014, 11:31 | Сообщение # 11 |
|
Рядовой
Группа: Проверенные
Сообщений: 3
Статус: Offline
| var
mass:array[1..10,1..10] of integer;
n1,n2,i,j:integer;
begin
cls;
write('введите количество строк');readln(n1);
write('введите количество столбцов');readln(n2);
Randomize;
for i:=1 to n1 do
for j:=1 to n2 do
begin
mass[i,j]:=random(100);
write (mass[ i,j],' ');end;
writeln(' ');
end.
|
| |
| |
| Ira | Дата: Понедельник, 14.04.2014, 14:20 | Сообщение # 12 |
|
Рядовой
Группа: Проверенные
Сообщений: 6
Статус: Offline
| var mass:array[1..10,1..10]of integer; n1,n2,i,r:integer;
begin
cls;
randomize;
write('Количество строк ');
readln(n1);
write('Количество столбцов ');
readln(n2);
for i:=1 to n1 do
for r:=1 to n2 do
mass[i,r]:=random(100);
for r:=1 to n2 do
begin writeln(' ');
for i:=1 to n1 do
write(mass[r,i],' ') end;
end.Добавлено (14.04.2014, 14:20)
---------------------------------------------
ОТ ЛАДЫ КОНЬШИНОЙ
var a:array[1..10,1..10] of integer;
i,j:integer;
begin
for i:=1 to 10 do begin
for j:=1 to 10 do begin
a[i,j]:=random(2);
write(a[i,j],' ');
end;
writeln;
end;
end.
|
| |
| |
| BARAK | Дата: Понедельник, 14.04.2014, 19:38 | Сообщение # 13 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var
mass:array[1..10,1..10]of integer;n1,n2,t,p:integer;
begin
cls;
randomize;
write('Введите количество строк');
readln(n1);
write('Введите количество столбцов');
readln(n2);
for t:=1 to n1 do
for p:=1 to n2 do
mass[t,p]:=random(100);
for p:=1 to n2 do
begin
writeln(' ');
for t:=1 to n1 do
write(mass[t,p],' ') end;
end.
|
| |
| |
| Ариша | Дата: Вторник, 15.04.2014, 05:29 | Сообщение # 14 |
|
Рядовой
Группа: Проверенные
Сообщений: 5
Статус: Offline
| var mass:array[1..10,1..10]of integer; n1,n2,i,r:integer;
begin
cls;
randomize;
write('Количество строк ');
readln(n1);
write('Количество столбцов ');
readln(n2);
for i:=1 to n1 do
for r:=1 to n2 do
mass[i,r]:=random(100);
for r:=1 to n2 do
begin writeln(' ');
for i:=1 to n1 do
write(mass[r,i],' ') end;
end.
|
| |
| |
| kseniya_knyazeva11 | Дата: Четверг, 01.05.2014, 12:18 | Сообщение # 15 |
|
Рядовой
Группа: Проверенные
Сообщений: 7
Статус: Offline
| var
i,j,k:integer;
a:array[1..3,1..10,1..10]of integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
for k:=1 to 5 do
begin
a[i,j,k]:=random(100);
write(a[i,j,k]:3,' ');
end;
writeln;
end;
writeln;
end;
end.
|
| |
| |
