VPF::Массивы - Форум программистов

Gunya

Дата 3.4.2008, 18:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте!!!
Помогите написать, а то я начинающии и пока не знаю как это делать:

В массиве а[5,5], введенном с клавиатуры, наити сумму первой и последней строки. Затем выполнить следующие деиствия:
*Если сумма первой меньше суммы последней строки, то на место предыдущеи строки массива записать элементы последующей строки. Элементы первой строки записать на место последней
*Если сумма первой больше суммы последней строки, то рассортировать исходный массив методом перебора(прямого выбора) в порядке убывания
*Если суммы строк равны, то найти сумму всех нечетных чисел массива..

digitech

Дата 6.4.2008, 20:51 (ссылка)

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

Загрузка ...

Опытный

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

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

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

Код


for i:=1 to 5 do
  for k:=1 to 5 do
  begin
  readln(i,k);
  if i=1 then inc(sum,a[i,k]);
  if i=5 then inc(sum2, a[i,k]);
  end;

ну и потом уж сам разберись что больше, что меньше из sum и sum2 (кстати, это доп. переменные, - ну понятно зачем).
inc(a,b) это то же самое что a:=a+b; см. справку TP_7.0

Gunya

Дата 7.4.2008, 18:18 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот сварганил, тока ненаю правильно или нет, но при проверки все рабит))

Код

var
a: array[1..5,1..5]of integer;           
t: array[1..5] of integer;           
i,j,x,y: integer;            
s1,s5: integer;             
p: integer;            
b: boolean;         
begin
for i:=1 to 5 do            
 for j:=1 to 5 do
  begin
   write('a(',i,',',j,')= ');
   readln(a[i,j]);
  end;
for i:=1 to 5 do       
 begin
  for j:=1 to 5 do
   write(' ',a[i,j]);
  writeln;
 end;

for i:=1 to 5 do
 s1:=s1+a[1,i];        
for i:=1 to 5 do
 s5:=s5+a[5,i];          

b:=true;       

if s1<s5 then    
 begin
  for i:=1 to 5 do       
   t[i]:=a[1,i];
  for i:=2 to 5 do       
   for j:=1 to 5 do
    a[i-1,j]:=a[i,j];
  for i:=1 to 5 do         
   a[5,i]:=t[i];
 end;



if s1>s5 then     
 begin
  for x:=1 to 5 do
   for y:=1 to 5 do
    for i:=1 to 5 do
     for j:=1 to 5 do
      begin
       if a[x,y]>a[i,j] then
        begin
         p:=a[x,y];
         a[x,y]:=a[i,j];
         a[i,j]:=p;
        end;
       end;
 end;

if s1=s5 then           
 begin
  for i:=1 to 5 do
   for j:=1 to 5 do
    if a[i,j]mod 2 =1 then p:=p+a[i,j];
  b:=false;            
 end;
 
writeln;            

if b then                
 begin
  writeln('New array:');
  for i:=1 to 5 do
   begin
    for j:=1 to 5 do
     write(' ',a[i,j]);
    writeln;
   end;
 end
else                
 writeln('summa= ',p);

readln;

end.

digitech

Дата 7.4.2008, 18:36 (ссылка)

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

Загрузка ...

Опытный

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

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

что такое рабит? и зачем всякие логические переменные? можно и без этого. чётность\нечётность можно проверять с помощью odd(x)=false\true
и куда столько циклов? это не очень хорошо.

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