VPF::Обработка матриц - Форум программистов

edise

Дата 25.1.2009, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.1.2009

Репутация: нет
Всего: нет

народ!!! люди добрые!!! помогите!!! нужно решить 4 задачи я над ними уже 3 дня сижу... ничего не могу...
а задачи такие: 1) дана матрица порядка n и число к. разделить элементы к-ой строки на диагональный элемент этой строки. 2) заполнить матрицу линейной последовательности от левого нижнего угла по диагонали : влево вверх.пример заполнения:
10 13 15 16
6 9 12 14
3 5 8 11
1 2 4 7
3) дан текст напечатать в алфавитном порядке все согласные буквы которые не входят ни в одно слово.
4) создать файл содержащий текст на английском языке и некоторые два слова. определить, сколько раз они встречаются в тексте и сколько из них непосредственно друг за другом

Это сообщение отредактировал(а) volvo877 - 26.1.2009, 11:49

Metalex

Дата 25.1.2009, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

Первая задача:

Код

Program Delenie;
CONST n=10;
Var A:array [1..n,1..n] of integer; i,j,S:integer; r:real;
Begin
randomize;

for i:=1 to n do
begin
      for j:=1 to n do
      begin
             A[i,j]:=random(100);
             write (A[i,j]:4);
      end;
  writeln;
end;

writeln ('Vvedite  nomer stroki (ne bolee ',n,')');
readln (j);

{Не знаю что означает "разделить элементы строки...", поэтому делю их сумму}

S:=0;
for i:=1 to n do
S:=S+A[i,j];

i:=j;
if A[i,j]>0
then r:=S/A[i,j];
writeln (r:5:2);

readln
end.

Один топик - одна задача...

Добавлено через 1 минуту и 15 секунд
Это деление на элемент главной диагонали.

--------------------

Don't let the system get you down.

volvo877

Дата 26.1.2009, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Metalex @ 25.1.2009, 13:17

)

{Не знаю что означает "разделить элементы строки...", поэтому делю их сумму}

То самое и значит: разделить КАЖДЫЙ элемент... Про сумму в задании нет ни слова.

Metalex

Дата 26.1.2009, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

Репутация: нет
Всего: нет

вот, на основе моего решения уже не сложно додумать до того, которое нужно.

--------------------

Don't let the system get you down.

edise

Дата 26.1.2009, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 25.1.2009

Репутация: нет
Всего: нет

пасибо!!!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »