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

Monarch

Дата 14.12.2006, 20:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите, пожалуйста, нарисовать гравическю схему алгоритма и написать программу:
Задача№1:
Даны натуральное число n, действительные числа а1, ...,аn. В последовательности а1, ...,аn
отрицательные элементы увелечить на 0,5, а остальные - заменить на 0,1.
Задача№2:
Даны натуральные числа j,i, действительный массив размера 10*12 (1<=i<j<=12).
Поменять в матрице местами i-й и j-й столбцы!
Помогите плиз!!!Заранее благодарен! smile

M
alexeis1

Модератор: Пожалуйста, один топик - один вопрос.

Это сообщение отредактировал(а) alexeis1 - 14.12.2006, 22:39

Rodman

Дата 15.12.2006, 13:23 (ссылка)

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

Загрузка ...

CIO

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

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

Код


Uses crt;
var a:array[1..1000] of integer;
    i,n:integer;
BEGIN
clrscr;
randomize;
n:=10;
 for i:=1 to n do
  begin
   a[i]:=random(9)+1;
  end;
for i:=1 to n do
begin
   if(a[i]<0)then
      a[i]:=a[i]+0.5
   else
      a[i]:=0.1;
end;
 for i:=1 to n do
   begin
      gotoxy(i*4,12);
      write(a[i]);
   end;
readln;
END.

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

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

Лотереи мира

volvo877

Дата 15.12.2006, 15:08 (ссылка)

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

Загрузка ...

Эксперт

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

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

Как вариант - обойтись без If ... Else (хотя преподаватель может не оценить smile

Код

...
  for i := 1 to n do
    a[i] := byte(a[i] < 0) * (a[i] + 0.4) + 0.1;
...

Monarch

Дата 15.12.2006, 23:48 (ссылка)

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

Загрузка ...

Новичок

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

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

1-я задача нормально не запускаеться! smile

Я чуть-чуть переделал

Код


Program zada4a1;
Uses crt;
               Const n=10;
var a:array[1..n] of integer;
    i,l:integer;
BEGIN
clrscr;
  randomize;
     writeln('Ishodniy massiv:') ;
     for i:=1 to n do
     begin
     a[i]:=random(100);
     write(a[i]:4); 

           end;
for i:=1 to n do
                  begin
   if (a[i]<0) then  a[i]:=a[i]+0.5
  else   a[i]:=0.1
        end;
         begin
      write(a[i]:4);
   end;
readln;
END.

но выходит табличка, что type dismatch и показывает на мой else!Плиз хелп!!!

volvo877

Дата 16.12.2006, 00:00 (ссылка)

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

Загрузка ...

Эксперт

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

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

Сделай так:

Код

var a:array[1..n] of real;

, ибо у тебя в любом случае после замен массив ВСЕГДА будет содержать вещественные, а не целые значения...

Monarch

Дата 17.12.2006, 17:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Немного переделал первую задачу, но тперь все нормально smile

Код


rogram zada4a1;
Uses crt;
               Const n=10;
var a:array[1..n] of real;
    i:integer;
BEGIN
clrscr;
  randomize;
     writeln('Ishodniy massiv:')  ;
     for i:=1 to n do
     begin
 write('a[',i,']=') ;
     readln(a[i]);
           end;
 for i:=1 to n do
                  begin
   if (a[i]<0) then  a[i]:=a[i]+0.5
  else   a[i]:=0.1    ;
        end;
         writeln('New massiv:');
        for i:=1 to n do
         begin
      write(a[i]:5:1);
   end;
readln;
END.

З.Ы. Подскажите как вторую решать? smile

Это сообщение отредактировал(а) alexeis1 - 18.12.2006, 02:09

Kann

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

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

Загрузка ...

Новичок

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

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

Вторая

Код


const n=12;
      m=10;
var a:array[1..n,1..(m+1)]of integer;
    i,j,i1,i2:integer;
begin
readln(i,j);
for i1 := 1 to n do
for i2 := 1 to m do
a[i1,i2]:=random(20)+1;
for i1 := 1 to n do
begin
for i2 := 1 to m do
write(a[i1,i2]:3);
writeln;
end;
for i1:=1 to n do
begin
a[i1,m+1]:=a[i1,i];
a[i1,i]:=a[i1,j];
a[i1,j]:=a[i1,m+1];
end;
writeln('=============');
for i1 := 1 to n do
begin
for i2 := 1 to m do
write(a[i1,i2]:3);
writeln;
end;
readln;
end.

Alexeis

Дата 18.12.2006, 02:08 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(Monarch @ 17.12.2006, 17:53

)

З.Ы. Подскажите как вторую решать?

!
alexeis1

Модератор: обращайте внимание на замечания.

Нельзя создавать темы с несколькими вопросами. Создавайте вторую тему.

И кроме того выбирайте тип подсветки http://forum.vingrad.ru/index.php?showtopic=126445.

Kann, вы что хотите, чтоб я закрыл тему?

Это сообщение отредактировал(а) alexeis1 - 18.12.2006, 02:09

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Kann

Дата 18.12.2006, 14:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(alexeis1 @ 18.12.2006, 02:08)

Цитата(Monarch @ 17.12.2006, 17:53

)

З.Ы. Подскажите как вторую решать?

Kann, вы что хотите, чтоб я закрыл тему?

Извиняюсь, просто программа уже была, а ждать пока Monarch создаст второй топик не хотелось.

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