С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
1 / 1 / 0
Регистрация: 09.05.2018
Сообщений: 26
1

Из списка студентов группы вывести фамилии двух самых старших студентов.

10.05.2018, 10:44. Показов 2516. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Задача поставлена следующим образом: из списка студентов группы, где приведены фамилии и даты рождения, вывести фамилии двух самых старших студентов. Сначала делал через массив, и всё бы хорошо, но датовый тип из стринггрида у меня ни в какую не считывался. Потом начал делать через записи, однако лучше не стало - до считывания вообще не доходит, ругается на несовместимые типы.

Кусок программы с записями, пока только ввод:

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Grids, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    StringGrid2: TStringGrid;
    Image1: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  student = record
    Name: String;
    Bd  : TDateTime;
  end;
 
var
  Form1: TForm1;
  a: array [1..5] of student;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  for i := 1 to StringGrid1.RowCount - 1 do
      a.Name:= StringGrid1.Cells[0,i];
      a.Bd  := StrToDate (StringGrid1.Cells[1,i]);
end;
Помогите, кто понимает.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.05.2018, 10:44
Ответы с готовыми решениями:

Напечатать фамилии двух самых старших студентов
Из списка студентов группы, где приведены сведения: фамилия, инициалы, год, месяц и день рождения,...

Из списка студентов группы напечатать фамилии студентов-отличников
Из списка студентов группы, где приведены сведения: фамилия, оценки по трем предметам, напечатать...

Из списка студентов группы где приведён год рождения вывести студентов родившихся в заданный год
Из списка студентов группы где приведён год рождения, вывести студентов родившихся в заданный год

Из списка студентов группы где приведены фамилии и даты рождения
Из списка студентов группы где приведены фамилии и даты рождения вывести студентов родившихся под...

6
5868 / 4596 / 1448
Регистрация: 14.04.2014
Сообщений: 20,393
Записей в блоге: 20
10.05.2018, 10:51 2
что-то мне подсказывает, типы вообще ни при чем
строка 43 вообще не относится к циклу, несмотря на то, что 4 пробела перед ней))
чтобы относилась, она должна быть внутри begin end
Delphi
1
2
3
4
for i := .......
begin
   ...
end;
это раз

два - A - это МАССИВ записей
а поле БД есть у конкретной записи. например A[1] Или A[3] ...
поэтому A.bd не существует
0
1 / 1 / 0
Регистрация: 09.05.2018
Сообщений: 26
12.05.2018, 00:11  [ТС] 3
krapotkin, спасибо, недосмотрел) Несколько раз там форматировал, поэтому и снёс. Можно ещё такой вопрос: датовые типы сравниваются? Например, если у меня есть data1:= 01/10/2000 и data2:= 10/11/2000, то имеет ли место выражение if data1>data2 then... ?
0
пофигист широкого профиля
4754 / 3191 / 860
Регистрация: 15.07.2013
Сообщений: 18,482
12.05.2018, 03:08 4
Цитата Сообщение от Heckelberry Посмотреть сообщение
датовые типы сравниваются? Например, если у меня есть data1:= 01/10/2000 и data2:= 10/11/2000, то имеет ли место выражение if data1>data2 then... ?
"Датовые" типы разумеется сравниваются. Как и все прочие типы. Но "01/10/2000" и "10/11/2000" - это не "датовые" типы. Это строчные представления дат. Их тоже можно сравнивать, но только с умом и с сообразительностью.
0
1 / 1 / 0
Регистрация: 09.05.2018
Сообщений: 26
12.05.2018, 03:15  [ТС] 5
northener, а не можете тогда подсказать, как именно их нужно вводить и сравнивать? Если я ввожу так в строку и пытаюсь преобразовать в дату, Делфи говорит, что это не дата...
0
пофигист широкого профиля
4754 / 3191 / 860
Регистрация: 15.07.2013
Сообщений: 18,482
12.05.2018, 03:24 6
Heckelberry, не претендую на решение. Вашей задачи я не знаю, да и знать особо не хочу. Но строковые представления дат можно сравнивать на больше/меньше только тогда, когда сначала (слева) идёт год, затеи месяц и потом день.
0
5868 / 4596 / 1448
Регистрация: 14.04.2014
Сообщений: 20,393
Записей в блоге: 20
12.05.2018, 06:08 7
тип TDateTime это обычный Double
в целой части хранится количество дней с 01.01.1890, в дробной - время
соответственно и сравнивается это все как обычные Double
Delphi
1
2
3
d1,d2:TDateTime;
 
if d1>d2 then
0
12.05.2018, 06:08
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
12.05.2018, 06:08
Помогаю со студенческими работами здесь

При выборе группы студентов из ComboBox показать список студентов в Stringgrid
Есть combobox, где содержатся группы студентов и stringgrid, где содержатся все их фамилии, даты...

Дописать в файл - список студентов группы новых студентов
Дописать в файл - список студентов группы новых студентов.

продемонстрировать механизм полиморфизма на примере составления списка студентов группы и преподавателей колледжа.
Средствами объектно-ориентированного программирования языка Delphi продемонстрировать механизм...

Вывести на экран фамилии студентов, у которых средний бал ниже 4
дана ведомость успеваемости студентов ( фио и 6 оценок).вывести на экран фамиилии студентов у...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Блоги программистов
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­хро­н­н­ы­й счётчик с управляющим сигналом задержки).
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
Руководство по созданию бота для Телеграм на Python
IT_Exp 04.01.2025
Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru