Как вывести в цикле for ... do строки?

[mihali4]

Не-е-е, ну если по такому пути...
Тогда еще проще:

var i: integer;
    tm: TTime;
begin
ListBox1.Clear;
tm:=0;
for i:=1 to 48 do
begin
ListBox1.Items.Add(FormatDateTime('hhnn',tm+i-1)+'-'+FormatDateTime('hhnn',tm+1/48));
tm:=tm+1/48;
end;
end;

Я то раньше выпендривался через строки...

[B_N]

uses
    sysutils;
var
    i   : integer;
    mn  : longint;
begin
    for i := 1 to 48 do begin
        write(format('%2.2d%2.2d-',[mn div 60, mn mod 60]));
        mn := mn + 30;
        writeln(format('%2.2d%2.2d',[mn div 60, mn mod 60]));
    end;
    readln;
end.

[mihali4]

То B_N
Как всегда - эффектно и наверняка - эффективно.
Однако сомнения гложут - как он это преподавателю объяснять будет?

[B_N]

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

Однако сомнения гложут - как он это преподавателю объяснять будет?

Эхх... Чего-нибудь придумает, наверное. Главное, чтобы format был, а то ведь write не умеет кажется лидирующие нолики выводить....
Я, кстати, сразу не обратил внимание, что в условии нельзя 2400 выводить, так что чуть подправлю:

uses
    sysutils;
var
    i   : integer;
    mn  : longint;
begin
    mn := 0; (* Кстати, не обязательно - статическая переменная *)
    for i := 1 to 48 do begin
        write(format('%2.2d%2.2d-',[mn div 60 mod 24, mn mod 60]));
        mn := mn + 30;
        writeln(format('%2.2d%2.2d',[mn div 60 mod 24, mn mod 60]));
    end;
    readln;
end.

А вообще, мне вот так всё равно больше нравится:

#include <stdio.h>
void main()
{
	for(long i = 1,mn = 0; i++<= 48 ? 1 : getchar() & 0; printf("%02d%02d-", mn/60%24, mn%60), mn+=30, printf("%02d%02d\n", mn/60%24, mn%60));
}

[ViTYAi2007]

ВСЕМ ВСЕМ ВСЕМ Ребята спасибо огромное за помощь!!! Всё реально помогло - жизнь облегчилась