![]() |
![]() ![]() |
![]() |
alex 10 |
![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: ![]() ![]() ![]() |
вот программа
Код program progra; uses crt; var g, ff, a, d, j, k, och, fl, c: integer; na,text, n: string; begin g := 1; write(' ALO.S TURBO 1 '); writeln(''); write('checking the sistem'); delay(500); write('.'); delay(500); write('.'); delay(500); write('.'); while g = 1 do begin write(' запуск завершён. системные диски: c,d,e.выберете действие:'); writeln('1-поиск в системе'); write(',2-открыть папку'); write(',3-читать word документ в рашширении wrd'); write(',3-читать word документ в рашширении wrd'); write(',4-читать word документ в рашширении txt'); readln(c); if c = 1 then write('введите название файла:game,word или endpo'); readln(n); if n = 'game' then begin write('матема'); clrscr; writeln('до какого числа можно мне выдавать числа?'); readln(ff); a := 1; d := 2; g := 3; j := 1; while (g = a + d) and (j = 1) do begin k := k + 1; och := och + k; randomize; a := random(ff); d := random(ff); write(a, '+', d, '='); readln(g); writeln('играем дальше???(1=yes,2=no)'); readln(j); end; writeln('ответов ', k, 'очков- 9', och); end; if n = 'word' then write('word run.'); readln(text); var gn:string; gn:=text; if n = 'endpo' then begin writeln('нажмите "enter"'); readln; begin if c = 2 then begin write('введите название папки'); readln(na); if na ='c'then write('вложеная папка sistem.открыть?'); write('1-да,2-нет'); readln(fl); if fl = 1 then writeln('доступ к этой папке ограничен в целях безопасности системы!'); if fl=2 then begin write('ALOS TURBO ЗАКОНЧИТЬ РАБОТУ//?//'); write('2-да,1-нет'); READLN(g); end; if na='d'then writeln('1-word document.wrd'); writeln('2-word document.txt'); writeln('читать документ?'); writeln('1-да,2-нет'); var fgg:integer; readln(fgg); if fgg=1 then begin writeln(' введите номер документа'); var number:integer; readln(number); if number=1 then writeln(text); if number=2 then writeln(gn); end; if fgg=2 then readln; end; if na='e' then write('INVALID DISC'); if c=3 then write(text,' .wrd'); end; end; write(' продолжить работу?'); writeln('1-да,2-нет'); readln(g); end; end. ![]() |
![]() ![]() |
![]() |
Текстовая версия | 8.09.2024 5:20 |