[lxa85]

dasha131, обрамляй код тегом [code] [/code] - #

Код: program norma; var n:integer; max:real; i:integer; a: Array [1..10] of real; begin read (n); // я бы поставил readln это позволит безболезненно использовать Ентер как завершение ввода переменной // Так же обрати внимание, что теоретически n может быть больше 10, и в заданный массив это не влезет. Верней влезет, //но будет произведена запись в неположенную ячейку памяти и повредить другую переменную. //Проще сказать - это плохо. Ты можешь оставить как есть, ограничив диапазон вводимой переменной n for i:=1 to n do begin read (a[i]); end; // я бы тебе на самом деле предложил бы объединить эти два цикла. И в процессе ввода массива отслеживать число по максимальному модулю. // Ведь у тебя в обеих случаях используется цикл for i= 1 to x begin // эта операторная скобка лишняя for i:=1 to n do begin // А вот тут у тебя может возникнуть ошибка, причем серьезная. //Переменная max у тебя на момент начала выполнения цикла может содержать все что угодно. //Тебе необходимо ее инициализировать, т.е. присвоить ей некое начальное значение. //Обрати внимание, что ты работаешь с модулем числа. Это подскажет тебе выбор правильного значения :) if (ABS(a[i])>max) then max:=a[i]; end; write(max:4:2); end; // хвост от лишней операторной скобки end. »

Хорошо. Осталось тебе переписать код на цикл while, для обеспечения работы с бесконечным вектором.
Отказаться от явного задания n. Прокомментировать код.

Операторная скобка позволяет несколько операторов интерпретировать как один. Это необходимо в ряде конструкций, где предусмотрено выполнение оного оператора, а необходимо выполнить несколько. Например конструкция условия, цикла while.

a: Array [1..10] of real; незнала как обозначить в блоке описания переменных элемент "а", потом нашла в примерах такое её обозначение, звучит как "Переменная а - массив действительных чисел из 10 элементов" а что это означает? что бы поменялось если я поставила там другие значения? »

Обращаясь к переменной a ты обращаешься к массиву чисел. Т.к. ты указала тип real - это вещественные числа. Т.е. положительные, отрицательные, дробные. Т.е. все числа на числовой прямой, исключая мнимые (те, что с i)

Числа внутри скобок обозначают начальное и конечное значение индекса элемента (в последний момент я засомневался, но вроде так, другого тут быть не может)
Так же ты можешь задать двух, трех и так далее мерный массив. ЕМНИП они перечисляются через запятую [a1..a2, b1..b2, и т.д.]
Можно задать массив массивов, массив объектов и т.п.
Ну это чуть позже вы все пройдете и не в этом посте мне обо всем рассказывать

[dasha131]

Спасибо большое что помогаете!
Вот я исправила замечания, завтра еще почитаю про "вайл" и попробую переделать под него
program norma;
var
n:integer;
max:real;
i:integer;
a: Array [1..500] of real;
begin
readln (n);
for i:=1 to n do
begin
read (a[i]);
end;
for i:=1 to n do
begin
max:= ABS(a[1]);
if (ABS(a[i])>max) then max:=a[i];
end;
write(max:4:2);
end.

[lxa85]

dasha131, опять напутала, что ж такое то.

Код:

program norma;
var
  n:integer;
  max:real;
  i:integer;
  a: Array [1..500] of real;
begin
  readln (n);
  max=0;
  for i:=1 to n do
  begin
    read (a[i]);
    if (ABS(a[i])>max) then max:=a[i];
  end;

  write(max:4:2);
end.

Теперь переписывай в while, для бесконечного числа вводимых величин.
Естественно цикл должен как-то заканчиваться. Либо вводом определенного числа, либо через ентер. Т.е. продумай этот момент.

[dasha131]

Что то с while возникли проблемы( даже нето чтобы проблемы, немогу представить как им воспользоваться в данной задаче.

[dasha131]

Как можно выбрать максимальное значение из бесконечности???

[lxa85]

Вроде бы так. Проверь.

Код:

var 
a:char; // для организации посимвольного ввода
b:integer; //
flag:boolean;
max:integer;

begin
//инициализация переменных;
b:=0; 
max:=0;
znak:=+1;
flag:=false;

repeat
//Вот тут у меня возникли сложности. Тебе надо будет найти, как организовать считывание символа из буффера клавиатуры. Примеры что мне попались в интернете, мне не понравились. Однако если сложные конструкции допустимы, то можно и позаимствовать. 
 read (a); // КОМАНДА НЕ ВЕРНА!!! Ее надо заменить! Здесь стоит для обозначения действия. 
  
  if ord(a) >= ord(0) and ord(a) >= ord(9) then begin //проверяем, что ввели цифру
    b:=b*10+znak*a; //"набираем" число
  end;

  if a="-" then znak:=-1; //если попался минус, то число должно быть отрицательным

  if a=" " then begin //символ разделителя чисел в ряде например  12 144 17 
    if (ABS(b)>max) then max:=b; //Сравниваем с макисмальным
    znak:=+1; //готовим переменные к новому циклу
    b:=0;
  end; //if

  if ord(a)=13 //Enter ЕМНИП //выставляем флаг для окончания цикла
    then flag:=true;
until flag;  

end.

Можно конечно и на while переписать поменяв условие.
Так же желательно переписать использую конструкцию case <name> of
это даст более гибкие возможности для сравнения переменной с чем-либо.
ord - возвращает порядковый номер перечисляемого типа.
В качестве конечного символа можно использовать например букву, или иной отличный от знака числа и знака разделителя(лей) символ.

[dasha131]

Вобщем вот окончательный вариант программы по моей задачи, большое спасибо за помощь )
program norma;
var
n:integer;
max:real;
i:integer;
x:real;
begin
max:=0;
read (n);
for i:=1 to n do
begin
read (a);
if (ABS(a)>max) then max:=ABS(a);
end;

write(max:4:2);
end.

[kiriluss]

Подскажите пожалуйста как решить задачу в Паскале.
Составить програму для нахождения значений компонентов вектора S={S1,..S6} где каждая расчитывается по формуле: Si=(Aj+Aj+1)/2, j=1,2..12, Aj может быть положительные и отрицательные значения