| ← Ноябрь 2012 → | ||||||
|
1
|
3
|
4
|
||||
|---|---|---|---|---|---|---|
|
5
|
7
|
8
|
9
|
10
|
11
|
|
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
|
19
|
20
|
21
|
22
|
23
|
25
|
|
|
26
|
27
|
28
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 150675: Драсте, помогите пожалуйста составить программу, проверяющую, является ли матрица A верхней треугольной с нулевой диагональю.з аранее спасибо... Консультация # 127310: здравствуйте! у меня проблема с прогарамой! задача звучит так: "в квадратной матрице Д поменять местами елементы стороней диагонали и l-той строки предварительно упорядочив елемены последнего по возростанию". у меня меняет вместо диагонали и строки строку и столбец! помогите пожалуйстя!... Консультация # 83626: Доброе время суток! Помогите глупому студенту! №1 Вводятся N целых чисел, из них надо найти самое большое и поменять его местами с первым. №2 Вводятся N целых чисел, из них надо найти самое большое и поменять его местами с первым. Найти из оставшихся самое большое и поменять его местами со вторым. Решать надо с помощью массив... Драсте, помогите пожалуйста составить программу, проверяющую, является ли матрица A верхней треугольной с нулевой диагональю.з аранее спасибо
Дата отправки: 16.11.2008, 10:08 Консультирует SHERRY: Здравствуйте, Фёдоров Михаил Юрьевич! Код :
const
n = 5; {размерность матрицы}
var
ms: array [1..n, 1..n] of byte; {матрица}
i,j: integer; {переменные-индексы}
rez: boolean; {вспомогательная переменная}
begin
randomize; {запускаем генератор случайных чисел}
for i:=1 to n do {заполняем матрицу}
begin
for j:=1 to n do
begin
ms[i,j] := random(2); {генерируем число из диапазона [0; 2)}
write(ms[i,j]:3); {выводим элемент на экран}
end;
writeln; {переход на следующую строку на экране}
end;
{writeln; writeln; }
rez := true; j := 0;
While rez and (j < n) do {до тех пор, пока переменная rez имеет значение ИСТИНА}
begin {а также индекс не вышел за пределы размера матрицы}
inc(j); {увеличиваем переменную j на единичку}
for i:=1 to j do {проверяем строку ниже диагонали матрицы}
begin
{write(ms[i,j]:3); } {вывод символов для проверки}
rez := rez and (ms[i,j] = 0);
end;
{writeln; }
end;
writeln(rez);
readln;
end.
здравствуйте! у меня проблема с прогарамой! задача звучит так: "в квадратной матрице Д поменять местами елементы стороней диагонали и l-той строки предварительно упорядочив елемены последнего по возростанию". у меня меняет вместо диагонали и строки строку и столбец! помогите пожалуйстя!
Дата отправки: 14.03.2008, 16:37 Консультирует Пупорев Юрий Борисович (Профессионал): Здравствуйте, коваль максим владимирович! Приложение: | |||||||||||||||||||
|
|
Консультировал: Пупорев Юрий Борисович (Профессионал) Дата отправки: 14.03.2008, 17:34 | Рейтинг ответа:
|
Доброе время суток! Помогите глупому студенту!
№1 Вводятся N целых чисел, из них надо найти самое большое и поменять его местами с первым.
№2 Вводятся N целых чисел, из них надо найти самое большое и поменять его местами с первым. Найти из оставшихся самое большое и поменять его местами со вторым.
Решать надо с помощью массивов. Задачи нужны к 24.04.07 HELP!!!!!!
Дата отправки: 22.04.2007, 00:46
Вопрос задал: Peeny
Всего ответов: 2
Страница онлайн-консультации »
Консультирует Устинов С.Е. (Профессионал):
Здравствуйте, Peeny!
№1.
const n=10;
var a:array[1..n] of integer;
i,max,t:integer;
begin
for i:=1 to n do
begin
write(\'a[\',i,\']=\');
readln(a[i]);
end;
max:=1;
for i:=2 to n do if a[i] > a[max] then max:=i;
t:=a[1]; a[1]:=a[max]; a[max]:=t;
end.
№2.
const n=10;
var a:array[1..n] of integer;
i,max,t:integer;
begin
for i:=1 to n do
begin
write(\'a[\',i,\']=\');
readln(a[i]);
end;
max:=1;
for i:=2 to n do if a[i] > a[max] then max:=i;
max:=2;
for i:=3 to n do if a[i] > a[max] then max:=i;
t:=a[2]; a[2]:=a[max]; a[max]:=t;
end.
Удачи!
|
|
Консультировал: Устинов С.Е. (Профессионал) Дата отправки: 22.04.2007, 00:57 | Рейтинг ответа:
|
Консультирует Киселёва Алёна aka Verena (Академик):
Здравствуйте, Peeny!
Можно решить так:
const N=10; {размерность массива}
var a: array [1..N] of integer;
i, imax, buf: integer;
begin
for i:=1 to N do {считываем массив}
readln (a[i]);
imax:=1; {принимаем первый за максимум}
for i:=2 to N do
if a[i]>a[imax] then imax:=i; {если текущий больше, запоминаем}
buf:= a[1]; {обмен элементов через буфер}
a[1]:= a[imax];
a[imax]:=buf;
{для первой задачи здесь можно поставить вывод и end с точкой}
{для второй задачи оставить всё решение}
imax:=2; {принимаем второй за максимум}
for i:=3 to N do
if a[i]>a[imax] then imax:=i; {если текущий больше, запоминаем}
buf:= a[2];
a[2]:= a[imax];
a[imax]:=buf;
for i:=1 to N do {вывод}
writeln (a[i]);
end.
|
|
Консультировал: Киселёва Алёна aka Verena (Академик) Дата отправки: 22.04.2007, 01:06 | Рейтинг ответа:
|
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
техническая поддержка
|
восстановить логин/пароль
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг:
Версия системы: 2011.6.36 от 26.01.2012
| В избранное | ||
