19.12.2011, 19:19 | #1 (permalink) |
Новичок
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -1
|
Создать приложение "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[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. создайте приложение с кнопками) |
19.12.2011, 19:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наберитесь больше информации - ознакомьтесь с темами которые создавались на нашем форуме ранее Помогите сделать задачи с кнопками в Lazarus Пользовательское приложение Excel VBA Сделать графический интерфейс, Lazarus DirectShow и приложение. Клиент-серверное приложение на С с использованием RPC |
19.12.2011, 19:40 | #2 (permalink) |
дигидрогенамонооксид
Регистрация: 11.07.2011
Сообщений: 300
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 19
|
вроде так
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; |
19.12.2011, 19:40 | #3 (permalink) | |
Новичок
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -1
|
Цитата:
{$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. |
|
19.12.2011, 20:00 | #5 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
А в чем, собственно, затруднение? Загружайте Lazarus, создавайте новый проект типа консольное приложение и забивайте в него листинги из методички. Или у вас проблемы с набором текста?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.12.2011, 12:25 | #7 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Это одна из самых легко решаемых проблем. Lazarus под Linux вы можете даже не устанавливать, а запускать с LiveCD, скачайте образ, в котором присутствует эта среда программирования, запишите на болванку и стартуйте с нее. Виндовые тома примонтируются автоматически, так что вы сможете сохранить свой проект на любом томе, в том числе и на винчестер.
|
23.12.2011, 18:17 | #9 (permalink) |
Новичок
Регистрация: 19.12.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: -1
|
Всем спасибо тему можно закрыть.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|