VPF::[Pascal] Паскаль Одномерные массивы

syoksana

Дата 28.2.2008, 01:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

ПРИВЕТ!!!!!
У меня тут дома, телефон сломался, вот поэтому меня так долго небыло. Спасибо за помошь!!! задачи я сдала, только последнию не решила, так и не поняла. Тут ещё у меня парачка задачик есть посмотрите, где ошибка?

1)Пусть дана символьная квадратная матрица порядка 10. Заменить буквой "а" все элементы расположеннные выше главной диагонали.

Код


var a:array[1..10,1..10] of char;
      i,j,n:integer;
begin
   write('vv poradok'); read(n);
   for i:=1 to n do
     for j:=1 to n do
       begin 
          write('a[',i,',',j,']=');readln(a[i,j]);
       end;
  for i:=1 to n do
   for j:=1 to n do if i<j then a[i,j]:="a";{вот тут где-то и ошибка
если элементы выше главной диагонали то их заменять на "а", но при запуске, например,
в в к
к к к
к к к
у меня получается 
а а  
к к а
к к к}

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

2)Пусть дана целочисленная квадратная матрица A(aij) размерность n. Получите b1,...,bn, где bi равен:
{как вставить формулу?}
a)сумма j=1 до n (-1) в сепени i+j *aij
b)max aij*min aji, 1<=j<=n

Даже и незная как решать

sanya492

Дата 28.5.2012, 09:47 (ссылка)

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

Загрузка ...

Новичок

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

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

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

iff

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

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

Загрузка ...

Администратор

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

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

1. Вам в "Центр помощи".
2.

Код


const n = 10;
var a : array[1..n] of integer; i : integer;
  chered : boolean;
begin
  for i := 1 to n do read(A[i]);
  writeln;
  chered := true;
  for i := 1 to pred(n) do
    if A[i] * A[succ(i)] > 0 then
    begin
      chered := false;
      break;
    end;
  for i := 1 to n do
    if chered or A[i] < 0 then
      write(A[i], ' ');
  writeln;
end.

Это сообщение отредактировал(а) iff - 28.5.2012, 14:19

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

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

raino07

Дата 28.6.2012, 12:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Cделайте задачу для вычисления суммы квадратов нечетных элементов одномерного массива.

MetalFan

Дата 28.6.2012, 13:24 (ссылка)

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

Загрузка ...

Аццкий Сотона

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

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

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

There are always someone smarter than you...

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