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

@nastya2293 · Регистрация: 25.09.2015

Написать функцию, пересчитывающую интервал времени, заданный в часах, минутах и секундах, в секунды. Продемонстрировать её работу.
Описать функцию 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

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.

@Puporev · 28.09.2015, 18:30

Pascal

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.

Опции темы