Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.04.2009, 14:12   #1
denis15
 
Регистрация: 27.04.2009
Сообщений: 9
Стрелка Помогите составить программу в turbo pascal

Помогите пожалуйста решить задачу в turbo pascale
Сформировать и распечатать квадратную матрицу размерности М<20 следующего вида:


1 0 0 ... 0
2 1 0 ... 0
3 2 1 ... 0
. . . ... .
. . . ... .
M M-1 M-2 1
denis15 вне форума
Старый 27.04.2009, 14:21   #2
Sazary
В тени
Старожил
 
Аватар для Sazary
 
Регистрация: 19.12.2008
Сообщений: 5,788
По умолчанию

Код:
uses crt;
var
a : array[1..25,1..25] of integer;
M,i,j : integer;

begin
clrscr;
write('Enter M: ');
readln(M);

for j:=1 to M do
 begin
 for i:=j to M do
  a[i,j] := i-j+1;
 for i:=1 to j-1 do
  a[i,j] := 0;
 end;

for i:=1 to M do
 begin
 for j:=1 to M do
  write(a[i,j]:3);
 writeln;
 end;

readln;
end.
В следующий раз предоставляйте свои наработки и задавайте конкретные вопросы.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем.

___________________________________ ___________________________________ _______
[=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль]
Sazary вне форума
Старый 09.06.2009, 17:21   #3
denis15
 
Регистрация: 27.04.2009
Сообщений: 9
По умолчанию

Хорошо, спасибо.
Как Составить программу вычисления функции
z=(c+S1+S2)*(k1+k2)/2;
S1-среднее арифметическое заданного массива А,
K1-количество нулевых элементов в нем;
S2 и K2 соответствующие элементы второго массива В.?

Свои наработки...
for i:=1 to n do
if a[i]<0 then
begin
s1:=a[i];
k1:=i;
break;
end
else
begin
k1:=0;
s1:=0;
end;
denis15 вне форума
Старый 09.06.2009, 17:23   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Обсуждалось уже. Действуй поиском.
I'm learning to live...
Stilet вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста составить 2 программы в Turbo Pascale smol8961 Помощь студентам 8 10.04.2009 17:44
Помогите составить программу viktorblat Помощь студентам 2 08.03.2009 12:06
Очень нужна помощь по Turbo Pascal...Не могу составить програму,по теме:"Процедуры и файлы"...( Zara Помощь студентам 2 02.12.2008 18:23
Помогите составить программу neomaximus Помощь студентам 3 14.06.2008 10:40
Не могу решить программу в Turbo Pascal помогите пожалуйста! Заранее благодарен... dolbi Помощь студентам 5 01.04.2008 08:26