Var x,sn,s:real; n,i:integer;
begin
readln(x,n);
s:=0;
sn:=1;
for i:=1 to n do
begin
sn:=sn*sin(x);
s:=s+sn;
end;
writeln('s = ',s:6:4);
end.
Пример:
0.9 5
<span>s = 2.5490</span>
V=10c*96000Гц*8 бит = 7680000 бит = 960000 байт = 937,5 Кб
1) Точность вычисления в программе не задается. Указано только количество цифр дробной части (3), которое требуется вывести на экран.
var x,y,a:real;
begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if x*x-x-4>=0 then
begin
a:=((x*y)/(x+y))/(1+sqrt(x*x-x-4));
writeln('a = ',a:5:3);
end
else writeln('Корень из отрицательного числа');
end.
2)
var a,b,c,d:real;
begin
writeln('Введите a, b, c, d:');
readln(a,b,c,d);
if (a=d)
then if (c=b) then writeln('Бесконечно много решений')
else writeln('Решения нет')
else writeln('x = ',(c-b)/(a-d));
end.
Пример:
<span>Введите a, b, c, d:
2 1 4 3
x = -3</span>
#include <stdio.h>
#include <math.h>
int main(void) {
double num;
printf("Please input a double value: ");
scanf("%lf", &num);
printf("Square root of %lf is %lf\n", num, sqrt(num) );
return 0;
}