Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Все отрицательные элементы массива перенести в его начало, а все остальные - в конец https://www.cyberforum.ru/turbo-pascal/thread1539684.html
преобразовать массив x по следующему правилу(воспользовавшись массивом y как вспомогательным): Все отрицательные элементы массива x перенести в его начало,а все остальные - в конец, сохраняя исходное...
Turbo Pascal Вычислить площадь прямоугольника
Даны сумма и разность длин сторон прямоугольника. Написать программу вычисляющую его площадь.
Turbo Pascal Найти, при каком угле тело пролетит дальше до соприкосновения с землёй
Тело вылетает под углом a к горизонту со скоростью v2 с высоты h0 Найти, при каком угле a тело пролетит дальше до соприкосновения с землёй
Turbo Pascal Вычисление синуса в радианах Хочется иметь под рукой полную функцию синуса, умеющую вычислять во всех трёх единицах. Правильно вычисляет в градусах и градах. (Перед Синусом, надлежит сначало вызвать функцию приобразования... https://www.cyberforum.ru/turbo-pascal/thread1539461.html
Turbo Pascal При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида https://www.cyberforum.ru/turbo-pascal/thread1539441.html
При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните...
Turbo Pascal В цилиндре с радиусом основания R и высотой H вычислить площадь основания,обьем и площадь боковой поверхности
В цилиндре с радиусом основания R и высотой H вычислить площадь основания,обьем и площадь боковой поверхности.
Составьте таблицу значений функции y=e^x+1 на интервале [-1,1] с шагом 0.2 Turbo Pascal
Составьте таблицу значений функции y=e^x+1 на интервале с шагом 0.2 Заранее спасибо!
Turbo Pascal Вычислить приближенное значение бесконечной суммы Вычислите приближенное значение бесконечной суммы с заданной точностью ε=10-3. \sum_{k=1}^\infty u_k=-\frac 1x+\frac 1{2x^2}-\frac 1{3x^3}+\frac 1{4x^4}-...,\qquad\qquad x=1.21 https://www.cyberforum.ru/turbo-pascal/thread1539283.html
Turbo Pascal Составить программу вычисления функции https://www.cyberforum.ru/turbo-pascal/thread1539240.html
Составить программу вычисления данной функции. Прошу помочи. Это очень срочно.
Turbo Pascal Дописать программу, печатающую список студентов в алфавитном порядке Есть задание: Дан список группы 10 человек в виде: Фамилия Год_Рождения Служба_В_Армии Прописка Пол 15 симв. 4 симв. 3 симв. 1 симв. 1 симв. Данные в одной... https://www.cyberforum.ru/turbo-pascal/thread1539149.html
nastya2293
0 / 0 / 2
Регистрация: 25.09.2015
Сообщений: 12
0

Написать функцию, пересчитывающую интервал времени, заданный в часах, минутах и секундах, в секунды

28.09.2015, 13:42. Просмотров 886. Ответов 1
Метки (Все метки)

Написать функцию, пересчитывающую интервал времени, заданный в часах, минутах и секундах, в секунды. Продемонстрировать её работу.
Описать функцию RootsCount(A, B, C) целого типа, определяющую количество корней квадратного уравнения A•x2 + B•x + C = 0 (A, B, C — вещественные параметры, A ≠ 0). С ее помощью найти количество корней для каждого из трех квадратных уравнений с данными коэффициентами. Количество корней определять по значению дискриминанта.
Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа на- лево). Если количество цифр в числе K меньше N, то функция возвращает –1. Для каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.
Описать функцию SumCol(A, M, N, K) вещественного типа, вычисляющую сумму элементов вещественной матрицы A размера M Ч N, расположенных в K-м столбце (если K > N, то функция возвращает 0). Для данной матрицы A размера M Ч N и трех данных K найти SumCol(A, M, N, K).
Даны натуральное число n и целые числа а_1,а_2,…,а_n. Найти количество чисел a_i (i=1,2,…,n), являющихся степенями пятерки.(Определить функцию, позволяющую распознать степени пятерки.)
Составить процедуру «рисующую» на экране горизонтальную линию из 80 символов «*».
Сделать все функции в одну программу
Pascal
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Program practzad1;
uses crt;
function sc (h,m,s:longint): longint;
begin
sc:=h*3600+m*60+s;
end;
var i,h1,h2,m1,m2,s1,s2:longint;
begin
clrscr;
writeln('Введите первое время');
write('часы h1=');
readln(h1);
write('минуты m1=');
readln(m1);
write('секунды s1=');
readln(s1);
repeat
writeln('Введите второе время,больше первого');
write('часы ');
readln(h2);
write('минуты ');
readln(m2);
write('секунды ');
readln(s2);
i:=sc(h2,m2,s2)-sc(h1,m1,s1);
if i<=0 then writeln('Неверный ввод, повторите');
until i>0;
write('Прошло:',i,'секунд');
begin
end;
var a,b,c:integer;
function rootcount (a,b,c: integer): integer;
var d: integer;
begin
d:= sqr (b)-4*a*c;
if d<0 then rootcount:=0;
if d=0 then rootcount:=1;
if d>0 then rootcount:=2;
end;
begin
write('Введите для коэфф 1ур. a,b,c');
readln(a);read(b);read(c);
write('Колличество корней=',Rootcount(a,b,c));
 
write('Введите для коэфф 2 ур. a,b,c');
readln(a);read(b);read(c);
write('Колличество корней=',Rootcount(a,b,c));
 
write('Введите для коэфф 3 ур. a,b,c');
readln(a);read(b);read(c);
write('Колличество корней=',Rootcount(a,b,c));
begin
end;
function digitn (k,n:integer): integer;
var i: integer;
begin
for i:=1 to n-1 do
begin
k:= k div 10;
end;
if k<> 0 then digitn:=k mod 10
else digitn:=-1;
end;
var
i,i2,k: integer;
begin
for i:=1 to 5 do
begin
write('Введите k :');
readln (k);
for i2:=1 to 5 do
begin
writeln(digitn(k,i2));
begin
end;
uses crt;
const nmax = 20;
type matr = array [1..nmax,1..nmax] of real;
var a:matr;n,m,e,k: byte;
function sumcol(z: matr; ri,rj,nk: byte):real;
var i,j: byte; sum:real;
begin
sum:=0;
if nk<=rj then
for i:=1 to ri do sum:= sum+z[i,nk];
sumcol:=sum;
end;
 
procedure genprint( var ri: byte; var rj: byte; var z: matr);
var i,j: byte;
begin
write('Колличество строк, не более ', nmax,',n='); readln (ri);
 
repeat
write('Колличество столбцов, не более', nmax,', m='); readln(rj);
until rj in [1..nmax];
writeln('');
for i:=1 to ri do
begin
for j:=1 to rj do
begin
z[i,j]:=199*random-99;
write(z[i,j]:6:1);
end;
end;
begin
genprint(n,m,a);
for e:=1 to 3 do
begin
write('Номер столбца для суммирования:');readln(k);
writeln('Сумма элементов ',k,'столбца=', sumcol (a,n,m,k):0:2);
end;
readln;
begin
end;
var
n,k,t:longint;
function f (b:longint):boolean;
begin
while b mod 5=0 do b:=b div 5;
f:=b=1;
end;
begin
repeat
write('n');
readln(n);
until n>0;
for n:=1 to n do begin
write ('n',n,'=');
read(t);
if f(t) then k:=k+1;
end;
writeln('Кол-во:',k);
readln;
end.
end;
Function f (b:longint):boolean;
f:=(b>0)and (frac(1n(b)/1n(5))<=0,00001);
begin
end;
procedure linez;
var
i:byte;
begin
for i:=1 to 80 do write('*');
end;
begin
linez;
end.


Вернуться к обсуждению:
Написать функцию, пересчитывающую интервал времени, заданный в часах, минутах и секундах, в секунды
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2015, 13:42
Готовые ответы и решения:

Дан интервал времени в часах, минутах и секундах. Определить тот же интервал в секундах
Помогите с написанием кода Задача A. Часы Ограничение по времени: 1 сек Ограничение по...

Определить в часах, минутах, секундах длину интервала времени, заданного отметками в часах, минутах и секундах
Друзья, добрый день. Нужно составить программу: С клавиатуры вводится время начала эксперимента...

Написать программу, которая преобразует введен в минутах интервал времени в интервал в часах и минутах
3. Написать программу, которая преобразует введен в минутах интервал времени в интервал в часах и...

Даны начальные и конечные часы, минуты и секунды. Найти промежуток времени в часах, минутах и секундах
Даны начальные и конечные часы, минуты и секунды. Найти промежуток времени в часах, минутах и...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.