Создать приложение "Lazarus"

[VIQ]

Создать приложение "Lazarus"

Туристы вышли из леса на шоссе неподалеку от километрового столба с отметкой А км и решили пойти на ближайшую автобусную остановку. Посмотрев на план местности, руководитель группы сказал, что автобусные остановки расположены на километре В и на километре С. Куда следует пойти туристам?

var
a:array [8..20] of integer;
i: integer;
begin
for i:=8 to 20 do begin
writeln('vvedite temperature v i,' chasov');
readln(a);
end;
for i=8 to 20 do begin
if a<0 then begin
writeln('v pervii temperature upaJa nije nulya vchasov),
Break;
end;
end;
readln;
end.

создайте приложение с кнопками)

 

[ReZiStOr]

вроде так

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: real;
ab,ac: real;

begin
a := strtoint(edit1.text);
b := strtoint(edit2.text);
c := strtoint(edit3.text);

ab := abs(a-b);
ac := abs(a-c);
if ab<ac then Label2.caption := 'идти к B' else
if ac<ab then Label2.caption := 'Идти к C' else
Label2.caption := 'безразлично'


end;

 

[VIQ]

var
a:array [8..20] of integer;
i: integer;
begin
for i:=8 to 20 do begin
writeln('vvedite temperature v i,' chasov');
readln(a);
end;
for i=8 to 20 do begin
if a<0 then begin
writeln('v pervii temperature upaJa nije nulya vchasov),
Break;
end;
end;
readln;
end.

program p1;

{$APPTYPE CONSOLE}

var
a,b,c: real;
ab,ac: real;
begin
readln(a,b,c);
ab := abs(a-b);
ac := abs(a-c);
if ab<ac then
write('Идти к B')
else if ac<ab then
write('Идти к C')
else
write('Безразлично');
readln;
end.

 

[VIQ]

Создать приложение "Lazarus"

Создать Приложение "Lazarus"
желательно в архив если можно):tehnari_ru_203::tehnari_ru_889:

 

[AlexZir]

А в чем, собственно, затруднение? Загружайте Lazarus, создавайте новый проект типа консольное приложение и забивайте в него листинги из методички. Или у вас проблемы с набором текста?

 

[VIQ]

проблемы лазарусом из-за ОС

 

[AlexZir]

Это одна из самых легко решаемых проблем. Lazarus под Linux вы можете даже не устанавливать, а запускать с LiveCD, скачайте образ, в котором присутствует эта среда программирования, запишите на болванку и стартуйте с нее. Виндовые тома примонтируются автоматически, так что вы сможете сохранить свой проект на любом томе, в том числе и на винчестер.

 

[kreol]

lazarus кросплатформенный! он есть как на линуксе так и на винде. (насчет мака не знаю.) но запустить можно и так, как сказал AlexZir

 

[VIQ]

Всем спасибо тему можно закрыть.