Добавить комментарии к программе

@Dimoon150 · Регистрация: 10.11.2012

Студворк — интернет-сервис помощи студентам

Помогите описать програму ! что и как тут делалось

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit N510;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;
type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type
    Date = record
    Day, Month, Year: integer;
    end;
var
  Form3: TForm3;
  D: array[1..100] of Date;
  L: Date;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
    input, output: TextFile;
fIn, fOut: String[20];
    i,n:integer;
begin
  fIn:= Edit1.Text;
  AssignFile(input, fIn);
  Reset(input);
  n:= 0;
  while not EOF(input) do
  begin
    inc(n);
   // readln(input, buf);
   readln(input,D[n].day, D[n].month, D[n].year);
     Memo1.Lines.Add(IntToStr(D[n].Day)+' '+IntToStr(D[n].Month)+' '+IntToStr(D[n].Year));
  end;
CloseFile(input)
  //for i:= 0 to Memo1.Lines.Count do
   if (n = 0) then exit;
  L := D[1];
  for i:=1 to n do
  begin
    if D[i].Year > L.Year then L := D[i];
    if D[i].Year = L.Year then
    begin
      if D[i].Month > L.Month then L := D[i];
      if D[i].Month = L.Month then
        if D[i].Day > L.Day then L := D[i];
    end;
  end;
  Edit2.Text:= IntToStr(L.Day)+' '+IntToStr(L.Month)+' '+IntToStr(L.Year);
end;
end.

@mss · 01.06.2013, 10:29

Сообщение от Dimoon150

что и как тут делалось

Кем делалось ?

@taras atavin · 01.06.2013, 10:34

А теги Билл будет расставлять?

@Dimoon150 · 01.06.2013, 11:54 **[ТС]**

не могу могу описать програму ! мне нужно написать что и как делалось и работает !

Добавлено через 1 минуту

Сообщение от mss

Кем делалось ?

не мной делалось ( и я не знаю как она работает)

@i368 · 01.06.2013, 12:06

'Жи','Ши' пишут с 'и',а не 'Ы'
*Программу

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
unit N510;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls;
type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type
    Date = record
    Day, Month, Year: integer; //Даны переменные типа integer (числовые)...
    end;
var
  Form3: TForm3;
  D: array[1..100] of Date;
  L: Date;
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
    input, output: TextFile; //Исходный файл для записи
fIn, fOut: String[20];
    i,n:integer; //Опять числовые переменные 
begin
  fIn:= Edit1.Text; // Приравняем переменную fIn к edit1 
  AssignFile(input, fIn); //Запишем в в файл текст переменной fIn,путь к файлу input.. 
  Reset(input);
  n:= 0; //Присвоем переменной n значение 0
  while not EOF(input) do
  begin
    inc(n);
   // readln(input, buf); 
   readln(input,D[n].day, D[n].month, D[n].year); //Выводим текст input,и переменные Day,Month,Year
     Memo1.Lines.Add(IntToStr(D[n].Day)+' '+IntToStr(D[n].Month)+' '+IntToStr(D[n].Year)); //Добавим их в Tmemo
  end;
CloseFile(input) //Закрываем запись в файл
  for i:= 0 to Memo1.Lines.Count do
   if (n = 0) then exit;
  L := D[1];
  for i:=1 to n do
  begin
    if D[i].Year > L.Year then L := D[i];  //Если D[i].Year больше L.Year ,то выполняет действие L := D[i];
 
    if D[i].Year = L.Year then //Если D[i].Year = L.Year  равны,то выполним дейсвие между begin и     end 
    begin
      if D[i].Month > L.Month then L := D[i]; 
      if D[i].Month = L.Month then
        if D[i].Day > L.Day then L := D[i];
    end;
  end;
  Edit2.Text:= IntToStr(L.Day)+' '+IntToStr(L.Month)+' '+IntToStr(L.Year); //Опять,же текст едита будет Day,Month,Year
end;
end.

@mss · 01.06.2013, 12:51

Сообщение от Dimoon150

не мной делалось

Ну а тобой что делалось ?

@саша40 · 01.06.2013, 13:58

Сообщение от Dimoon150

Помогите описать програму ! что и как тут делалось

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
unit N510;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls; //модули к этому модулю
type
  TForm3 = class(TForm) //форма на ней: кнопка, поле ввода, поле с многостроковым вводом, надпись, ещё поле //////ввода, ещё надпись
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
Type //тип, и нафиг если можно написать выше формы
    Date = record //запись Date, зря, будет путатся с функцией
    Day, Month, Year: integer; //дата, месяц, год
    end; //конец 
var
  Form3: TForm3;
  D: array[1..100] of Date; //массив из ста записей дат 
  L: Date; //дата, неверно, текущая 
implementation
{$R *.dfm}
procedure TForm3.Button1Click(Sender: TObject);
var
    input, output: TextFile; //начальный и конечный текстовые файлы
fIn, fOut: String[20]; //вход и выход, хз, зачем?
    i,n:integer; //положения
begin
  fIn:= Edit1.Text; //получаем вход, название файла
  AssignFile(input, fIn); //открываем файл
  Reset(input); //читаем
  n:= 0; 
  while not EOF(input) do //спроси, что за функция, наверное тоже, что и try finally
  begin
    inc(n); //положение цикла
   // readln(input, buf);
   readln(input,D[n].day, D[n].month, D[n].year); //читаем дату, месяц, год
     Memo1.Lines.Add(IntToStr(D[n].Day)+' '+IntToStr(D[n].Month)+' '+IntToStr(D[n].Year)); //записываем в поле, то что прочитали
  end;
CloseFile(input); //закрываем файл
  //for i:= 0 to Memo1.Lines.Count do 
   if (n = 0) then exit; //если файл был пустой, то выходим
  L := D[1]; //присваем полученую дату
  for i:=1 to n do //начинаем цыкл по кол-ву строк в файле
  begin
    if D[i].Year > L.Year then L := D[i]; //много короче всего
    if D[i].Year = L.Year then
    begin
      if D[i].Month > L.Month then L := D[i];
      if D[i].Month = L.Month then
        if D[i].Day > L.Day then L := D[i];
    end;
  end;
  Edit2.Text:= IntToStr(L.Day)+' '+IntToStr(L.Month)+' '+IntToStr(L.Year);
end;
end.

Наверное, программа на гигабайты, так как у нас 510 модуль программы!

Полукоментированый код в цитате.

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@taras atavin 4226 / 1796 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	01.06.2013, 10:34
	А теги Билл будет расставлять? 0