|
Цикл
|
|
Как написать цикл для следуюшего условия Знак суммы шизменяеться от 0 до N (5+i)/(2+i^2 )
№ 1 | Автор: gek |
2011-11-09, 22:05
|
Репутация: [ + 0 ]
|
|
|
|
for i:=0 to n do
sum:=(5+i)/(2+i^2);
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Спасибо! А как записать в Паскале записать tg(x) .lg(x). x в 3 степени,и cos в степени в-1
№ 3 | Автор: gek |
2011-11-10, 13:30
|
Репутация: [ + 0 ]
|
|
|
|
tg(x):= sin(x)/cos(x);
log(a,b)=ln(a)/ln(b); где а - число, b - основание логарифма.
x:=exp(3*ln(x));
x:=exp(b-1*ln(cos(x)));
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Дано натуральное число K. Выписать K-ую цифру последовательности: 14961526394...
Последовательность получается выписаннием подряд задом-наперёд квадратов натуральных чисел.
Поясним как получается эта последовательность:
Сами натуральные числа : 1 2 3 4 5 6 7 ...
Их квадраты : 1 4 9 16 25 36 49 ...
Кавадраты задом-наперёд: 1 4 9 61 52 63 94 ...
Последовательность : 14961526394...
Программу написал но не могу доработать!
uses crt;
var k,x,y,i,z,j:integer;
begin
clrscr;
i:=1;
j:=0;
repeat
write('введите',i,'число ');
read(x);
i:=i+1;
write(' квадрат равен ');
if (x>=1)and(x<10) then begin
y:= x*x;
write(y,' последовательность ');
z:=y;
while z<>0 do begin
j:=(z mod 10);
z:=z div 10;
write(j);
end;
writeln;
end;
until x>9;
readkey;
end.
программа меняет цифры кважрата одного числа,а хотелось бы получать полную последовательность)
помогите товарищи
|
|
|
|
