|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2009, 21:11 | #1 |
Пользователь
Регистрация: 13.06.2008
Сообщений: 22
|
Курсовая , тестовая программа .
Здраствуйте. Я пишу курсовую на тему "Работа с файлами в Паскале".
Помогите составить блок схему к программе. Также мне надо описать для чего служит каждая переменная в разделе описаний.Мой I-C-Q 1*1*7*8*8*8*9 без звёзд ).Вот программа : Program testing; uses crt; var fil,otvet,obr:text; name,s,st:string; kol,i:integer; otv:1..3; begin clrscr; writeln('Vas privetstvuet yniversalnaia programma testirovania'); write(' Vvedite pyt k faily s testovimi voprosami i nazhmite ENTER -> '); readln(name); writeln; clrscr; assign(fil,name); reset(fil); assign(otvet,'e:\otvet.txt'); rewrite(otvet); while not eof(fil) do begin for i:=1 to 4 do begin readln(fil,s); writeln(s); end; writeln; write(' Vash otvet -> '); readln(otv); writeln(otvet,otv); delay(60000); clrscr; end; close(fil); reset(otvet); kol:=100; assign(obr,'e:\obrazec.txt'); reset(obr); while not eof(obr) do begin readln(otvet,s); readln(obr,st); if s<>st then kol:=kol-1; end; writeln(' Vasha otsenka '); case kol of 99..100:write(' OTJIU4HO '); 80..98:write(' XOPOIIIO '); 60..79:write(' YgoBJIuTBOPUTeJIHO '); 0..59:write(' IIJIOXO '); end; close(obr); close(otvet); readln; end. |
12.01.2009, 14:58 | #2 |
Пользователь
Регистрация: 13.06.2008
Сообщений: 22
|
Спасибо всем кто постучал мне в асю.)
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Тестовая программа в Turbo Pascal | cL1zMa | Помощь студентам | 6 | 23.01.2012 20:41 |
курсовая | lacost | Фриланс | 2 | 03.06.2008 21:26 |
Тестовая программа с таймером | Barrr | Помощь студентам | 11 | 21.10.2007 19:42 |
help! курсовая | Nurik | Фриланс | 2 | 02.04.2007 11:57 |
Тестовая программа | cL1zMa | Помощь студентам | 6 | 29.03.2007 19:28 |