Форум программистов, компьютерный форум, киберфорум
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
Puporev
Модератор
59430 / 44846 / 30953
Регистрация: 18.05.2008
Сообщений: 107,594
28.09.2015, 18:30 0

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

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

Ответ

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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
Program practzad1;
uses crt;
const nmax = 20;
type matr = array [1..nmax,1..nmax] of real;
 
function sc (h,m,s:longint): longint;
begin
sc:=h*3600+m*60+s;
end;
 
function rootcount (a,b,c: integer): integer;
var d: integer;
begin
d:= sqr (b)-4*a*c;
if d<0 then rootcount:=0
else if d=0 then rootcount:=1
else rootcount:=2;
end;
 
function digitn (k,n:integer): integer;
var i: integer;
begin
for i:=1 to n-1 do
k:= k div 10;
if k<> 0 then digitn:=k mod 10
else digitn:=-1;
end;
 
function sumcol(z: matr; ri,rj,nk: byte):real;
var i,j: integer;
    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,rj:integer; var z: matr);
var i,j: integer;
begin
repeat
write('Количество строк, не более ', nmax,' m=');
readln (ri);
until ri in [1..nmax];
repeat
write('Количество столбцов, не более ',nmax,' n=');
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]:=-99+199*random;
    write(z[i,j]:6:1);
   end;
  writeln;
 end;
end;
 
function f (b:longint):boolean;
begin
while b mod 5=0 do b:=b div 5;
f:=b=1;
end;
 
Function ff (b:longint):boolean;
begin
ff:=(b>0)and (frac(ln(b)/ln(5))<=0.00001);
end;
 
procedure linez;
var i:byte;
begin
for i:=1 to 80 do write('*');
end;
 
var w:char;
    a,b,c,h1,m1,s1,h2,m2,s2,k,i,i2,n,m,t:integer;
    z:matr;
begin
clrscr;
repeat
clrscr;
writeln('Выберите действие');
writeln('1-перевести время секунды');
writeln('2-определить количество корней квадратного уравнения');
writeln('3-найти N-ую цифру числа К');
writeln('4-найти сумму в столбцах матрицы');
writeln('5-найти числа, степени 5');
writeln('6-линия из *');
writeln('другое - выход');
readln(w);
case w of
'1':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;
    writeln('Прошло:',i,' секунд');
    write('Нажмите Enter');
    readln;
    end;
'2':begin
    clrscr;
    for i:=1 to 3 do
     begin
      repeat
      writeln('Введите коэффициенты ',i,' уравнения a,b,c, a<>0');
      readln(a,b,c);
      until a<>0;
      writeln('Колличество корней=',Rootcount(a,b,c));
     end;
    write('Нажмите Enter');
    readln;
    end;
'3':begin
    clrscr;
    for i:=1 to 5 do
     begin
      write('Введите k :');
      readln (k);
      for i2:=1 to 5 do
      writeln(digitn(k,i2));
     end;
    write('Нажмите Enter');
    readln;
    end;
'4':begin
    clrscr;
    genprint(m,n,z);
    for i:=1 to 3 do
     begin
      write('Номер столбца для суммирования k=');
      readln(k);
      writeln('Сумма элементов ',k,' столбца=', sumcol (z,m,n,k):0:1);
     end;
    write('Нажмите Enter');
    readln;
    end;
'5':begin
    clrscr;
    repeat
    write('n=');
    readln(n);
    until n>0;
    k:=0;
    for i:=1 to n do
     begin
      write ('t',i,'=');
      readln(t);
      if ff(t) then k:=k+1;
     end;
    writeln('Количество чисел степеней 5=',k);
    write('Нажмите Enter');
    readln;
    end;
'6':begin
    clrscr;
    linez;
    write('Нажмите Enter');
    readln;
    end;
else exit;
end;
until not(w in ['1'..'6']);
end.


Вернуться к обсуждению:
Написать функцию, пересчитывающую интервал времени, заданный в часах, минутах и секундах, в секунды
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2015, 18:30

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

Преобразовать введенный в минутах интервал времени в интервал в часах и минутах
Помогите пожалуйста ребят) ЗАДАНИЕ: Написать программу, которая преобразует введенный в минутах...

Пользователь вводит время в Днях,часах,минутах и секундах,программа переводит все в секунды
Пользователь вводит время в Днях,часах,минутах и секундах,программа переводит все в секунды

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