Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
nastya2293
0 / 0 / 2
Регистрация: 25.09.2015
Сообщений: 12
1

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

28.09.2015, 13:42. Просмотров 884. Ответов 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
Puporev
Модератор
59362 / 44805 / 30922
Регистрация: 18.05.2008
Сообщений: 107,471
28.09.2015, 18:30 2
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

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

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

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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