Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 10.11.2015, 19:41   #1
KatarinaDe
Заблокирован
 
Регистрация: 10.11.2015
Сообщений: 3
Репутация: 10
По умолчанию Помогите глупой мне))) С формой если можно)

Заданы три числа. Если сумма двух наименьших из них больше третьего числа, то найти среднее геометрическое всех трех чисел, иначе найти их среднее арифметическое.
KatarinaDe вне форума   Ответить с цитированием
Старый 10.11.2015, 21:55   #2
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,842
Репутация: 6832
По умолчанию

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

			{ TForm1 }

      TForm1 = class(TForm)
						procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var a:array[1..3] of integer; q,i,j:integer;
begin
 for i:=Low(a) to High(a) do a[i]:=StrToIntDef(InputBox('Число №'+IntToStr(i),'0','0'),0);
 for i:=Low(a) to High(a) do  for j:=Low(a) to High(a) do
 if a[i]<a[j] then begin q:=a[i]; a[i]:=a[j];a[j]:=q; end;
 if (a[1]+a[2])<a[3] then ShowMessage(format('Арифметическое: %5.2f',[(a[1]+a[2]+a[3])/3]))
 else ShowMessage(format('Геометрическое: %5.2f',[(a[1]*a[2]*a[3])/3]));

 ShowMessage('И не забудь проставить поляну преподу! Преподы тоже кушать хочУт')
end;

end.

__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 10.11.2015, 22:03   #3
AlexandraGrey
Пользователь
 
Регистрация: 19.10.2015
Сообщений: 14
Репутация: 10
По умолчанию

Спасибо огромное)

Цитата:
Сообщение от Stilet Посмотреть сообщение
Код:


 ShowMessage('И не забудь проставить поляну преподу! Преподы тоже кушать хочУт')

ха-ха, оч смешно, я чуть не забросила это в код)))
AlexandraGrey вне форума   Ответить с цитированием
Старый 10.11.2015, 22:21   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,842
Репутация: 6832
По умолчанию

Цитата:
оч смешно
Ты зря думаешь что я пошутил. Впрочем уверен скоро ты поймешь. Еще пара тройка курсачей и лаб, и такие мысли станут посещать тебя с убийственной настойчивостью.
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Старый 11.11.2015, 10:21   #5
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,447
Репутация: 2769
По умолчанию

Цитата:
ха-ха, оч смешно, я чуть не забросила это в код)))
Смешно будет уже нам, когда вам зададут что-то что не 5-10 минут делать, и вы будите посланы в раздел "фриланса" за кровные сбережения глупости решать.
Человек_Борща вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить графическую задачу по информатике на паскале abc. И если можно объяснить. Flint_Morgan Паскаль 0 12.05.2015 20:36
можно ли писать php код внутри javascript инструкции if? если можно, то как это сделать? Ubihinon PHP 2 18.02.2012 17:45
Как передвигать объект если он не под формой.VB somebody94 Помощь студентам 1 29.06.2010 10:07
помогите решить задачи на паскале, если можно с полным решением вадимкО Помощь студентам 4 13.12.2009 14:04
Помогите глупой брюнетке)) alien-kurgan Помощь студентам 4 12.11.2009 19:29


09:05.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru