Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.04.2009, 14:07   #1
VoLedi
Новичок
Джуниор
 
Регистрация: 29.04.2009
Сообщений: 0
По умолчанию Помогите кто шарит в паскале - создать ехе файл чтоб программа работала и считала

есть програма, но мои знания в паскале не могур реализовать ее, помогите создать ехе файл чтоб она работала и считала, очень надо, если ктото откликнется очень буду благодарин, пишит на ISQ:482069362

Код:
PROGRAM vova;
USES crt; VAR i,n:integer; sum,k1,k2,k3,k4,p,dp,eps,Xn,Xk,X,dX:real; rSR,C,dC,r1,r2,r3,r4,cPR:array[1..3] of real;
 f1,f2:text;
 PROCEDURE Difur;
 BEGIN
 dC[1]:=C[3]*k2+C[2]*k4-C[1]*k1-C[1]*k3; {dcA}
 dC[2]:=C[1]*k3-C[2]*k4; {dcB}
 dC[3]:=C[1]*k1-C[3]*k2; {dcC}
 END;
 PROCEDURE RK_4;
 BEGIN
 Difur;
 FOR i:=1 TO n DO BEGIN
     r1[i]:=dC[i]; 
    C[i]:=cPR[i]+r1[i]*(dX/2);
 END;
 Difur;
 FOR i:=1 TO n DO BEGIN
    r2[i]:=dC[i]; 
     C[i]:=cPr[i]+r2[i]*(dX/2);
 END;
 Difur;
 FOR i:=1 TO n DO BEGIN
    r3[i]:=dC[i]; 
    C[i]:=cPR[I]+r3[i]*dX;
 END;
 Difur;
 FOR i:=1 TO n DO r4[i]:=dC[i];
 FOR i:=1 TO n DO rSR[i]:=((r1[i]+r2[i])*(r2[i]+r3[i])*(r3[i]+r4[i]))/6;
 END;
 PROCEDURE STROKA;
 BEGIN
WRITE(f2,'|',x:4:1,'|',c[1]:7:3,'|',c[2]:7:3,'|',c[3]:7:3,'|');
WRITE(f2,sum:3:0,'|',dc[1]:7:3,'|',dc[2]:7:3,'|',dc[3]:7:3,'|');
WRITELN(f2);
 END;
 PROCEDURE RUN;
 BEGIN
 WRITE('Step 3: Calculating data and writting results to file : out.rez'); 
 X:=Xn;
 dX:=0.05;
 REPEAT
   IF (ABS(x-p)<eps) THEN BEGIN
   Difur;
  sum:=C[1]+C[2]+C[3];
  STROKA; 
  p:=p+dp;   END;
   FOR i:=1 TO n DO Cpr[i]:=C[i];
 RK_4; 
  X:=X+dX;
 UNTIL(X>Xk);
 WRITELN(' - done.');
 END;
 PROCEDURE INIT;
 BEGIN
 ClrScr;
 WRITELN('Smith-04: v1.0 (c) 1998 by Mike Smith smith01@home.bar.ru ');
 WRITELN;
 WRITELN;
 WRITE('Step 1: Read data from file : in.dat');
 ASSIGN(f1,'in.dat');
 RESET(f1);
 READLN(f1,C[1],C[2],C[3]);
 READLN(f1,k1,k2,k3,k4);
 READLN(f1,Xn,Xk,dp,n,eps,p);
 WRITELN(' - done.');
 ASSIGN(f2,'out.rez');
 REWRITE(f2);
 WRITE('Step 2: Write header to file : out.rez'); 
 WRITELN(f2,'');
 WRITELN(f2,'| t,c| Ca,% | Cb,%| Cc,% | SUM | dCa | dCb | dCc |');
 WRITELN(f2,'=');
 WRITELN(' - done.');
 END;
 
 PROCEDURE DONE;
 BEGIN
 WRITELN('Step 4: Close all files and exiting...'); 
 CLOSE(f1);
 WRITELN(f2,'=');
 CLOSE(f2);
 WRITELN;
 END;
BEGIN
 INIT;
 RUN;
 DONE;
END.

Последний раз редактировалось Stilet; 29.04.2009 в 14:35.
VoLedi вне форума Ответить с цитированием
Старый 29.04.2009, 16:51   #2
@Міша@
Новичок
Джуниор
 
Аватар для @Міша@
 
Регистрация: 29.04.2009
Сообщений: 1
Печаль Помогите пожалуста

Я пишу курсовую роботу на тему "Приближонный алгоритм для задачы о покрытии множествами ". Мне надо написать програму на Pascal. Помогите кто может. Пишите на мой email Kapitoshka_Lyck@ukr.net или asq 389999145.
@Міша@ вне форума Ответить с цитированием
Старый 29.04.2009, 18:50   #3
Netizen
Новичок
Джуниор
 
Аватар для Netizen
 
Регистрация: 27.04.2009
Сообщений: 0
По умолчанию

Напишу любую программу на Pascal в кратчайшие сроки. Цена всегда договорная. Обращаться в асю 20пять-74два-32ноль.
There are 10 types of people in the world... those who understand binary and those who don't.
< Pascal, C++, C#, PHP+MySQL. ICQ: 20пять-74два-32ноль >
Netizen вне форума Ответить с цитированием
Старый 30.04.2009, 13:46   #4
Anatole
Форумчанин
 
Аватар для Anatole
 
Регистрация: 07.04.2009
Сообщений: 245
По умолчанию

VoLedi
Как я понял у вас проблемы с запуском компилятора.
Возьмите откомпилированый ехе модуль вашей програмы. синтаксически она правильна. Файлы с исходными даными подготовте сами
Вложения
Тип файла: zip vova.zip (5.9 Кб, 14 просмотров)
Всякое безобразие должно быть единообразным. Тогда это называется порядком.
Anatole вне форума Ответить с цитированием
Старый 04.05.2009, 03:37   #5
Sitoo9403
Заблокирован
 
Регистрация: 25.03.2009
Сообщений: 0
Восклицание The wise man knows

The wise man knows he knows nothing, the fool thinks he knows all.Thsale is a professional, loyal and reliable wow gold supplier online, we pioneered selling cheap wow gold. Welcome to thsale buy world of warcraft gold Buy Cheap WoW Gold, World of Warcraft Gold, Please look here! We are a Great MMORPG company. wow money and wow items,which is very cheap World of Warcraft gold ?All US Server 24.99$/1000G on sell! Cheap wow gold,rs powerleveling,wow power leveling,Buy Cheapest/Safe/Fast WoW US EU Gold Power leveling
Sitoo9403 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
кто может создать программу на строки в паскале? пожайлуста помогите. Tenzen Помощь студентам 5 05.03.2009 22:16
Кто-нибудь шарит в Common Lisp? Нужна помощь. IGREK Помощь студентам 5 08.06.2008 23:46
как сделать так что при изменении разрешения экрана программа работала... Victor[famas] Общие вопросы Delphi 7 13.02.2008 12:48
Кто шарит в PHP Simply-Art PHP 3 20.05.2007 21:01