Помогите пожалуйста составить программу на Паскале с предусловием

Lesca · 24.10.2013, 18:55

1)Составьте программу для определения N!-M! N! = 1*2*3*4*.........*n
2)Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле)
3)1. Концентрация хлорной извести в бассейне V м3 составляет 10 г/л. Через одну трубу в бассейн вливают чистую воду со скоростью Q м3/час, через другую трубу с такой же скоростью вода выливается. При условии идеального перемешивания концентрация хлорной извести изменятся по закону C = C0e-Qt/V , где t – время,*** C0 – начальная концентрация. Напечатать таблицу изменения концентрации хлорной извести для интервала времени от 0 до 5 часов с шагом 0,5 часа.

Vladimir_S · 24.10.2013, 19:46

Цитата:

Сообщение от Lesca

1)Составьте программу для определения N!-M! N! = 1*2*3*4*.........*n

Ладно, с этим помогу. Только вот всякие там дебильные указули типа "использовать предусловие" и т.п. это, извините, мимо. Решаю как считаю нужным.
Два варианта.
1. С рекурсивной функцией:

Код:

Var
 N,M:Integer;

Function Fact(p:Integer):Real;
begin
 If p<=1 then Fact:=1 else Fact:=p*Fact(p-1);
end;

Begin
 Write('N= ');
 Readln(N);
 Write('M= ');
 Readln(M);
 Writeln((Fact(N)-Fact(M)):0:0);
 Readln
End.

2. С обычной функцией:

Код:

Var
 N,M:Integer;

Function Fact(p:Integer):Real;
var i:Integer; F:Real;
begin
 F:=1;
 For i:=2 to p do F:=F*i;
 Fact:=F;
end;

Begin
 Write('N= ');
 Readln(N);
 Write('M= ');
 Readln(M);
 Writeln((Fact(N)-Fact(M)):0:0);
 Readln
End.

Что касается остальных двух задач - то это уже полный детский сад. Соблаговолите справиться самостоятельно.

24.10.2013, 18:55	#1 (permalink)
Lesca Новичок Регистрация: 24.10.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите пожалуйста составить программу на Паскале с предусловием 1)Составьте программу для определения N!-M! N! = 1234.........n 2)Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле) 3)1. Концентрация хлорной извести в бассейне V м3 составляет 10 г/л. Через одну трубу в бассейн вливают чистую воду со скоростью Q м3/час, через другую трубу с такой же скоростью вода выливается. При условии идеального перемешивания концентрация хлорной извести изменятся по закону C = C0e-Qt/V , где t – время,** C0 – начальная концентрация. Напечатать таблицу изменения концентрации хлорной извести для интервала времени от 0 до 5 часов с шагом 0,5 часа.

24.10.2013, 18:55
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Пользователи форума задавали схожие вопросы Помогите составить программу и алгоритм в Паскале Помогите составить программу в Паскале Помогите составить программу в Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070