1. Графика, в основе которой лежат математические вычисления.
4. Изображение, которое состоит из математических формул, описывающих простые графические объекты, из которых состоит векторный файл.
6. Минимальный участок изображения, для которого независимым можно задавать цвет.
7. Простейший геометрический объект, отображаемый на экране дисплея или на рабочем поле графопостроителя: точка, отрезок прямой, дуга окружности или эллипса, прямоугольник и т. п.
8. Устройство для автоматического вычерчивания с большой точностью рисунков, схем, сложных чертежей, карт и другой графической информации.
По вертикали:
2. Любая видимая глазом форма, которую сознание человека выделяет среди прочих как самостоятельную.
3. Процесс увеличения масштаба растрового изображения.
5. Вид изображения, составленный при инструментов рисования и черчения.
9. Изображение, которое хранится в виде описания совокупности точек с указанием их координат и цвета.
10. Ограниченный набор цветов, доступный графической системе компьютера.
begin writeln('Напишите своё имя'); readln(a); writeln('Напишите дату рождения, год целиком'); readln(q); q:=2016-q; write(' - Привет,',a,'. '); if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b); if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end; end.
// Внимание! Если программа не работает, обновите версию!
procedure Love(n:integer);
begin
Writeln(n*('Я люблю ПАСКАЛЬ'+NewLine))
end;
begin
Love(ReadInteger('n='))
end.
Пример
n= 5
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
Я люблю ПАСКАЛЬ
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
procedure LinEqu(a,b:real);
begin
if a=0 then
if b=0 then Writeln('Решений бесконечно много')
else Writeln('решений нет')
else Writeln('x=',-b/a)
end;
begin
var a,b:real;
Write('Введите а и b: '); Read(a,b);
LinEqu(a,b)
end.
Пример
Введите а и b: 18.45 -12
x=0.650406504065041
a,b,j,v,c:string;
q: integer;
begin
writeln('Напишите своё имя');
readln(a);
writeln('Напишите дату рождения, год целиком');
readln(q);
q:=2016-q;
write(' - Привет,',a,'. ');
if q<7 then begin writeln('Ты уже пошел в детский сад?'); readln (' - ',b);
if (b='Да') or (b='да') then writeln ('Удачи!') else writeln (' - Пойди в Детский сад, там тебя обучат азам жизни. Удачи') end; else if (7<q) and (q<17) then begin writln (' - Ты пошёл в школу?'); readln (' - ',c); if (c='Да') or (c='да') then begin writeln (' - В какую школу ты пошёл?'); readln (' - ',v); writeln (' - В каком ты классе?'); readln (' - ',j);end;
end.
Так можно продолжать бесконечно