Курсовая работа: Создание программы-переводчика текстов с английского на русский язык

if (st3 [n]='(') then

Delete (st3, n, 1)

else

begin

st2:=st2+st3 [n];

Delete (st3, n, 1);

Goto 1;

end;

end

else st2:=st2+st1 [i];

end;

n:=Length(st3);

for i:=n downto 1 do

st2:=st2+st3 [i];

WriteLn ('Stroka v postfiksnoi forme: ', st2);

readkey;

end.

Приложение С

Листинг программы «Переводчик»

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;