Модуль расчета по формуле!

@Kiliman · Регистрация: 15.12.2010

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

Ребята мне нужно создать модуль который будет расчитывать мощность! у нас есть файл из которого мы считываем скорость и время! А модуль должен брать скорость и время из этого файла и расчитывать по формуле P=(m*a*s)/t !!!
S=V*t
a=V/t
Я просто не знаю как реализовать это все!
Помогите плиз!

@DLev · 22.12.2010, 21:07

скинь пример файла

@Kiliman · 22.12.2010, 21:11 **[ТС]**

Нам препод дал файл типа cvs! Но я думаю и в блокноте ему пойдет!

@Kiliman · 22.12.2010, 21:14 **[ТС]**

Забыл добавить(((( Он должен найти среднюю мощность!!

@DLev · 22.12.2010, 21:16

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
q,V,T:integer;
P:real;
begin
P:=0;
q:=0;
assign(input,'VT.cvs');
reset(input);
while not EOF(input) do
 begin
 readln(V,t);
 P:=P+(m*V*V)/t;
 q:=q+1;
 end;
close(input);
P:=P/q;
write(P:0:5);
readln;
end.

для консоли
надеюсь так считается среднее

@Kiliman · 22.12.2010, 21:18 **[ТС]**

это и весь модуль?

@DLev · 22.12.2010, 21:26

что ты под словом модуль понимаешь? программа? вроде вся. только если ты на паскале писать будешь то нужно завести переменную input:text; и в readln дописать первый параметр input
readln(input,V,T);

@Kiliman · 22.12.2010, 21:33 **[ТС]**

под модулем я понимию что к основной программе будет подключен модуль который при направлении на него он считает по формуле все! ну у меня есть пример расчета необходимой мощности!

unit Moshnost;

interface
function Ne1(f,m,k,Hr,Br,V,h:extended):Extended;
implementation

function Ne1;
begin
{ Hr:=2.12;
Br:=2.066; }
Result:=((f*m+k*Hr*Br*(V*V))*V)/(h*(10*10*10));
end;
end.

@DLev · 22.12.2010, 21:43

тогда так наверное, никогда не писал модули в delphi, но по твоему описанию вроде так. по идее можно input передавать входящим пораметром, так наверное правильнее будет.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
unit Moshnost;
 
interface
function Kukushka():real;
implementation
 
function Kukushka;
var
 q,V,T:integer;
 P:real;
begin
P:=0;
q:=0;
assign(input,'VT.cvs');
reset(input);
while not EOF(input) do
 begin
 readln(V,t);
 P:=P+(m*V*V)/t;
 q:=q+1;
 end;
close(input);
P:=P/q;
result:=P;
end;
end.

@Kiliman · 22.12.2010, 21:48 **[ТС]**

Спасибо)) Ну если что я надеюсь переделаем!!!!!

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Kiliman 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 8

	Модуль расчета по формуле! 22.12.2010, 21:03. Показов 1397. Ответов 9 Метки нет (Все метки) Ребята мне нужно создать модуль который будет расчитывать мощность! у нас есть файл из которого мы считываем скорость и время! А модуль должен брать скорость и время из этого файла и расчитывать по формуле P=(mas)/t !!! S=V*t a=V/t Я просто не знаю как реализовать это все! Помогите плиз! 0

@DLev 32 / 32 / 7 Регистрация: 24.12.2009 Сообщений: 71
	22.12.2010, 21:07
	скинь пример файла 0

@Kiliman 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 8
	22.12.2010, 21:14 [ТС]
	Забыл добавить(((( Он должен найти среднюю мощность!! 0

@Kiliman 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 8
	22.12.2010, 21:18 [ТС]
	это и весь модуль? 0

@DLev 32 / 32 / 7 Регистрация: 24.12.2009 Сообщений: 71
	22.12.2010, 21:26
	что ты под словом модуль понимаешь? программа? вроде вся. только если ты на паскале писать будешь то нужно завести переменную input:text; и в readln дописать первый параметр input readln(input,V,T); 0

@Kiliman 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 8
	22.12.2010, 21:33 [ТС]
	под модулем я понимию что к основной программе будет подключен модуль который при направлении на него он считает по формуле все! ну у меня есть пример расчета необходимой мощности! unit Moshnost; interface function Ne1(f,m,k,Hr,Br,V,h:extended):Extended; implementation function Ne1; begin { Hr:=2.12; Br:=2.066; } Result:=((fm+kHrBr(VV))V)/(h(1010*10)); end; end. 0

@Kiliman 0 / 0 / 0 Регистрация: 15.12.2010 Сообщений: 8
	22.12.2010, 21:48 [ТС]
	Спасибо)) Ну если что я надеюсь переделаем!!!!! 0

Опции темы