сервис вопросов и ответовBegin
10-11 класс|
|
GetTime(часы,минуты,секунды,миллисекунды);
Выполнение тестов;
GetTime(часы,минуты,секунды,миллисекунды);
end.
Как узнать время выполнения тестов?
т.е конечное время минус начальное.
Например:
1 час 50 минут 30 секунд МИНУС 1 час 55 минут 30 секунд = 0 часов 5 минут 0 секунд
как это вывести в формулах?
Lebedeva2207
13 авг. 2015 г., 9:07:34 (8 лет назад)
Bradvey
13 авг. 2015 г., 9:58:41 (8 лет назад)
h1, m1, s1 - начальное время
h2, m2, s2 - конечное время
Нужно определить h,m,s.
s := (h2 - h1)*3600 + (m2 - m1)*60 + (s2 - s1);
h := s div 3600; s := s mod 3600;
m := s div 60; s := s mod 60;
Т.е. в h - кол-во часов, в m - кол-во минут, в s - кол-во секунд.
Ответить
Другие вопросы из категории
Здравствуйте! Помоги пожалуйста заменить цикл FOR на цикл REPEAT! ОЧЕНЬ СРОЧНО!
program PRIMER1;
USES CRT;
CONST
A=PI/4;
B=4/PI;
M=20;
VAR
F,H,X:REAL;
i:INTEGER;
BEGIN
CLRSCR;
H:=(B-A)/M;
FOR I:=0 TO M DO
BEGIN
X:=A+I*H;
F:=COS (1/X);
WRITELN ('X=', X:6:3,',F(X)=',F:6:3);
END;
END.
помогите написать задачу в паскале АBC в файле 1.txt находятся английские слова (записаны столбиком) а в файле 2.txt находятся их русский перевод
запускаем программу вводим английское слова программа должна выдать на экран русский перевод
Видеоадаптер это:
устройство управляющее работой графического дисплея
программа, распределяющая ресурсы видеопамяти
электронное, энергозависимое устройство для хранения информации о графич. изображений
дисплейный процессор
Читайте также
Определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s:=3; k:=1;
while k < 25 do begin
s:=s+k;
k:=k+2;
end;
write(s);
end.
Какой набор символов будет выведен в результате работы следущей программы? function f(x:string; a:byte): string;. begin. If a<=3 (x,2,a) , a-2);.
end;. begin. Writeln (f('abcdefghijklm'7));. End.
1. Сколько раз будут выполнены инструкции между begin и end?k:=5;
for i:=k to k+1 do
begin
…
end;
Что делает следующая программа? program Whatlslt; var f: file of integer; i: integer; begin reset( f ); while not e
of( f ) do begin read( f, i );
writeln( i );
end;
close(f);
end.
1) выводит в столбик числа, записанные в файле;
2) выводит в строку числа, записанные в файле;
3) записывает числа в новый файл;
4) дописывает числа в существующий файл.
Const m= 1000; var z:Array [1..m] of record x,y:real end; n,i,j: integer; r,k,c,d: real; begin write('Ââåäèòå êîëè÷åñòâî ñòàíöèé: '); Readln(n); for i:=1
to n do begin write('Ââåäèòå êîîðäèíàòû ',i,' ñòàíöèè (x y): '); Readln(z[i].x,z[i].y) end; r:=0; for i:=1 to n do for j:=i+1 to n do begin d:=(z[i].x+z[j].x)/n; c:=(z[i].y+z[j].y)/n; if d
Вы находитесь на странице вопроса "Begin", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.