Нужно выполнить в программе "Паскаль".
Задания:
1. Набрать программу Bid и проверить ее работу для '+' и '-' чисел.
2. В программе Bid применить округление для вещественных чисел.
3. Набрать программу Text , получить результат.
4. Изменить программу Text так, чтобы второе слово выводилось только при нажатии цифры 2 , а при нажатии цифры кроме 1 и 2 выводилось сообщение “ERROR”.
5. Составить программу вычисления для любого х функции Y =1/x ,
при х=0 выдать сообщение ' функция не существует '.
​

Delphi 2010

procedure Zadanie1(A: Integer; B: Integer);
Var
   s: String;
   i: Integer;
begin
   s := '';
   for i := A to B do
      s := s + ' ' + IntToStr(i);
   s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A+1);
   ShowMessage(s);
end;

procedure Zadanie2(A: Integer; B: Integer);
Var
   s: String;
   i: Integer;
begin
   s := '';
   for i := B-1 downto A+1 do
      s := s + ' ' + IntToStr(i);
   s := Trim(s) + #13#10 + 'Всего чисел: ' + IntToStr(B-A-1);
   ShowMessage(s);
end;

procedure Zadanie3(A: Integer; B: Integer);
Var
   s: Integer;
   i: Integer;
begin
   s := 0;
   for i := A to B do
      s := s + i;
   ShowMessage('Сумма чисел = ' + IntToStr(s));
end;

procedure Zadanie4(A: Integer; B: Integer);
Var
   p: Integer;
   i: Integer;
begin
   p := 1;
   for i := A to B do
      p := p * i;
   ShowMessage('Произведение чисел = ' + IntToStr(p));
end;

procedure Zadanie5(A: Integer; B: Integer);
Var
   s: Integer;
   i: Integer;
begin
   s := 0;
   for i := A to B do
      s := s + sqr(i);
   ShowMessage('Сумма квадратов = ' + IntToStr(s));
end;

Const rchars='аеиоуыэюя';var s: string; mas: array[1..length(rchars)] of integer; k,i: integer;
begin  s:='которой,нужно,напечатать,алфавитном,порядке,все,гласные,буквы,которые.'; {readln(s);}  {инициализация массива счётчика гласных}  for k:=1 to length(rchars) do    mas[k]:=0;  i:=1;  while i<=length(s) do begin  {проверка на соответствие буквы гласной, согласно списку гласных}    for k:=1 to length(rchars) do      if (rchars[k]=s[i]) and (mas[k]<>-1) then        mas[k]:=mas[k]+1;    if (s[i]=',') or (s[i]='.') then      begin

        {проверить повторение гласных на два и более раз и проинициализировать массив счётчик}        for k:=1 to length(rchars) do          if (mas[k]<=2) and (mas[k]<>-1) then            mas[k]:=0          else            mas[k]:=-1;      end;    Inc(i);  end;

  {Вывод повторяющихся гласных}
  s:='';  for k:=1 to length(rchars) do    if mas[k]=-1 then      s:=s+rchars[k];

  writeln(s);end.