Чертёжник (Тетрадка за весь семестр по информатике)

логические линия_корректна = ложь, прямоугольник_корректный = ложь, окружность_корректна = ложь, треугольник_корректный = ложь;

логические x1v = ложь, x11v = ложь, y1v = ложь, y11v = ложь, x2v = ложь, x22v = ложь, oxv = ложь, x4v = ложь, y2v = ложь, y22v = ложь, oyv = ложь, y4v = ложь, lv = ложь, rv = ложь;

целые x1, x11, x2, x22, ox, x4, y1, y11, y2, y22, oy, y4, l, r, нПозиции = -1;

целые надоДомик = 0;

целые i = 0;

дробные k = 0.8666;

Программа {

пока (!линия_корректна)

{

выводстр " ";

выводстр " прямая";

пока (!x1v)

{

выводстр " введите x от -300 до 299 для 1 точки";

ввод x1;

если (x1 > 299 или x1 < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе x1v = true;

}

пока (!y1v)

{

выводстр " ";

выводстр " введите у от -299 до 300 для 1 точки";

ввод y1;

если (y1 < -299 или y1 > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе y1v = true;

}

пока (!x11v)

{

выводстр " ";

выводстр " введите x от -300 до 299 для 2 точки";

ввод x11;

если (x11 > 299 или x11 < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе x11v = true;

}

пока(!y11v)

{

выводстр " ";

выводстр " введите у от -299 до 300 для 2 точки";

ввод y11;

если (y11 < -299 или y11 > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе y11v = true;

}

выводстр " ";

если ( x1v и x11v и y1v и y11v ){

линия_корректна = true;

}

}

если (линия_корректна)

{

очистить;

в_точку(x1, y1);

опусти_перо;

в_точку(x11, y11);

подними_перо;

в_точку(0, 0);

}

пока (!прямоугольник_корректный)

{

выводстр " ";

выводстр " прямоугольник ";

пока (!x2v)

{

выводстр " ";

выводстр " x от -300 до 299 и у от -299 до 300";

выводстр " введите x от -300 до 299 для 1 точки";

ввод x2;

если (x2 > 299 или x2 < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе x2v = true;

}

пока(!y2v)

{

выводстр " ";

выводстр " введите у от -299 до 300 для 1 точки";

ввод y2;

если (y2 < -299 или y2 > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе y2v = true;

}

пока(!x22v)

{

выводстр " ";

выводстр " введите x от -300 до 299 для 2 точки";

ввод x22;

если (x22 > 299 или x22 < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе x22v = true;

}

пока(!y22v)

{

выводстр " ";

выводстр " введите у от -299 до 300 для 2 точки";

ввод y22;

если (y22 < -299 или y22 > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе y22v = true;

}

если ( x2v и x22v и y2v и y22v ){

прямоугольник_корректный = true;

}

}

если (прямоугольник_корректный)

{

очистить;

в_точку(x2, y2);

опусти_перо;

в_точку(x22, y2);

в_точку(x22, y22);

в_точку(x2, y22);

в_точку(x2, y2);

подними_перо;

}

пока (!окружность_корректна)

{

выводстр " окружность ";

выводстр " x от -300 до 299 и у от -299 до 300";

пока(!oxv)

{

выводстр " ";

выводстр " введите х центра ";

ввод ox;

если (ox > 299 или ox < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе oxv = true;

}

пока(!oyv)

{

выводстр " ";

выводстр " введите у центра";

ввод oy;

если (oy < -299 или oy > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе oyv = true;

}

целые q = 600 - ox, w = 600 - oy;

пока (!rv)

{

выводстр " ";

выводстр" введите радиус центра ";

выводстр " не больше 300 и не меньше 0 ";

ввод r;

если (r < 0 или r > 300)

{

выводстр "ошибка ,повторите попытку";

}

иначе rv = true;

}

выводстр " ";

если ( oxv и oyv и rv ){

окружность_корректна = true;

}

}

если (окружность_корректна)

{

очистить;

в_точку(ox, oy);

опусти_перо;

окружность(r);

подними_перо;

в_точку(0, 0);

}

пока (!треугольник_корректный)

{

выводстр " ";

выводстр " треугольник";

выводстр " x от -300 до 299 и у от -299 до 300";

пока (!x4v)

{

выводстр " введите x точки: ";

ввод x4;

если (x4 > 299 или x4 < -300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе x4v = true;

}

пока (!y4v)

{

выводстр " ";

выводстр "введите y точки: ";

ввод y4;

если (y4 < -299 или y4 > 300)

{

выводстр "ошибка ,повторите попытку";

выводстр "x от -300 до 299 и у от -299 до 300";

}

иначе y4v = true;

}

целые maxl = 0;

если ( x4 < 300 и x4 > -301 и y4 > -300 и y4 < 301 ){

треугольник_корректный = true;

если ( x4 > 0 ){

maxl = 300 + x4;

}

если ( x4 <= 0 ){

maxl = 300 - x4;

}

если ( y4 > 0 ){

если ( maxl <= y4 + 300 ){

maxl = y4 + 300;

}

}

если (y4 <= 0){

если ( maxl <= y4 - 300 ){

maxl = y4 - 300;

}

}

если (l >= maxl){

треугольник_корректный = ложь;

}

}

если (треугольник_корректный){

если ( x4 - l < -300 и y4 + l > 300 ){

нПозиции = 1;

}

если ( y4 + l > 300 и x4 - l > -300 и x4 + l < 300 ){

нПозиции = 2;

}

если ( x4 + l > 299 и y4 + l > 300 ){

нПозиции = 3;

}

если ( x4 + l > 299 и y4 + l < 301 и y4 - l > -300 ){

нПозиции = 4;

}

если ( x4 + l > 299 и y4 - l < -299 ){

нПозиции = 5;

}

если ( y4 - l < -299 и x4 + l > -301 и x4 - l < 300 ){

нПозиции = 6;

}

если ( x4 - l < -300 и y4 - l < -299 ){

нПозиции = 7;

}

если ( x4 - l < -300 и y4 - l > -299 и y4 - l < 301 ){

нПозиции = 8;

}

если ( x4 - l > -301 и x4 + l < 300 и y4 - l > -299 и y4 + l < 301){

нПозиции = 0;

}

если (нПозиции < 0 | l >= maxl ){

треугольник_корректный = ложь;

}

}

пока (!lv)

{

выводстр " ";

выводстр " введите длину стороны ";

ввод l;

если (l < 0 или l > 599 или l >= maxl)

{

выводстр "ошибка ,повторите попытку";

}

иначе lv = true;

}

выводстр " ";

}

если ( треугольник_корректный ){