Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.03.2018, 21:43   #1
karlmarks capital
Новичок
Джуниор
 
Регистрация: 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.
karlmarks capital вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с файлами Паскаль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