Написать программу на языке с(си) пусть процедура socr (a,b,p,q) от целых параметров (b≠0) приводит дробь a/b к несократимому виду p/q. описать данную процедуру и использовать её для дроби 1+1/2+1/3++1/20 к несократимому виду c/d.
int Socr(long long int a, long long int b, long long int *p, long long int *q) { long long int d; int c = 0; if (a) { if((float)a/b<0) { if(a<0) a=-a; if(b<0) b=-b; c = 1; } for(d = (a>b?b:a); (a%d!=0||b%d!=0); d--); if (c) *p = -a / d; else *p = a / d; *q = b / d; } else { *p = 0; *q = 1; } return 0; }
int main(int argc, char *argv[]) { long long int a = 1, b, p = 1, q = 1; for(b = 2; b < 21; b++) { printf("%lli/%lli + 1/%d = ",p,q,b); Socr(p*b+q,q*b,&p,&q); printf("%lli/%lli\n",p,q); } getch(); }
Var InFile, OutFile: text; // Вводной и выводной файлы Var a,b,c, D, Result : Integer; Assign(InFile, "C:\kvur.txt"); Assign(OutFile, "C:\korni.txt") Reset(InFile) Read(InFile,a) Read(InFile,b) Read(InFile, c) D = sqr(b) + 4*a*c if D = 0 then Write("Уравнение не имеет корней") Else Append(OutFile) Result:=(-b + sqrt(D)) / 2 * a Write(OutFile,Result) Write("Корень уравнения") WriteLn(Result) if (D>0) then Result:=(-b - sqrt(D)) / 2 * a Write(OutFile, Result) Write("Второй корень уравнения") Write(Result) End; End.
import random chuslo = [random.randint(0,500) for x in range(1000)] five = [] for i in chuslo: if i %5==0: five.append(i) five.sort() five.reverse() print(five)
#include<conio.h>
int Socr(long long int a, long long int b, long long int *p, long long int *q)
{
long long int d;
int c = 0;
if (a)
{
if((float)a/b<0)
{
if(a<0) a=-a;
if(b<0) b=-b;
c = 1;
}
for(d = (a>b?b:a); (a%d!=0||b%d!=0); d--);
if (c) *p = -a / d;
else *p = a / d;
*q = b / d;
}
else
{
*p = 0;
*q = 1;
}
return 0;
}
int main(int argc, char *argv[])
{
long long int a = 1, b, p = 1, q = 1;
for(b = 2; b < 21; b++)
{
printf("%lli/%lli + 1/%d = ",p,q,b);
Socr(p*b+q,q*b,&p,&q);
printf("%lli/%lli\n",p,q);
}
getch();
}