|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.03.2018, 21:43 | #1 |
Новичок
Джуниор
Регистрация: 06.03.2018
Сообщений: 2
|
программирование на паскальabc
не могу не как разобраться
как сделать чтобы когда запускалась она запускалась с помощью uses crt; а когда запускаешь подпункт графика(3) она открывала его с помощью uses graphABC; а то получается что она сразу переходит на uses graphABC; вот сам код uses crt; uses graphABC; var d, x, t, i : integer; a :byte; begin repeat clrscr; writeln('Выберите действие'); writeln('1-о программе'); writeln('2-игра'); writeln('3-графика'); writeln('4-Выход из программы'); writeln('Выберите пункт меню'); repeat read(a); until a in [1..4]; case a of 1:begin clrscr; writeln ('введите сведения о студенте'); writeln (''); writeln(' '); writeln(' Pascal (Паскаль) - язык программирования общего назначения.'); writeln ('Создан в 1970 году специалистами Технического Университета в Цюрихе'); writeln ('(ETH, Zurich) под руководством профессора '); writeln ('Никлауса Вирта (Niklaus Wirth).'); writeln (' После появления языка Pascal были созданы '); writeln ('новые промышленные версии языка, '); writeln ('а также языки-потомки, которые сохраняют основные синтаксические '); writeln (' и семантические свойства языка Вирта: '); writeln ('Modula, Turbo Pascal, Object Pascal (Delphi), '); writeln (' Component Pascal (Oberon-2),'); end; 2:begin Randomize; x := random(9); d := 9; t := 4; while d <> x do begin t := t-1; writeln('Введите правильное число от 1-9: '); readln(d); if d > x then writeln('[Меньше] Неверно! ') else if d < x then writeln('[Больше] Неверно! ') else writeln('Поздравляем! Задуманное число совпадает с веденным. '); if t = 0 then begin writeln('Вы проиграли! '); break end else writeln('Попыток: ', t); end; readln; end; 3:begin SetWindowSize (400,400); SetBrushStyle (bsClear); // строятся 5 окружностей с // радиусами 10,20,30,40,50 for i:=1 to 5 do Circle(200,200,i*10); end; 4:begin sleep(200);closewindow; end; end; until a=4; END. Последний раз редактировалось karlmarks capital; 06.03.2018 в 21:50. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с файлами ПаскальABC.NET | Вадим Вергун | Помощь студентам | 2 | 11.01.2015 20:58 |
Модули.Таблица.ПаскальABC | dimka123 | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 18.09.2014 22:26 |
1C программирование | Alex_Pioner | Помощь студентам | 0 | 09.04.2012 15:49 |
Программирование или web-программирование? | Дмитрий Батогов | Помощь студентам | 3 | 23.06.2011 14:14 |