Помогите решить задачу! ПАскаль - Форум
Понедельник, 05.12.2016, 07:28
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу! ПАскаль (Напишите решение и обьяснение!! плиз)
Помогите решить задачу! ПАскаль
IceДата: Суббота, 15.05.2010, 15:41 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
сдать нада в понедельник к 9 часам утра по москве!!!!Заполнить массив размерностью 6х6 по провилу:
1 1 1 1 1 1
1 2 3 4 5 6
1 3 6 10 15 21
1 4 10 20 35 56
1 5 15 35 70 126
1 6 21 56 126 252


Сообщение отредактировал Ice - Суббота, 15.05.2010, 16:47
 
ignorerДата: Суббота, 15.05.2010, 15:43 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
щас напишу
 
ignorerДата: Суббота, 15.05.2010, 15:48 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот:
var m : array[1..6, 1..6] of integer;
i, j : integer;
begin
cls;
for i:=1 to 6 do
for j:=1 to 6 do m[i,j]:=1;
for i:=2 to 6 do
for j:=2 to 6 do m[i,j]:=m[i-1,j]+m[i,j-1];
for i:=1 to 6 do begin
for j:=1 to 6 do write(m[i,j]:4);
writeln;
end;
end.
кстати, это вроде получается кусок треугольника паскаля.
 
IceДата: Суббота, 15.05.2010, 15:51 | Сообщение # 4
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
а объямнение?!=)
 
ignorerДата: Суббота, 15.05.2010, 16:12 | Сообщение # 5
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
чёт я не заметил. да и не знаю, как тут объяснить. попробую, что получится, то получится
 
IceДата: Суббота, 15.05.2010, 16:22 | Сообщение # 6
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
у мня паскаль не хочет ее делать он зависает и все=(
 
ignorerДата: Суббота, 15.05.2010, 16:23 | Сообщение # 7
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
лучше вот такой вариант
Code
var m : array[1..6, 1..6] of integer;  
       i, j : integer;  
begin  
  cls;  
  for i:=1 to 6 do begin
   m[i,1]:=1;
   m[1,i]:=1;
  end;  
  for i:=2 to 6 do  
   for j:=2 to 6 do m[i,j]:=m[i-1,j]+m[i,j-1];  
  for i:=1 to 6 do begin  
   for j:=1 to 6 do write(m[i,j]:4);  
   writeln;  
  end;  
end.

а теперь к пояснениям:
шаг 1)
Code
for i:=1 to 6 do begin
   m[i,1]:=1;
   m[1,i]:=1;
  end;

первая строка и первый столбец заполняются единицами

шаг 2)

Code
for i:=2 to 6 do  
   for j:=2 to 6 do m[i,j]:=m[i-1,j]+m[i,j-1];

остальная часть матрицы заполняется так, что каждый элемент равен сумме того, элемента, который над ним и слева от него.

шаг 3)

Code
  for i:=1 to 6 do begin  
   for j:=1 to 6 do write(m[i,j]:4);  
   writeln;  
  end;  

матрица выводится на экран.
 
ignorerДата: Воскресенье, 16.05.2010, 14:04 | Сообщение # 8
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
Quote (Ice)
у мня паскаль не хочет ее делать он зависает и все=(

тут ничем помочь не могу. если бы программа не запускалась или выключалась бы сразу, то ещё куда ни шло, помог бы, а с таким делом ни разу не сталкивался sad
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите решить задачу! ПАскаль (Напишите решение и обьяснение!! плиз)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016