Delphi/Перевод слов-Базовый курс

Здесь дан перевод ключевых слов, команд и т. д, которые использовались в Базовом курсе. Это кому лень лезть в словарь или переводчик:)

Слово Перевод
procedure процедура
begin начать(начинается, начало)
end конец(окончить)
interface интерфейс
uses используются(использования)
private заприваченные
public публичный
var от variable — переменная
button кнопка
true правда(да, верно)
false ложь(нет, неверно, фальшивый)
if если
then затем(тогда)
else иначе

Перевод кодовПравить

1Править

Исходный:

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
a:=5;
end;

Переведенный:

процедура ТФорма1.Кнопка1Клик(Sender: ТОбъект);
пер
a:целая;
начать
a:=5;
конец;

2Править

Исходный:

procedure TForm1.Button1Click(Sender: TObject);
var a, b:integer
begin
a:=StrToInt(Edit1.Text);
if a<5 then
begin
Edit2.Text:='Число подходит!';
end
else
begin
Edit2.Text:='Число неправильное!';
end;
end;

Переведенный:

процедура ТФорма1.Кнопка1Клик(Sender: ТОбъект)
пер a, b:целая;
начать
a:=СтрВЦел(ПолеВВода1.Текст);
если a<5 тогда
начать
ПолеВвода1.Текст:='Число подходит!';
конец
иначе
начать
ПолеВвода1.Текст:='Число неправильное!';
конец;
конец;