Начало роботы в Делфи

[sv2311]

Помогите вывести в метке сокращенное название поточного месяца,используя программное опрос даты

Добавлено спустя 9 минут 1 секунду:

что то типа того будет???

const
    stDay : array[1..7] of string[11] =
       ('воскресенье','понедельник','вторник',
        'среда','четверг','пятница','суббота');

    stMonth : array[1..12] of string[8] =
       ('января','февраля','марта',
        'апреля','мая','июня','июля',
        'августа','сентября','октября',
        'ноября','декабря');

................
var
Present: TDateTime;      // текущая дата и время
  Year, Month, Day : Word; // год, месяц и число, как
                           // отдельные числа
begin
 Present:= Now; // получить текущую дату
  DecodeDate(Present, Year, Month, Day);
  Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
    stMonth[Month] + ' '+ IntToStr(Year)+
    ' года, '+ stDay[DayOfWeek(Present)];end;

[nworm]

А кто такое "поточного месяца"?

[sv2311]

тоисть тот какой идет сегодня

[nworm]

Тоисть это программное? Или еще если можно помочь?

{ **** UBPFD *********** by ****
>> Преобразование даты (месяц прописью)

Преобразование даты. Например: 23.02.02 преобразуется в 23 февраля 2002 года.

Зависимости: DecodeDate
Автор:       mukha, [e-mail], Волгоград
Copyright:   mukha
Дата:        17 ноября 2002 г.
******************************* }

function Monthstr(S:string):string;
const Mes:array[1..12] of string=('января','февраля','марта','апреля',
'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
Year,Month,Day:Word;
 begin
  try
  StrToDate(S); // пр-ка правильности ввода даты
  DecodeDate(StrToDate(S),Year,Month,Day);
  Result:=IntToStr(day);
  Result:=Result+' '+Mes[Month];
  Result:=result+ ' '+IntToStr(Year)+' года';
  except
  raise
  Exception.Create('"'+s+'"'+' - такой даты нет!');
  end;
 end;

Добавлено спустя 16 минут 51 секунду:

Заместо

................
var
Present: TDateTime;      // текущая дата и время
  Year, Month, Day : Word; // год, месяц и число, как
                           // отдельные числа
begin
 Present:= Now; // получить текущую дату
  DecodeDate(Present, Year, Month, Day);
  Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
    stMonth[Month] + ' '+ IntToStr(Year)+
    ' года, '+ stDay[DayOfWeek(Present)];end;

Пишем

const Mes:array[1..12] of string=('января','февраля','марта','апреля',
'мая','июня','июля','августа','сентября','октября','ноября','декабря');
var
Present: TDateTime;      // текущая дата и время
  Year, Month, Day : Word; // год, месяц и число, как
                           // отдельные числа
begin
 Present:= Now; // получить текущую дату
  DecodeDate(Present, Year, Month, Day);
  Label2.Caption := 'Сегодня '+IntToStr(Day)+ ' ' +
    Mes[Month] + ' '+ IntToStr(Year)+
    ' года, '+ stDay[DayOfWeek(Present)];end;

[sv2311]

помогите в написание алгоритма и программы решения заданого арифметического уравнения для любого значения переменных в delphi.Очень нужно!!!(

b=Exp(-x*ln(2))*sqrt(x+exp(1/4*ln(abs(y))))

[nworm]

какие тут переменные?

[sv2311]

ну х и у

[ewert]

две последние переменные из трёх явно переставлены, но дело не в этом. А в том, что откровенно не указано: что в точности дано и что в точности следует найти.

[sv2311]

я так понимаю что нужно х и у ввести, а b нужно посчитать!

[nworm]

ewert, всё гораздо веселее.
Поскольку это сообщение выделилось из темы "Начало роботы в Делфи" Видимо, надо

помогите в написание алгоритма и программы нахождения значения заданного выражения для любого значения переменных в delphi.

Добавлено спустя 1 минуту 6 секунд:

x,y,b: real;

 x:=StrToFloat(Edit1.Text);
 y:=StrToFloat(Edit2.Text);
 b:=Exp(-x*log(2))*sqrt(x+exp(1/4*log(abs(y))));
 Edit3.Text:=FloatToStr(b);

[sv2311]

Подскажите как получить ответ в форме с десятичной точкой, отобразив её с помощью метки при создании формы работающего додатка

[GAA]

sv2311 писал(а):

Подскажите как получить ответ в форме с десятичной точкой, отобразив её с помощью метки при создании формы работающего додатка

Я так понял: «додаток» — это «приложение».
Свойство [property] Caption имеет тип TCaption (который имеет тип String), поэтому для отображения значения некоторой вещественной переменной z, нужно преобразовать её значение в строку. Преобразовать «вещественное в строку» можно при помощи функции format.
В следующем примере, в обработчике события FormActivate, свойству Caption метки присваивается значение переменной z, равное 16.12; на экране будем наблюдать «z=_16.1» (при помощи подчеркивания я обозначил пробел).

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
  Label1: TLabel;
  procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
var
 z: Real;
procedure TForm1.FormActivate(Sender: TObject);
begin
 z:= 16.12;
 Label1.Caption := format ('z=' + '%5.1f', [z]);
end;
end.

Вместо использования функции format, можно использовать процедуру str. Если ввести переменную s типа string, присвоение будет выглядеть так

str(z:5:1, s);
Label1.Caption:= s;

P.S.
1. Из из раздела III правил форума: «Начальные сообщения любой темы должны четко и внятно формулировать предмет или вопрос, который предполагается обсудить. В противном случае тема будет перемещена в карантин до уточнения предмета.»
Постарайтесь, в дальнейшем, четче формулировать вопрос.
2. Это учебная задача, поэтому Вы должны указать, что Вам известно, и в чем состоят затруднения.

[PAV]

PAV:

Близкие темы слиты в одну

[sv2311]

1.ввод и вывод даных с помощью edit;
2.выполнить задачу простым циклом!

Есть натурал. число n подсчитать

n корней = sqrt(2+sqrt(2+.....sqrt(2)))

как в цикле записать вот именно эти точки - " ....." с заданной формулы

[Student2007]

что-то не понятно, а куда n подставлять-то? и что в скобках должно происходить?