просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
<span>Если это задача то за 44 секунды. </span>
<span>Если практика, то скорость нестабильная, так что может и за 38 а может и за 60.</span>
Задача 1
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 290 * 39 * 67 = 757770 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 757770 * 8 бит = 6062160.0 бит
6062160.0 бит = 757770.0 байт = 740.009765625 Кбайт = 0.7226657867431641 Мбайт < 1.44 Мбайт значит можно
Ответ да
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 256 * 95 * 80 = 1945600 шт
Пусть i = 8 бит (Кодировка ASCII)
I - ?
Решение:
I = K * i = 1945600 * 8 бит = 15564800.0 бит
15564800.0 бит = 1945600.0 байт = 1900.0 Кбайт = 1.85546875 Мбайт = 0.001811981201171875 Гбайт
2 - 0.001811981201171875 = 1.998188019 Гбайт
Дисковод - это устройство для считывания дисков (не давно отвечал на другой вопрос по этому на этот отвечать можно будет через 40 сек. ждём )