IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> вот моё первое ПО, если есть ошибки-пишите
alex 10
сообщение 15.03.2015 19:56
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской
Реальное имя: Алексей

Репутация: -  0  +


вот программа
Код

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.
norespect.gif txt версия
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 13:39
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"