|
Читайте также: |
Программа №1
«Программа по поиску из массива целых чисел, наименьших и наибольших элементов»
Program f1;
var
a:array[1..25] of integer;
i,m,max,min,n: integer;
begin
writeln('Пожалуйста, введите нужное вам кол-во целых чисел,которые вы будети вводить, для нахождение наименьшего и наибольшего элемента из массива:N(max 25)');
read(n);
writeln('Пожалуйста, введите ваши числа N раз, для нахождение наименьшего и наибольшего элемента из массива ');
for i:=1 to n do
begin
read(m);
a[i]:=m;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
write(a[i],' ');
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
writeln;
writeln('Наименьшое число из введенных ранее вами =',min);
writeln('Наибольшое число из введеных ранее вами =',max);
end.
Программа №2
«Программа по выводу чисел в случайном порядке не повторяющиеся»
Program fhf2;
label z;
var
m: array [1..25] of integer;
i, k,n: integer;
begin
writeln('Пожалуйста, введите нужное вам кол-во случайных чисел(max 25)');
read(n);
writeln;
writeln('Случайные и неповторяющиеся числа: ');
randomize;
m[1]:= random(1, n);
for i:= 1 to n do
begin
z: m[i]:= random(1, n);
for k:= 1 to i - 1 do
if m[k] = m[i] then goto z;
end;
for i:= 1 to n do
write(m[i]:3);
end.
Программа №3
«Программа которая в матрице 2 на 2, 3 на 3, 4 на 4, 5 на 5, меняет значение главной диагонали»
Program f3;
var
a:array[1..25,1..25] of integer;
i,m,b,n,j: integer;
begin
writeln('Пожалуйста, введите размерность матрицы:');
read(b);
writeln('Пожалуйста заполните матрицу числами:');
for i:=1 to b do
for j:=1 to b do
begin
read(m);
a[i,j]:=m;
end;
writeln('Получившиися в результате матрица:');
for i:=1 to b do
for j:=1 to b do
begin
write(a[i,j],' ');
if j=b then writeln;
end;
writeln;
writeln('Пожалуйста, введи числа из главной диогонали:');
for i:=1 to b do
for j:=1 to b do
begin
if j=i then
begin
read(m);
a[i,j]:=m;
end;
end;
writeln;
writeln('Матрица с измененными числами из главной деогонали:');
for i:=1 to b do
for j:=1 to b do
begin
write(a[i,j],' ');
if j=b then writeln;
end;
end.
Программа №4
«Обычный калькулятор»
Дата добавления: 2015-07-08; просмотров: 179 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Правовая форма организации | | | Энергетический источник системы рулевого управления |