Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
ребят помогите сдать алгоритмизацию. я не усвоил одну тему и не могу теперь решить лабораторную, помогите кто сможет. заранее спасибо.
задача 1: заполните массив следующими значениями и вывести в виде таблицы (1 строка -111111; 2 строка-122221; 3 строка-123321; 4 строка-123321; 5 строка-122221; 6 строка- 111111) -числовой массив
задача 2: в массиве С(6,6) поменять местами элементы симметрично относительно главной диагонали.
задача 3: вывести первый положительный элемент для каждого столбца двухмерного массива.

Вопрос задал: alex2580 (статус: Посетитель) Вопрос отправлен: 30 января 2010, 22:39 Состояние вопроса: решён, ответов: 3.

Ответ #1. Отвечает эксперт: Егор

Здравствуйте, alex2580!
Из Индии, с любовью :)))
Первое задание:

var
  a : array [1..6,1..6] of integer;
begin
  a[1,1]:=1; a[1,2]:=1; a[1,3]:=1; a[1,4]:=1; a[1,5]:=1; a[1,6]:=1;
  a[2,1]:=1; a[2,2]:=2; a[2,3]:=2; a[2,4]:=2; a[2,5]:=2; a[2,6]:=1;
  a[3,1]:=1; a[3,2]:=2; a[3,3]:=3; a[3,4]:=3; a[3,5]:=2; a[3,6]:=1;
  a[4,1]:=1; a[4,2]:=2; a[4,3]:=3; a[4,4]:=3; a[4,5]:=2; a[4,6]:=1;
  a[5,1]:=1; a[5,2]:=2; a[5,3]:=2; a[5,4]:=2; a[5,5]:=2; a[5,6]:=1;
  a[6,1]:=1; a[6,2]:=1; a[6,3]:=1; a[6,4]:=1; a[6,5]:=1; a[6,6]:=1;
  writeln(a[1,1], a[1,2], a[1,3], a[1,4], a[1,5], a[1,6]);
  writeln(a[2,1], a[2,2], a[2,3], a[2,4], a[2,5], a[2,6]);
  writeln(a[3,1], a[3,2], a[3,3], a[3,4], a[3,5], a[3,6]);
  writeln(a[4,1], a[4,2], a[4,3], a[4,4], a[4,5], a[4,6]);
  writeln(a[5,1], a[5,2], a[5,3], a[5,4], a[5,5], a[5,6]);
  writeln(a[6,1], a[6,2], a[6,3], a[6,4], a[6,5], a[6,6]);
end.

Ответ отправил: Егор (статус: 10-ый класс) Время отправки: 30 января 2010, 23:02 Оценка за ответ: 5 Комментарий к оценке: спасибо а другие знаешь

Ответ #2. Отвечает эксперт: vlsavkin

Здравствуйте, alex2580!
Задание 2
program Project2;
var c:array [1..6,1..6] of Integer;
i,j,l:Integer;
begin
for i :=1 to 6 do
for j := 1 to 6 do
c[i,j]:=random(5);

for i :=1 to 6 do
begin
for j := 1 to 6 do
write(c[i,j],' ');
writeln;
end;
Writeln;
for i :=1 to 6 do
for j := i to 6 do
begin
l:=c[i,j];
c[i,j]:=c[j,i];
c[j,i]:=l;
end;
for i :=1 to 6 do
begin
for j := 1 to 6 do
write(c[i,j],' ');
writeln;
end;
readln;

end.

Ответ отправил: vlsavkin (статус: 2-ой класс) Время отправки: 31 января 2010, 11:22 Оценка за ответ: 5 Комментарий к оценке: спасибо

Ответ #3. Отвечает эксперт: Жикльор

Здравствуйте, alex2580!

1-ая задача готовая!

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var
mas: array [1..6,1..6] of integer;
i,j: integer;
begin
//заполняем весь масив только единицами
for i:=1 to 6 do
  for j:=1 to 6 do
    mas[i,j]:=1;
//заполняем часть масива двойками
for i:=2 to 5 do
  for j:=2 to 5 do
    mas[i,j]:=2;
//заполняем оставшуюся часть тройками
for i:=3 to 4 do
  for j:=3 to 4 do
    mas[i,j]:=3;
//выводим весь масив в виде таблицы
for i:=1 to 6 do
  begin
  for j:=1 to 6 do
    write(mas[i,j]);
  writeln;
  end;
readln;
end.

Ответ отправил: Жикльор (статус: 5-ый класс) Время отправки: 31 января 2010, 11:51 Оценка за ответ: 5 Комментарий к оценке: спасибо

Мини-форум вопроса

Егор (статус: 10-ый класс), 30 января 2010, 23:08 [#1]: дело было вечером, делать было нечего... )))))))))))) Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

min@y™ (статус: Доктор наук), 31 января 2010, 08:45 [#2]: Цитата (Егор): Ответ отправил: Егор (статус: 5-ый класс) Ответ отправлен: 30 января 2010, 23:02 Бугага! МЕГАСУПЕР-решение! Снимаю шляпу! Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Жикльор (статус: 5-ый класс), 31 января 2010, 11:18 [#3]: Цитата (min@y™): Бугага! МЕГАСУПЕР-решение! Снимаю шляпу! Согласен с тобою. До такого даже я не додумался бы! Я попробую сделать! Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

vlsavkin (статус: 2-ой класс), 31 января 2010, 11:28 [#4]: Третье задание program Project2; var c:array [1..6,1..6] of Integer; i,j,l:Integer; begin Randomize; for i :=1 to 6 do for j := 1 to 6 do c[i,j]:=random(10)-6;   for i :=1 to 6 do begin for j := 1 to 6 do write(c[i,j]:4,' '); writeln; end; Writeln; for j := 1 to 6 do for i :=1 to 6 do   if c[i,j]>0 then begin writeln(c[i,j]); Break;end;   readln;   end. А ответы редактировать нельзя?

Жикльор (статус: 5-ый класс), 31 января 2010, 11:37 [#5]: Лучше бы я не отходил за чашечкой кофе)) Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

Жикльор (статус: 5-ый класс), 31 января 2010, 11:38 [#6]: Цитата (vlsavkin): А ответы редактировать нельзя? Нет. Ну раз ты уже взялся, то уже доделай до конца)) Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

vlsavkin (статус: 2-ой класс), 31 января 2010, 11:41 [#7]: Жикльор, я просто третье задание тоже хотел туда впихнуть, а пришлось отдельным постом)

Егор (статус: 10-ый класс), 31 января 2010, 11:41 [#8]: Жикльор: ну, у тебя ещё третье задание есть Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Егор (статус: 10-ый класс), 31 января 2010, 11:43 [#9]: а, уже сделано.... ну что ж, в следующий раз Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

Егор (статус: 10-ый класс), 31 января 2010, 11:45 [#10]: vlsavkin: слушай, а почему ты не оформляешь код в теги { { code } } { { /code } }? нечитаем же код Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

vlsavkin (статус: 2-ой класс), 31 января 2010, 11:48 [#11]: Мне б ими пользоваться научиться еще)

Егор (статус: 10-ый класс), 31 января 2010, 12:03 [#12]: Жикльор: ну вот, зачем всё испортил? Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth.

vlsavkin (статус: 2-ой класс), 31 января 2010, 12:38 [#13]: А еще так можно) for i := 1 to 6 do for j := 1 to 6 do if (i=1) or (j=1) or (i=6) or (j=6) then mas[i,j]:=1 else if (i=2) or (j=2) or (i=5) or (j=5) then mas[i,j]:=2 else mas[i,j]:=3;

Жикльор (статус: 5-ый класс), 31 января 2010, 15:51 [#14]: Я не портил. Я добавил)) Если бы строители строили дома так, как программисты пишут программы, то первый же дятел уничтожил бы цивилизацию.

Ерёмин А.А. (статус: *Администратор), 31 января 2010, 18:33 [#15]: Цитата (vlsavkin): А ответы редактировать нельзя? Можно, когда доберётесь до соответствующего статуса Цитата (Егор): слушай, а почему ты не оформляешь код в теги { { code } } { { /code } }? Спасибо за агитацию, благое дело.

Мережников Андрей (статус: Абитуриент), 31 января 2010, 19:56 [#16]: зачем один и тот же вопрос задавать по нескольку раз???

31 января 2011, 19:23: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.