исправить ошибки

[admiral121]

написал пару программ и никак не могу понять где ошибки

Выполнить табуляцию функции, то есть: для заданной переменной х[-3;2] с шагом h = 0,2 . При всех значениях х вычислить значения функции y = (( x – 1) в квадрате) – ((е)в степени (-x)) . Вывести в столбик х и соответствующий y. Использовать оператор цикла repeat.

program pr2;
uses crt;
var x,y,h:real;
const e=2.7;
BEGIN
  clrscr;
  read(x);
  h:=x;
 if (x>=-3) and (x<=2) then
 repeat
 begin
  y:=(sqr((x-1))-(exp(ln(e)*(-x))));
  writeln('x= ',x:2:2,' y= ',y:2:2);
  h:=(h+0.2);
  end;
 until(h=2);
readln;
END.

Дан одномерный массив а(n), в кото*ром находится единственный нулевой элемент. Найти где он находится, и упо*рядочить по возрастанию элементы, рас*положенные за ним. Выдать на экран номер элемента и упорядоченный мас*сив.

program pr7;
uses crt;
const n= 10;
var a: array [1..n] of integer;
    i,min,j,t,temp: integer;
BEGIN
  clrscr;
  for i:=1 to n do
 begin
  writeln('‚ўҐ¤ЁвҐ ',i, ' н«Ґ¬Ґ*в ¬ ббЁў : ');
  read(a[i]);
 end;
  for i:=1 to n do
   if (a[i]=0) then
 begin
  writeln('Ќ®¬Ґа *г«Ґў®Ј® н«Ґ¬Ґ*в = ',i);
 end;
 t:=i+1;
  for i:=n  downto t do
   for j:=t to n do
    if (a[j]>a[j-1]) then
     begin
      temp:=a[j];
      a[j]:=a[j-1];
      a[j+1]:=temp;
     end;
  for i:=1 to n do
   write(a[i], ' ');


END.

Первая программа зацикливается, а вторая не производит сортировку

[andrewpalkin]

Попробуй заменить вот эту часть кода :

  for i:=n  downto t do
   for j:=t to n do
    if (a[j]>a[j-1]) then
     begin
      temp:=a[j];
      a[j]:=a[j-1];
      a[j+1]:=temp;
     end;

Замени на вот эту :

  for i:=t  to n-1 do
   for j:=i+1 to n do
    if (a[i]>a[j]) then
     begin
      temp:=a[i];
      a[i]:=a[j];
      a[j]:=temp;
     end;

[Mad_Cat]

Первая программа зацикливается

замени

until(h=2);

на

until(h>2);

[admiral121]

Спасибо большое за ответы. Не могли бы вы подсказать ещё одну вещь.
есть такое задание

Дано два одномерных массива разной длины a(n) и b(m) и два числа x и y. Сформировать двумерный массив C(n ×m) , так, что бы каждый элемент матрицы был равен: cij=x ai+y bj


Написал программу, вроде всё правильно, но компиляция отменяется из-за несоответствия типов. Никак не пойму где ошибка

program pr17;
uses crt;
const n=10; m=5;
var a: array [1..n] of integer;
    b: array [1..m] of integer;
    c: array [1..n,1..m] of integer;
    i,j: integer;
    x,y: integer;
BEGIN

   clrscr;
    for i:=1 to n do
     begin
      writeln('‚ўҐ¤ЁвҐ ',i,' н«Ґ¬Ґ*в ¬*ббЁў* a: ');
      read(a[i]);
    end;

     for i:=1 to m do
     begin
      writeln('‚ўҐ¤ЁвҐ ',i,' н«Ґ¬Ґ*в ¬*ббЁў* b: ');
      read(b[i]);
    end;

    writeln('‚ўҐ¤ЁвҐ зЁб«® x: ');
    read(x);
    writeln('‚ўҐ¤ЁвҐ зЁб«® y: ');
    read(y);

    for i:=1 to n do
      for j:=1 to m do
        c[j]:=x*a[i]+y*b[j];



END.

[admiral121]

Попробуй заменить вот эту часть кода :

Код:



for i:=n downto t do
for j:=t to n do
if (a[j]>a[j-1]) then
begin
temp:=a[j];
a[j]:=a[j-1];
a[j+1]:=temp;
end;

Замени на вот эту :

Код:



for i:=t to n-1 do
for j:=i+1 to n do
if (a[i]>a[j]) then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;

не помогло, цифры выводятся в том же порядке, что и были введены

[andrewpalkin]

Сообщение от admiral121

не помогло, цифры выводятся в том же порядке, что и были введены

Потому что вот это :

 for i:=1 to n do
   if (a[i]=0) then
 begin
  writeln('Ќ®¬Ґа *г«Ґў®Ј® н«Ґ¬Ґ*в = ',i);
 end;
 t:=i+1;

Надо заменить на вот это :

 for i:=1 to n do
   if (a[i]=0) then
 begin
  writeln('Ќ®¬Ґа *г«Ґў®Ј® н«Ґ¬Ґ*в = ',i);
  t:=i+1;
 end;

[andrewpalkin]

Сообщение от admiral121

Спасибо большое за ответы. Не могли бы вы подсказать ещё одну вещь.
есть такое задание

Дано два одномерных массива разной длины a(n) и b(m) и два числа x и y. Сформировать двумерный массив C(n ×m) , так, что бы каждый элемент матрицы был равен: cij=x ai+y bj


Написал программу, вроде всё правильно, но компиляция отменяется из-за несоответствия типов. Никак не пойму где ошибка

program pr17;
uses crt;
const n=10; m=5;
var a: array [1..n] of integer;
    b: array [1..m] of integer;
    c: array [1..n,1..m] of integer;
    i,j: integer;
    x,y: integer;
BEGIN

   clrscr;
    for i:=1 to n do
     begin
      writeln('‚ўҐ¤ЁвҐ ',i,' н«Ґ¬Ґ*в ¬*ббЁў* a: ');
      read(a[i]);
    end;

     for i:=1 to m do
     begin
      writeln('‚ўҐ¤ЁвҐ ',i,' н«Ґ¬Ґ*в ¬*ббЁў* b: ');
      read(b[i]);
    end;

    writeln('‚ўҐ¤ЁвҐ зЁб«® x: ');
    read(x);
    writeln('‚ўҐ¤ЁвҐ зЁб«® y: ');
    read(y);

    for i:=1 to n do
      for j:=1 to m do
        c[j]:=x*a[i]+y*b[j];



END.

Вот это :

  for i:=1 to n do
      for j:=1 to m do
        c[j]:=x*a[i]+y*b[j];

Замени на вот это :

  for i:=1 to n do
      for j:=1 to m do
        c[i][j]:=x*a[i]+y*b[j];

[admiral121]

Спасибо, но с 17 программой я уже сам разобрался. Только 7 никак не хочет работать(