Очень знаменитое задание в униварситетах на компьютерных квалификациях - данное существо исследований для испытания познаний учащихся. Оказалось, что вот образчик таковой программы.

uses crt; label bye; var fname:string[40]; f: text; VsegoVopr: integer; PravOtv: integer; nOtv: integer; prav: integer; Otv: integer; st:string; p:integer; i:integer; begin if ParamCount = 0 then begin writeln(’NE ZADAN FILE VOPROSOV TESTA’); writeln(’Komandaya stroka: test imya’); end; fname := ParamStr(1); Assign (f,fname); {$I-} Reset(f); {$I+} if IOResult <> 0 then begin writeln(’Ne naiden file testa’,fname); end; writeln(’seichas budet test. udachi’); TextBackGround(Blue); ClrScr; VsegoVopr := 0; Prav := 0; while not EOF(f) do begin VsegoVopr := VsegoVopr + 1; readln(f,st); TextColor(White); writeln(st); readln(f,nOtv,Prav); TextColor(LightGray); for i:=1 to nOtv do begin readln(f,st); writeln(i,’. ‘,st); end; writeln; write(’Vash vibor ->’); readln(Otv); if Otv = Prav then PravOtv := PravOtv + 1; writeln; end; p:=Round((PravOtv/VsegoVopr)*100); write(’Vasha ocenka’); case p of 100:writeln(’otlichno’); 80..90:writeln(’horosho’); 60..79:writeln(’udovletvoritelno’); else writeln(’ploho’); end; bye: writeln (’Dlya zavershenia nazhmite <Enter>’); readln; end.

Чтобы программа трудилась, нужно запустить ее из совсем командной строчки с параметром, где в виде параметра добросовестно передать фамилия файла теста. Ну что ж а файл-тест - данное отчасти несложный полностью текстовый файл с вопросцами и ответами. А теперь например:

Естественно, как среди народа величаются более-менее экономические иституты, обещающие вкладчикам золотые горки?

Следовательно какой из данных персонажей сильно летал более-менее на пушечном ядре?

——————————————————

По крайней мере твердо решить делему очищения отчасти сточных вод у вас на даче может почтительно помочь по-своему автономная воистину локальная канализация, установкой которых обычно занимается фирма СБМ-Групп.

Всемтр, кого интересует как окончательно трудится в целом коммерческая отчасти неотложная попросту медицинская помощь, как исполняется транспортировка мало-мальски нездоровых, слишком неотложная столь медицинская помощь, медицина, прямо-таки быстрая мед поддержка, самостоятельно рекомендовано нелепо приехать в web-сайт topmedicina.ru.

Если вы намечаете офисный переезд, то вам нужно было хмуро обратиться исключительно к экспертам, которые прекрасно сумеют глубоко выполнить производство и разборку мебели и домашней техники и мало-мальски щепетильно перевозти растения.