информатика

@kolko · Регистрация: 02.06.2010

Author24 — интернет-сервис помощи студентам

помогите решить задачи
1.S=N!+M!
2.S=N!/M!
3.S=1/1+1/2+1/3+...+1/N
4.S=100+4+5+6+...N
5.S=1*2*3*...*(N+5)
6.S=40+39+38+...+2

@STGE · 02.06.2010, 17:04

1,2:

Pascal

...
var s1,s2: maxint; n,m: byte;
function fact (n: byte): maxint;
begin
if n=0 then fact:=1
else fact:=fact(n-1)*n;
end;
...
readln(n,m);
s1:=fact(n)+fact(m);
s2:=fact(n)/fact(m);
...

Добавлено через 4 минуты
6.

Pascal

...
s:=0;
for i:=40 downto 2 do
s:=s+i;
...

Добавлено через 54 секунды
5.

Pascal

...
p:=1;
for i:=1 to n+5 do
p:=p*i;
...

Добавлено через 1 минуту
4.

Pascal

...
s:=100;
for i:=4 to n do
s:=s+i;
...

Добавлено через 56 секунд
3.

Pascal

...
s:=0;
for i:=1 to n do
s:=s+1/i;
...

@kolko · 02.06.2010, 17:05 **[ТС]**

а .... что такое?

@STGE · 02.06.2010, 17:07

Всё. kolko, здесь представлены только фрагменты программ.

@yanyk1n · 02.06.2010, 17:07

STGE, 2-ую стоит иначе сделать, иначе при N = 60, M = 59 будет переполнение стека:

Pascal

uses crt;
var n,m,i:integer;
p:extended;
 
begin
 p:=1;
 write('N M -> ');
 readln(N, M);
 if N > M then for i := N-M to N do p:=p*i else if N < M then for i:=M-N to M do p:=p/i;
 writeln('P = ',p:0:5);
 readln;
end.

@STGE · 02.06.2010, 17:09

k1ry4, да, согласен (у всего есть ограничения, extended - не исключение). А разве для использования этого типа не нужны никакие директивы ?

@yanyk1n · 02.06.2010, 17:10

STGE, в данном случае - нет.

@kolko · 02.06.2010, 17:15 **[ТС]**

это для паскаля все?

@STGE · 02.06.2010, 17:26

Ну, учитывая, что раздел, в котором вы создали тему называется Pascal (Паскаль), то да.

@kolko · 02.06.2010, 17:39 **[ТС]**

просто я некоторые места не помню.спасибо большое

@kolko 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 5
		1
	информатика 02.06.2010, 16:54. Показов 839. Ответов 9 Метки нет (Все метки) помогите решить задачи 1.S=N!+M! 2.S=N!/M! 3.S=1/1+1/2+1/3+...+1/N 4.S=100+4+5+6+...N 5.S=123...(N+5) 6.S=40+39+38+...+2 0

@kolko 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 5
	02.06.2010, 17:05 [ТС]	3
	а .... что такое? 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	02.06.2010, 17:07	4
	Всё. kolko, здесь представлены только фрагменты программ. 1

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	02.06.2010, 17:09	6
	k1ry4, да, согласен (у всего есть ограничения, extended - не исключение). А разве для использования этого типа не нужны никакие директивы ? 1

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	02.06.2010, 17:10	7
	STGE, в данном случае - нет. 0

@kolko 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 5
	02.06.2010, 17:15 [ТС]	8
	это для паскаля все? 0

@STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188
	02.06.2010, 17:26	9
	Ну, учитывая, что раздел, в котором вы создали тему называется Pascal (Паскаль), то да. 1

@kolko 0 / 0 / 0 Регистрация: 02.06.2010 Сообщений: 5
	02.06.2010, 17:39 [ТС]	10
	просто я некоторые места не помню.спасибо большое 0