Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 24.10.2013, 18:55   #1 (permalink)
Lesca
Новичок
 
Регистрация: 24.10.2013
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите пожалуйста составить программу на Паскале с предусловием

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 часа.
Lesca вне форума   Ответить с цитированием

Старый 24.10.2013, 18:55
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Пользователи форума задавали схожие вопросы

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

Старый 24.10.2013, 19:46   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от 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.
Что касается остальных двух задач - то это уже полный детский сад. Соблаговолите справиться самостоятельно.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:32.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.