Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.12.2012, 21:45   #1 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Из данных программ сделать программы с использованием процедур и функций

Задание такое даны уже готовые программы,а из них нужно переделать программы с использованием процедур и функций.,т.е. вставить процедуры или функции.
1.Дан массив В(М, М). Вывести на печать элементы столбца, в котором расположен максимальный элемент матрицы В.
Uses crt;
Var
b: Array[1..10,1..10] of Integer;
i,j,m,max,jmax: Integer;
BEGIN
Write('vvedite razmer M matriz: '); Readln(m);
Writeln('vvedite element:');
For i:=1 to m do
For j:=1 to m do
Readln(b[i,j]);
Clrscr;
max:=b[1,1];
Writeln('matriza:');
For i:=1 to m do
begin
For j:=1 to m do
begin
If b[i,j]>max Then
begin
max:=b[i,j];
jmax:=j;
end;
Write(b[i,j]:4);
end;
Writeln
end;
Writeln;
Writeln('stolbez s maxcimalnym elementom:');
For i:=1 to m do
begin
Write(b[i,jmax]);
Writeln
end;
Readln
END.

2.Дана матрица A(N,N). Перепишите элементы её главной диагонали в одномерный массив Y(N) и разделите их на максимальный элемент главной диагонали.
Uses crt;
Var
a: Array[1..10,1..10] of Integer;
y: Array[1..10] of Integer;
i,n,max,j: Integer;
BEGIN
Write('vvedite razmer N matrizy: '); Readln(n);
For i:=1 to n do
For j:=1 to n do
Readln(a[i,j]);
Clrscr;
Writeln('matriza:');
For i:=1 to n do
begin
y[i]:=a[i,i];
For j:=1 to n do
Write(a[i,j]:4);
Writeln
end;
max:=a[1,1];
Writeln('odnomerny massive Y: ');
For i:=1 to n do
begin
If y[i]>max Then max:=y[i];
Write(y[i],' ');
end;
Writeln;
Writeln('deleny na Max: ');
For i:=1 to n do
Write(y[i]/max:7:2);
Readln
END.

3.Задан массив В(К, М). Найти сумму элементов строки, в которой расположен минимальный элемент.

uses crt;
var
b: array[1..100,1..100] of integer;
i,j,k,n,x: byte;
min,sum: integer;
begin clrscr;
write('Razmeru: ');
readln(k,n);
for i:=1 to k do
begin
for j:=1 to n do
begin
write('b[',i,',',j,']= ');
readln(b[i,j]);
end;
writeln;
end;
writeln;
min:=b[1,1];
x:=1;
for i:=1 to k do
for j:=1 to n do
if b[i,j]<min then
begin
min:=b[i,j];
x:=i;
end;
for j:=1 to n do
sum:=sum+b[x,j];
writeln('Summa: ',sum);
readkey;
end.

4.Дан массив С(N). Найти среднее арифметическое положительных элементов с чётными индексами.
uses crt;
var
c:array[1..100]of real;
k,i,n:byte;
s:real;
Begin
clrscr;
write('Vvedite kol-vo elementov: ');
readln(n);
for i:=1 to n do
begin
write('Vvedite znachenie: ');
readln(c[i]);
end;
for i:=1 to n do write(c[i]:8:3);
Writeln;
s:=0;
k:=0;
for i:=1 to n do
if (i mod 2=0) and (c[i]>0) then
begin
s:=s+c[i];
k:=k+1;
end;
writeln;
writeln('Srednee arifmetichescoe: ',s/k:0:5);
readkey;
End.
Sandra 2000 вне форума   Ответить с цитированием

Старый 15.12.2012, 21:45
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Эти темы ждут, пока вы их прочитаете

Решение двумерных массивов с помощью процедур и функций
Двумерные массивы решенные с помощью процедур и функций
Циклические программы с использованием двумерных числовых массивов

Старый 15.12.2012, 21:50   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от Sandra 2000 Посмотреть сообщение
Задание такое даны уже готовые программы,а из них нужно переделать программы с использованием процедур и функций.,т.е. вставить процедуры или функции.
Разрешите выполнять?
Где "Здравствуйте", "пожалуйста", "помогите"?
Léon вне форума   Ответить с цитированием
Старый 15.12.2012, 22:34   #3 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Умоляю,пожалуйста помогите!!!

Пошу о помощи...
Sandra 2000 вне форума   Ответить с цитированием
Старый 16.12.2012, 01:05   #4 (permalink)
Sandra 2000
Member
 
Аватар для Sandra 2000
 
Регистрация: 04.10.2012
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Здравствуйте,кто-нибудь окажет мне помощь,пожалуйста.
Sandra 2000 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 15:34.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.