VPF::[Pascal] Элементы массива - Форум программистов

Sanotaro

Дата 29.5.2009, 01:08 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


program tabl_sor;
type mas=array[1..100] of real;
var
x,y,z,w:mas;
n,i,j: integer;
a,l:real;
begin
l:=0;
 writeln('vvedite razmer vassiva');
  readln(n);
if n=0 then
begin
writeln ('Razmer massiva raven 0');
end;
   for i:=1 to n do
         begin
           writeln('x[' ,i,']=');
           readln(x[i]);
         end;
   for i:=1 to n do
         z[i]:=x[i];
   for i:=1 to n-1 do
           for j:=1 to n-i do
                   begin
                   if (z[j]>z[j+1]) then
                            begin
                              a:=z[j];
                              z[j]:=z[j+1];
                              z[j+1]:=a;
                            end;
                   end;
   for i:=1 to n do
         y[i]:=x[i];
   for i:=1 to n-1 do
           for j:=1 to n-i do
                   begin
                   if (y[j]<y[j+1]) then
                            begin
                              a:=y[j];
                              y[j]:=y[j+1];
                              y[j+1]:=a;
                            end;
                   end;
  readln;
 writeln('elem  icx mas  vozr    ubiv');
   for i:=1 to n do
         writeln(  i , x[i]:8:0, z[i]:8:0 ,y[i]:8:0);
writeln;

for i:=1 to n do
if x[i]>0 then
   begin
   w[i]:=x[i];
   writeln(w[i]);
end;
w[i]:=0;
l:=w[1]+w[3];
writeln ('Symma 1 i 3 pologitelnih elementov ishodnogo massiva ravna ' , l:6:2);
readln;
end.

Требуется сложить первый и третий положительный элемент исходного массива. Почему-то не работет..

Это сообщение отредактировал(а) Sanotaro - 29.5.2009, 01:09

volvo877

Дата 29.5.2009, 01:58 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ты неправильно заполняешь массив W... Вот так попробуй:

Код

j := 0;
for i:=1 to n do
if x[i]>0 then
   begin
   j := j + 1; w[j]:=x[i];
   writeln(w[j]);
end;
{ w[i]:=0; } (* Эта строка не нужна *)

Чувствуешь разницу? Чтобы посчитать сумму как W[1] + W[3], в массиве W положительные элементы должны располагаться подряд. Кстати, неплохо было бы делать проверку, что в массиве есть 3 положительных элемента, их ведь может не быть...

Это сообщение отредактировал(а) volvo877 - 29.5.2009, 01:58

Rodman

Дата 29.5.2009, 08:48 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

M
Rodman

Модератор: Название темы должно содержать язык написания!

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

CRM с функцией АвтоОбзвона

Лотереи мира

neic

Дата 29.5.2009, 11:49 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Ни чего себе код на такую простую задачку smile

Задачка решается 50 (максимум) строками и 1 массивом, 4мя переменными.

Ещё пару косяков:
Зачем по отдельности заполнять массивы(?):

Код


   for i:=1 to n do
         begin
           writeln('x[' ,i,']=');
           readln(x[i]);
         end;

сделай так:

Код


   for i:=1 to n do
         begin
           writeln('x[' ,i,']=');
           readln(x[i]);
           z[i]:=x[i];
           y[i]:=x[i];
         end;

Зачем указывать формат вывод чисел если они без запятых(?):

Код


writeln(  i , x[i]:8:0, z[i]:8:0 ,y[i]:8:0);

В этом случае у тебя будут только резаться числа чья длина цифр больше 8, например:
1) 12345678 - тут ок, всё будет выведено
2) 123456789 - а вот тут у тебя выведется так же как и в предыдущем 12345678

Это то что я нашёл пока. Это конечно может ни как не отрозиться на программе, но так было бы лучше.

НУ и ещё один косяк тебе вольво сказал.

Можно сделать так программу:

Код


{vvod dannih}
K:=0
For i:= 1 to n do
begin
       If a[i] > 0 then
       begin
                If K<3 then
                begin
                       K:=K+1;
                       M[k]:=a[i];
                end;
       end;
end;

SUM:= M[1] + M[3];
writeln('summa 1ogo i 3ogo polj. chisla = ', sum)
readln;
end.

K - кол-во найденных положительных элементов
a[i] - исходный массив
m[k] - массив из 3 найденых положительных элементов

If K<3 then - это сравнение конечно можно убрать, но тогда машина тока потребует больше времени (буквально лишние милисекунды =))

А вообще ты молодец что ты решаешь задачи сам smile

Это сообщение отредактировал(а) neic - 29.5.2009, 11:50

volvo877

Дата 29.5.2009, 12:22 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Цитата(neic @ 29.5.2009, 11:49

)

Зачем указывать формат вывод чисел если они без запятых(?):

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

Цитата(neic @ 29.5.2009, 11:49

)

Неправда, если общей ширины поля не хватит для вывода значения, то ширина поля увеличится настолько, чтобы вывести число полностью. Ничего не будет "резаться", может быть некрасиво, потому как не окажется пробелов, но резаться не будет, не надо дезинформировать...

neic

Дата 29.5.2009, 19:56 (ссылка)

(голосов:1)

Загрузка ...

Опытный

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

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

Цитата(volvo877 @ 29.5.2009, 12:22

)

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

тьфу ты...точно...показалось что элементы integer.

Цитата(volvo877 @ 29.5.2009, 12:22

)

Не знал. Теперь буду знать =)

Sanotaro

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

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

Загрузка ...

Новичок

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

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

Спасибо, ребят. Задача решена.
Просто не полностью написал задание, всё, что требовалось от программы, кроме нахождения суммы 1 и 3 положительных элементов, она решала =) поэтому и код такой большой...уот smile

Rodman, не знал, впервые тут написал. Впредь буду знать. smile

Это сообщение отредактировал(а) Sanotaro - 1.6.2009, 18:45

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