Функция х2 в паскаль примет вид

Обновлено: 14.11.2024

Рассмотрим наиболее распространенные в Pascal типы данных.

Целочисленные типы данных в Паскаль

Тип	Диапазон	Требуемая память (байт)
byte	0..255	1
shortint	-128..127	1
integer	-32768.. 32767	2
word	0..65535	2
longint	-2147483648..2147483647	4

Нужно иметь в виду, что при написании программ в паскале integer (в переводе с англ. целое) является наиболее часто используемым, так как диапазон значений наиболее востребуем. Если необходим более широкий диапазон, используется longint (long integer, в переводе с англ. длинное целое). Тип byte в Паскале используется, когда нет необходимости работать с отрицательными значениями, то же самое касается и типа word (только диапазон значений здесь значительно больше).

Примеры того, как описываются (объявляются) переменные в Паскале:

program a1; var x,y:integer; myname:string; begin x:=1; y:=x+16; myname:='Петр'; writeln ('имя: ',myname, ', возраст: ', y) end.

program a1; begin var x, y: integer; var myname: string; x := 1; y := x + 16; myname := 'Петр'; print($'имя: , возраст: ') end.

Результат:
имя: Петр, возраст: 17

Комментарии в Паскале

Задача 5. Население Москвы равняется а=9000000 жителей. Население Нью-Васюков равняется b=1000 жителей. Напишите программу, которая определяет разницу в числе жителей между двумя городами. Используйте переменные величины.

[Название файла: L1task5.pas ]

Вещественные типы данных в Паскаль

Тип	Диапазон	Требуемая память (байт)
real	2.9 * 10E-39 .. 1.7 * 10E38	6
single	1.5 * 10 E-45 .. 3.4 * 10E38	4
double	5 * 10E-324 .. 1.7 * 10E308	8
extended	1.9 * 10E-4951 .. 1.1 * 10E4932	10

Выше были представлены простые типы данных в Паскаль, к которым относятся:

Порядковые
Целые
Логические
Символьные
Перечисляемые
Интервальные
Вещественные

Для вывода значений переменных вещественного типа обычно используется форматированный вывод:

Наряду с простыми типами в языке еще используются структурированные типы данных и указатели, которым будут посвящены последующие уроки по Паскалю.

Константы в Паскале

Зачастую в программе заранее известно, что переменная будет принимать какое-то конкретное значение и не менять его на протяжении выполнения всей программы. В таком случае необходимо использовать константу.

Объявление константы в Паскале происходит до объявления переменных (до служебного слова var ) и выглядит следующим образом:

Пример описания константы в Паскале:

const x=17; var myname:string; begin myname:='Петр'; writeln ('имя: ',myname, ', возраст: ', х) end.

const x = 17; begin var myname := 'Петр'; print($'имя: , возраст: ') end.

Вывод целых чисел

Вывод вещественных чисел

Арифметические операции в Паскале

Порядок выполнения операций

вычисление выражений в скобках;
умножение, деление, div, mod слева направо;
сложение и вычитание слева направо.

Канонический способ:

var a: integer; b: real; begin a := 1; writeln('a := 1; a = ',a); a += 2; // Увеличение на 2 writeln('a += 2; a = ',a); a *= 3; // Умножение на 3 writeln('a *= 3; a = ',a); writeln; b := 6; writeln('b := 6; b = ',b); r /= 2; writeln('b /= 2; b = ',b); end.

Стандартные арифметические процедуры и функции Pascal

Здесь стоит более подробно остановиться на некоторых арифметических операциях.

Пример операции inc:

Пример использования функции odd:

begin WriteLn(Odd(5)); WriteLn(Odd(4)); end.

Пример использования процедуры sqr в Pascal:

var x:integer; begin x:=3; writeln(sqr(x)); end.

Однако в компиляторе pascal abc возведение в степень осуществляется значительно проще:

Для работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:

uses GraphABC; begin . end.

Система координат в Паскале соответствует экранной системе координат и выглядит следующим образом:

Управление цветом

Для того, чтобы использовать цвет, необходимо применить этот цвет к инструменту перо:

или использовать для заливки:

После чего можно использовать процедуры для рисования геометрических фигур.

Цвета в pascal abc:

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный

Точки, отрезки и ломаные

Для отображения точки в паскале используется процедура:

uses GraphABC; begin SetPixel(300,200,clred); end.

Для рисования линии используется:

uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.

Ломаные можно рисовать с помощью процедур MoveTo (x1, y1) и LineTo (x2, y2) .
Процедуры работают в паре: MoveTo передвигает курсор в определенную точку, а процедура LineTo рисует линию с этой точки до точки, определенной параметром данной процедуры.

uses GraphABC; begin . SetPenColor(clblue); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); end.

Задание 0: При помощи операторов SetPenColor(), LineTo (x2, y2) и MoveTo (x1, y1) нарисовать квадрат и равносторонний треугольник.

Для установки размеров графического окна используется процедура

Рисование фигур

Прямоугольник в Паскале рисуется:

uses GraphABC; begin Rectangle(50,50,200,200); end.

Фигуры с заливкой:

uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.

Треугольник рисуется процедурами:

Line(x1,y1,x2,y2);
LineTo(x,y);

uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.

Окружность можно нарисовать с помощью процедуры:

uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.

Дуга окружности

uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.

Задание 1: «Лягушка»

Задание 2: «Корона»

Функция random для использования окраски

* раскрасить круги случайным цветом

Задание 5:
Воспроизвести изображение при помощи программы:
Штриховка

Нарисовать штриховку на Паскале можно, используя процедуры рисования прямоугольника и линии:

Программа будет выглядеть следующим образом:

uses graphABC; var i, x1, x2, y1, y2, N: integer; h, x: real; begin x1 := 100; y1 := 100; x2 := 300; y2 := 200; N := 10; Rectangle (x1, y1, x2, y2); h := (x2 - x1) / (N + 1); x := x1 + h; for i:=1 to N do begin Line(round(x), y1, round(x), y2); x := x + h; end; end.

Задание 6:
Нарисуйте шахматную доску.

Анимация в Паскале

Анимация в программировании заключается в том, что сначала рисуется фигура цветным инструментом, затем с тем же координатами рисуется та же фигура белым цветом. После чего происходит сдвиг фигуры и действия повторяются.

Пример: Воспроизвести движение круга по горизонтали.

uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); SetPenColor(clBlack); Circle(x,100,10); x:=x+1 until x>600; end.

Задание 6: Выполнить анимацию движения квадрата по следующей траектории:

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Миниатюры Эксперт 94731 / 64177 / 26122 Ответы с готовыми решениями:

Построение графика функции
Помогите построить график функции x*(x-1)*(x-1)*(x-1)*(x-1). Значения функции на картинке. Буду.

Построение графика функции
Напишите хотя бы код как построить такой график

Модератор 64050 / 47466 / 32725 Если чуть включишь мозг, то поймешь что это функция y=abs(x), что программа и рисует, а тебе нужно
0 / 0 / 0 Спасибо. Я включил мозг Эксперт 87844 / 49110 / 22898

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Построение графика функции
Помогите решить задачу(на рисунке №4) в pascal ABC строится координатная, а функция не строится? .

Построение графика функции
1 . Очистить экран монитора и при необходимости установить желаемый цвет фона. 2 . Выбрать.

Построение графика функции
Помогите построить график функции f(x)=2/sin^3 (x) на координатных осях.

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Эксперт 94731 / 64177 / 26122 Ответы с готовыми решениями:

Решение квадратного уравнения
составить программу решения квадратного уравнения вида ax2+bx+c=0 a неравно 0..

Решение квадратного уравнения
Ребята не правильно считает почему то (только начал изучать) program cat; uses crt; var a, b, c.

Решение квадратного уравнения
Я только пытаюсь понять суть программирования, написал прогу для решения Дискриминанта, все.

Решение квадратного неравенства
Всем привет.Нужно написать программу решения неравенства ax2+bx+c>=0 с условным. Вот что.

Читайте также: