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


Ответ
 
Опции темы Опции просмотра
Старый 08.05.2014, 23:59   #1 (permalink)
VitalikSG
Новичок
 
Регистрация: 08.05.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Работа с массивами в Паскале

Помогите, пожалуйста, написать программу для квадратной матрицы А.
1.расчитать элементы матрицы по формуле Ai,j=(i-5)*j+(j-2)!
2.упорядочить элементы 2-ой строки матрицы по возрастанию значений.
Заранее спасибо!
VitalikSG вне форума   Ответить с цитированием

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

Будем ждать ответов в вашу тему, а пока можете прочитать содержимое этих топиков

Паскаль. Работа с массивами
Работа с массивами на ассемблере
Помогите пожалуйста с массивами на паскале
Работа с массивами
Работа в Паскале
Две задачи с массивами в Паскале

Старый 09.05.2014, 23:45   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,211
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10360
По умолчанию

const n=10;
type Tmatr= array[1..n,1..n] of integer;
var A: Tmatr;
i,j,e,t: integer;
begin
for i:=1 to n do
for j:=1 to n do
A[i,j]:=((i-5)*j)+(j-2);
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Writeln;
i:=2;
for j:=1 to n-1 do
for e:=1 to n-j do
if A[i,e]>A[i,e+1] then begin
t:=A[i,e];
A[i,e]:=A[i,e+1];
A[i,e+1]:=t;
end;
for i:=1 to n do begin
for j:=1 to n do
Write(A[i,j]:5);
Writeln;
end;
Readln;
end.
Евгений вне форума   Ответить с цитированием
Старый 13.05.2014, 16:37   #3 (permalink)
VitalikSG
Новичок
 
Регистрация: 08.05.2014
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо Вам огромное!!!!
VitalikSG вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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