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[i]);
end;
for i=8 to 20 do begin
if a[i]<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

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"
желательно в архив если можно)

Миниатюры

         

AlexZir

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

VIQ

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

AlexZir

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

kreol

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

VIQ

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