Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Цикл
Цикл
Как написать цикл для следуюшего условия Знак суммы шизменяеться от 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
2 | Автор: Berestovskiy | 2011-11-10, 10:59   |  Репутация: [ + 211 ]
Спасибо! А как записать в Паскале записать 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
4 | Автор: Berestovskiy | 2011-11-10, 15:34   |  Репутация: [ + 211 ]
Дано натуральное число 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.

программа меняет цифры кважрата одного числа,а хотелось бы получать полную последовательность)
помогите товарищи
5 | Автор: snorlox-=ss=-42 | 2011-12-04, 12:26   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Цикл
  • Страница 1 из 1
  • 1
Поиск: