• написать программу на Pascal abc в которой разными цветами в центре и по углам экрана будет выводиться имя "Сергей" и проверить работоспособность на компьютере( то есть проверить будет ли работать программа)

Ответы 6

  • да работает но в правой стороне ничего нет. хотелось бы чтобы было по всему экрану( 10 цветов)
  • Разверните окно)
  • Надписей точно 5)
    • Автор:

      priscilla
    • 5 лет назад
    • 0
  • да только все на левой стороне, на правой ни одного. можете объяснить как сделать так чтобы было и на правой хоть немного
  • я все понял. спасибо
    • Автор:

      kiaraujsq
    • 5 лет назад
    • 0
  • Никогда не писала что-либо с использованием графики, но, скорее всего, программа выглядит следующим образом:uses  GraphABC;var  x0, y0, x1, y1: integer;begin      SetWindowSize(400, 400);//устанавливаем размер окна     x0 := WindowWidth;//ширина окна     y0 := WindowHeight;//высота окна       SetFontColor(clRed);//Устанавливаем цвет текста     TextOut(0, 0, 'Сергей');//Надпись в левом верхнем углу       x1 := WindowWidth div 2; //половина ширины окна     y1 := WindowHeight div 2;//половина высоты окна     SetFontColor(clBlue);    TextOut(x1, y1, 'Сергей');//Надпись посередине     SetFontColor(clYellow);    TextOut(0, y0, 'Сергей');//Надпись в левом нижнем углу    SetFontColor(clPurple);    TextOut(x0, 0, 'Сергей');//Надпись в правом верхнем углу     SetFontColor(clGreen);    TextOut(x0, y0, 'Сергей');//надпись в правом нижнем углуend.Программа была написана  в Pascal ABC.NET. Пожалуйста, проверьте, работает ли она в вашем Pascal.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years