Как в PascalABC нарисовать квадрат? Жёлтый квадрат на зелёном фоне
Вот тебе желтый квадрат. Обучающие примеры совсем не смотрим? Как сделать фон зеленым подсказывать не буду из прЫнципа.
begin
Window.Title := ‘Желтый квадрат Малевича’;
Pen.Color := Color.Yellow;
Brush.Color := Color.Yellow;
Rectangle(20, 20, 150, 150);
end.
YumiЗнаток (480) 8 лет назад
я всего 7 класс
johnsilver Просветленный (22468) Читать в 7 классе не учат ?
Похожие вопросы
Ваш браузер устарел
Мы постоянно добавляем новый функционал в основной интерфейс проекта. К сожалению, старые браузеры не в состоянии качественно работать с современными программными продуктами. Для корректной работы используйте последние версии браузеров Chrome, Mozilla Firefox, Opera, Microsoft Edge или установите браузер Atom.
Паскаль — Урок 3: операторы квадрата, корня и модуля
Этот оператор возводит в квадрат заданное ему число или переменную. Обозначается, как «sqr» без кавычек. В программе пишется как sqr(a), где a — любая другая переменная или число.
var a, c:integer;
begin
writeln ('Введите число');
readln (a);
c:=sqr(a);
writeln ('Квадрат равен ',c);
end.
2. Оператор корня
Этот оператор находит корень из переменной или числа. Обозначается, как «sqrt» , без кавычек. В программе пишется как sqrt(a), где a — любая другая переменная или число.
var a, c:real;
begin
writeln ('Введите число');
readln (a);
c:=sqrt(a);
writeln ('Корень равен ',c);
end.
3. Оператор модуля
Данный оператор переводит число из обычного в число по модулю, то есть меняет его знак всегда на положительный. Обозначается, как «abs» без кавычек, в программе пишется, как abs(a), где a — любое число или другая переменная.
var a, c:real;
begin
writeln ('Введите число');
readln (a);
c:=abs(a);
writeln ('Модуль равен ',c);
end.На сегодня урок окончен, с другими уроками вы можете познакомиться в категории «Уроки паскаль»
Функции Sqrt и Sqr
Функция Sqrt в Паскале вычисляет квадратный корень числа. Синтаксис функции следующий:
function Sqrt(Х : ValReal) : ValReal;
Эта функция возвращает квадратный корень числа, переданного через параметр Х. Число Х должно быть положительным, иначе произойдёт ошибка во время выполнения программы (так написано в документации, но в моей версии компилятора ошибки не происходит, а функция в случае отрицательного параметра возвращает значение NaN).
Функция Sqr в Паскале вычисляет квадрат числа. Синтаксис функции для разных типов приведён ниже:
function Sqr(Х : LongInt) : LongInt; function Sqr(Х : QWord) : QWord; function Sqr(Х : ValReal) : ValReal;
Эта функция возвращает результат вычисления квадрата числа, переданного через параметр. То есть Sqr = х * х.
О типе ValReal я рассказывал здесь.
Квадрат числа
Здесь всё крайне просто. Квадрат числа Х равен произведению Х на Х. То есть функция Sqr на первый взгляд кажется бесполезной. Потому что во многих случаях проще написать так:
Единственный случай, когда использование функции Sqr является обоснованным с точки зрения упрощения кода, это когда в качестве параметра передаётся вещественное число (константа) с большим количеством знаков после запятой, или очень большое целое число, или сложное выражение. Например:
будет написать проще, чем
Х := 5.3456753322 * 5.3456753322
Также возведение в квадрат числа в Паскале сложного выражения тоже будет проще, если использовать функцию Sqr:
X := Sqr(Y + 100 * Z / X)
Вычисление квадратного корня
Когда мы изучали функции вычисления экспоненты и натурального логарифма, то мы узнали, что с их помощью можно возвести число в любую степень. То есть вычислить, в том числе, и корень любой степени.
Однако использование этих функций всё-таки немного сложновато. Поэтому для вычисления квадратного корня в Паскале имеется специальная функция (потому что квадратный корень приходится вычислять намного чаще, чем, например, корень n-й степени).
Эту функцию вы уже знаете — это функция Sqrt.
А здесь я напомню что такое квадратный корень для тех, кто подзабыл математику.
Итак, квадратный корень из числа А (корень 2-й степени) — это решение уравнения:
То есть квадратный корень из числа А, это число Х, которое при возведении в квадрат даёт число А.
ВАЖНО!
Число А может быть только положительным числом. Извлечение корня из отрицательного числа тоже возможно, но это уже будут комплексные числа.
Программы на Pascal. «Вычисление периметра и площади квадрата»
�� Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.
Составить программу на языке Паскаль для вычисления площади и периметра квадрата со стороной А
Задачи по информатике и основам программирования на языке Паскаль.
Программа «Вычисление периметра квадрата»
Задание:
Введите сторону квадрата. Найдите периметр. Выведите результат на экран.
Program Perimeter;
Var A, P : Integer;
begin
writeln(‘Программа вычисления периметра квадрата’);
write(‘Введите сторону ‘);
readln(A);
P := 4 * A;
writeln(‘Периметр квадрата равен ‘, P)
end.
Замечание:
В зависимости от компилятора языка Паскаль существуют различные ограничения на вводимые значения. Например, в Borland (Turbo) Pascal диапазон допустимых значений для Integer -32768..32767, а в Pascal ABC.NET -2147483648..2147483647
Программа «Вычисление площади квадрата»
Задание:
Введите сторону квадрата. Найдите площадь. Выведите результат на экран.
Program Square;
Var A, S : Real;
begin
writeln(‘Программа вычисления площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
S := A * A;
writeln(‘Площадь квадрата равна ‘, S)
end.
Замечание:
Вместо S := A * A;
можно использовать функцию возведения в квадрат sqr
S := Sqr(A);
Программа «Вычисление периметра и площади квадрата»
Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.
Program PS;
Var A, P, S : Real;
begin
writeln(‘Программа вычисления периметра и площади квадрата’);
write(‘Введите сторону ‘);
readln(A);
if A > 0 then begin
P := 4 * A;
S := Sqr(A);
writeln(‘Периметр квадрата равен ‘, P);
writeln(‘Площадь квадрата равна ‘, S)
end
else writeln(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.
Программа «Вычисление периметра и площади квадрата». Вариант решения на PascalABC.NET
- В программе отсутствуют устаревшие в PascalABC.NET конструкции. В программе используются следующие рекомендованные конструкции PascalABC.NET:
- Используются внутриблочные описания переменных: 3 раза
- Используется инициализация при описании: 3 раза
- Для ввода используется функция вида ReadInteger,ReadReal: 1 раз
- Используется расширенное присваивание: 2 раза
- Для вывода использована Print: 4 раза
Задание:
Введите сторону квадрата. Если введённое значение больше 0, то найдите площадь и периметр квадрата и выведите результаты на экран, иначе выведите сообщение об ошибке.
(*
Вариант для PascalABC.NET
*)
begin
Println(‘Программа вычисления периметра и площади квадрата’);
var A := ReadReal(‘Введите сторону ‘);
if A > 0 then begin
var P : Real := 4 * A;
var S : Real := Sqr(A);
Println(‘Периметр квадрата равен ‘, P);
Println(‘Площадь квадрата равна ‘, S)
end
else Println(‘Ошибка. Сторона квадрата должна быть больше нуля’)
end.
�� Площадь треугольника по формуле Герона. Три варианта. Во втором примере используется оператор перехода GOTO. Третий пример написан, с учётом рекомендаций PascalABC.NET
�� Площадь прямоугольного треугольника. Вычислить площадь и периметр прямоугольного треугольника по двум сторонам. Четыре варианта решения задач.