Бесплатные рефераты


В мире
Календарь новостей
« Ноя.2017
Пн.Вт.Ср.Чт.Пт.Сб.Вс.
  12345
6789101112
13141516171819
20212223242526
27282930   
ВНИМАНИЕ!!!
УВАЖАЕМЫЕ ПОЛЬЗОВАТЕЛИ!!!
Сайт поменял владельца и на нём грядут большие перемены.
Убедительная просьба не пользоваться покупкой рефератов через смс.
ДАННЫЙ СЕРВИС БОЛЬШЕ НЕ РАБОТАЕТ
Стоит вопрос об его удалении, дабы сделать рефераты бесплатными. Извините за неудобство и спасибо за понимание
Поиск реферата

Реферат, курсовая, контрольная, доклад на тему: Программирование с использованием генератора случайных чисел

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо скачать работу.

program kursovik; uses crt,graph; var j,help,i,work,button:byte; exitmenu,exitprog:boolean; actionprog,action:char; grmode,grdriver:integer; dat:array[1..3]of real; posle:array[1..100] of real; xcor,ycor:array[1..3]of byte; mat,disp:array[1..10]of real; mat0,disp0,dispmax,matmax,x:real;
{*****DrawHelp*****} procedure drawhelp(help:byte); begin textcolor(black); textbackground(white); gotoxy(1,25); case help of

0: write(' F1-Парам. F2-Посл-ти F3-Гистогр. F10-Меню (Alt-x)-Выход

');

1: write(' Задать/изменить параметры

');

2: write(' Просмотреть последовательности

');

3: write(' Просмотреть гистограмму

');

4: write(' Выход

');

5: write(' Esc-Закончить изменение параметров. BckSp-Изменить параметр.
F4-Постр. посл-ть');

6: write(' Нажмите Up или Down для просмотра или Esc для выхода

'); end; end;
{*****DrawWin*****} procedure drawwin; begin textcolor(white);textbackground(blue);
GotoXY(1,2);

Write('г'); for i:=2 to 79 do

Write('=');

Write('¬');

for i:=3 to 23 do begin

GotoXY(1,i1);

Write('¦'); for j:=2 to 79 do

Write(' ');

Write('¦'); end;

GotoXY(1,24);

Write('L'); for i:=2 to 79 do

Write('=');

Write('-');
{ gotoxy(39,2);write('T');} gotoxy(39,24);write('¦'); for i:=5 to 23 do begin gotoxy(39,i); write('¦') end; gotoxy(31,3); writeln('Последовательности'); gotoxy(1,4);

write('¦=====================================T==============================
==========¦'); end;
{*****DoWork*****} procedure dowork(work:byte); begin case work of

1: begin textcolor(white); textbackground(blue); gotoxy(39,2);write('T'); gotoxy(2,3); writeln(' Нормальный закон: ¦ Экспоненциальный закон:'); gotoxy(1,4);

write('¦=====================================+==============================
==========¦'); drawhelp(5); textcolor(white); textbackground(blue); gotoxy(2,6);write(' Мат. ожидание:'); gotoxy(2,8);write('
Дисперсия:');gotoxy(xcor[2],ycor[2]);write(dat[2]:2:1);

gotoxy(41,6);write('Коэффициент:');gotoxy(xcor[3],ycor[3]);write(dat[3]:2:1)
; gotoxy(xcor[1],ycor[1]);write(dat[1]:2:1);i:=1; repeat action:=readkey; case action of

#27: exitpar:=true;

#9: begin i:=i+1; if i

ВНИМАНИЕ! Работа на этой странице представлена для Вашего ознакомления в текстовом (сокращенном) виде. Для того, чтобы получить полностью оформленную работу в формате Word, со всеми сносками, таблицами, рисунками (вместо pic), графиками, приложениями, списком литературы и т.д., необходимо А можно заказать оригинальный реферат
Опубликовано: 20.08.10 | [ + ]   [ - ]  
Просмотров: 101
Загрузок: 0
Рекомендуем
{dnmbottom}
БАНК РЕФЕРАТОВ содержит более 70 000 рефератов, курсовых, контрольных работ, сочинений и шпаргалок.