Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Массивы

Автор: Monarch 14.12.2006, 20:53

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

M
alexeis1

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

Автор: Rodman 15.12.2006, 13:23

Код


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.

Автор: volvo877 15.12.2006, 15:08

Как вариант - обойтись без 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

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

Сделай так:

Код

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

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

Автор: Monarch 17.12.2006, 17:53

Немного переделал первую задачу, но тперь все нормально 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

Автор: Kann 17.12.2006, 18:12

Вторая

Код


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

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

)

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

!
alexeis1

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

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

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

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

Автор: Kann 18.12.2006, 14:24

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

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

)

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

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

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