Замена значений в массиве, на указанное, одномерные массивы. паскаль

[Кирилл17]

помогите исправить программу. она запускается а вот значений никаких не выдаёт.

Дан массив Х(20). Найти в нем заданный элемент и заменить его значение на другое, запрашиваемое после обнаружения заданного элемента. Если элемент не обнаружен, сообщить о неудачной ошибке и предложить повторить поиск другого элемента.

program p1;
uses crt;
const n=20;
var X:array [1..n] of real;
i,a,b:integer;
begin
for i:=1 to n do read(x[i]);
write('vvedite element');
readln(a);
IF X[a]=x[i] then write('vvedite zameny');
read(x[i]);
readln(b);
for i:=1 to n do
x[a]:=x[b];
if x[a]<>x[i] then begin writeln('neydachno');
end;
end.

[Sazary]

Как-то так:

program p1;
uses crt;
const n=20;

var X:array [1..n] of real;
i,a,b:integer;
flag : boolean;
c : char;
begin
clrscr;

for i:=1 to n do read(x[i]);

flag := false;
while not flag do
 begin
  write('vvedite element ');
  readln(a);

  for i:=1 to n do
   begin
   IF a=x[i] then
    begin
    write('vvedite zameny ');
    readln(x[i]);
    flag := true;
    end;
   end;
 if not flag then
  begin
  writeln('Neudacha. Prodolzhit poisk? (y/n)');
  readln(c);
  if c <> 'y' then flag:=true;

  end;
 end;
writeln('Press enter to exit...');
readln;
end.

[Кирилл17]

можно ли избавиться от флага в программе? слишком сложно для первого курса.

[Sazary]

можно ли избавиться от флага в программе?

Если смущает тип boolean, то можно поменять его, скажем, на integer и в программе заменить "true" на 1, а "false" на 0.
Или флаг совсем убрать надо?

[Sazary]

Вот:

program p1;
uses crt;
const n=20;

var X:array [1..n] of real;
i,a,b:integer;
flag : integer;
c : char;
begin
clrscr;

for i:=1 to n do read(x[i]);

flag := 0;
while flag = 0 do
 begin
  write('vvedite element ');
  readln(a);

  for i:=1 to n do
   begin
   IF a=x[i] then
    begin
    write('vvedite zameny ');
    readln(x[i]);
    flag := 1;
    end;
   end;
 if flag = 0 then
  begin
  writeln('Neudacha. Prodolzhit poisk? (y/n)');
  readln(c);
  if c <> 'y' then flag:=1;
  end;
 end;
writeln('Press enter to exit...');
readln;
end.

Совсем без флага, думаю, нельзя. Иначе как программа узнает, найден элемент, или нет?

[Кирилл17]

Н А Д О !!!

[Sazary]

Кирилл17 Смотрите предыдущий пост. Совсем без флага не получится. Если кто-нибудь сделает без него (и без чего-то подобного), то мне будет самому интересно посмотреть.
PS: В вашем варианте, хоть он и неправильный, тоже присутствует флаг (X[a]). Так что не вижу проблемы.

[Кирилл17]

я не понимаю что такое флаг. нам его давали на самостоятельное обучение. я нигде не нашел информации про него.теперь мучаюсь.
как тогда с помощью флага решить эту задачу:дано 100 вещественных чисел. опреденить образуют ли они возрастающую последовательность.

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

[lenant]

А он должен чё-то делать после замены или должен сразу закрывать? Если закрывать, то вот:

program p1;
uses crt;
const n=20;
var X:array [1..n] of real;
i,a,b:integer;
c : char;
begin
clrscr;;
for i:=1 to n do read(x[i]);
repeat
  write('vvedite element ');
  readln(a);
  for i:=1 to n do
   begin
   IF a=x[i] then
    begin
    write('vvedite zameny ');
    readln(x[i]);
    exit;
    end
    else
     if i=n then
      begin
      writeln('Neudacha. Prodolzhit poisk? (y/n)');
      readln(c);
      end;
   end;
until c='n';

end.

PS за основу брал код Sazary, надеюсь он не обидется.

[Sazary]

как тогда с помощью флага решить эту задачу:дано 100 вещественных чисел. опреденить образуют ли они возрастающую последовательность.

Пиал специально с использованием флага. Вообще можно решить проще.

uses crt;

var
mas : array[1..100] of real;
i,k : integer;
flag : boolean;

begin
clrscr;
{ zapolnyaem massiv}
for i:=1 to 100 do
 begin
 mas[i] := i;
 end;
{--}
k:=2;
flag := false;

while (not flag) and (k<=100)  do
 begin
 if mas[k-1]>mas[k] then flag := true;

 k := k+1;
 end;
if not flag then writeln('Vozrastayushaya')
else writeln('Ne vozrastaet');

readln;
end.