Реферат: Моделирование ЭВМ

norm3(y5,y6); write(f4,y5,' ');write(f4,y6,' ');

Приложение № 3 (продолжение)

end;

close (f1); close (f3); close (f4);

assign(f2,'d:\tp\exp.dat');

rewrite(f2);

writeln('Экспоненциальный закон ');

writeln('Введите параметр a: '); readln(a);

for i:=1 to 500 do begin expon(a,x);write(f2,x,' '); end;

close(f2);

End.

Приложение № 4

//стохастическая модель системы

#include<stdio.h>

#include<conio.h>

const emb=1; //единица машинного времени

FILE *ravn, *norm1, *norm2, *norm3, *exp;

float a;

int ravnom()

{ fscanf(ravn,"%f ",&a);

return int(a*5);

}

int normal1()

{ fscanf(norm1,"%f ",&a);

return int(a*10);

}

int normal2()

{ fscanf(norm2,"%f ",&a);

return int(a*10);