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


Ответ
 
Опции темы Опции просмотра
Старый 24.12.2012, 18:09   #1 (permalink)
Natashka
Новичок
 
Регистрация: 30.09.2012
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массив. В квадратном массиве обменять верхний треугольник

uses wincrt;
const nmax=10;
var a: array [1..nmax,1..nmax] of integer;
i,n,j: byte;
buf,v_min, v_max,temp: integer;
begin
randomize;
repeat
write ('Razmer matrici,n=');
readln(n);
until n in [1..n];
writeln('Ishodnay matrica:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;

writeln;
end;

For i:= 1 to n do
For j:= 1 to n div 2 + 2 do
If ((j>i)and(i+j-1<n))or((i<j)and(i+j-1>n))
Then
Begin
temp:=a[i,j];
a[i,j]:=a[j,n-i+1];
a[j,n-i+1]:=temp;
end;

writeln('Polychennaya matr');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
Natashka вне форума   Ответить с цитированием

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

Полезную информацию так же можно поискать в аналогичных обсуждениях

В массиве А(12) вычислить произведение
Четырехполюсник. Схема треугольник
Сортировка в одномерном массиве
Паскаль АВС, сортировка в одномерном массиве без функций и операций
В одномерном массиве, состоящем из n вещественных элементов, вычислить
Поиск двух MAX в одномерном массиве

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

Вижу задание и вижу прогу какую-то. И что? Поделились решением?
Léon вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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