русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Введите число и показатель степени


Дата добавления: 2015-09-15; просмотров: 1343; Нарушение авторских прав


2 3

 

2.0 в степени 3.0 = 8.0

 

Постановка задачи 2:

Написать процедуру, которая выводит на экран строку, состоящую из звёздочек. Длина строки (количество звёздочек) является параметром функции.

Составление программы:

 

Program STARS;

USES crt;

VAR n:integer; {количество звёздочек}

PROCEDURE StarsInLine(len:integer);

Var i: integer;

Begin

for I:=1 to len do

write (‘*’);

End;

BEGIN

clrscr;

writeln(‘Введите n’);

readln (n);

StarsInLine (n);

END.

 

Решение задачи. Результаты решения:

 

Введите n

**********

 

 


Варианты задач к работе по теме 5

 

1. Написать программу с функцией, которая вычисляет объём цилиндра. Параметрами функции должны быть радиус и высота цилиндра.

 

 

2. Написать программу с функцией, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента.

 

3. Написать программу с функцией, которая возвращает True, если символ, полученный функцией в качестве аргумента, является согласной буквой русского алфавита.

 

4. Написать программу с функцией, которая возвращает максимальное из двух чисел, полученных в качестве аргумента.

 

5. Составить программу с использованием процедуры умножения матриц А(2,3) и В(3,4).

 

6. Составить программу с использованием процедуры транспонирования матрицы.

 

7. Составить программу с использованием процедуры сложения матриц А(2,3) и В(2,3).

 

8. Написать программу с процедурой, которая выводит строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.

 

?Для заметок:

____________________________________________________________________________________________________________________________________________________________________________________________________________________________________



____________________________________________________________________________

Тема 6: Графика

Приступая к решению задач этой темы, следует вспомнить, что:

v в графическом режиме экран представляет собой совокупность точек, каждая из которых может быть окрашена в один из 16 цветов;

v координаты точек возрастают слева направо и сверху вниз; левая верхняя точка имеет координаты (0,0), а правая нижняя – (639, 479);

v для того чтобы программа могла выводить на экран графические примитивы (линии, окружности, прямоугольники), необходимо инициализировать графический режим

 

Графика:

 

Графика

1. Включается модулем uses graph.

2. Ввести дополнительные переменные GD и GM типа integer.

3. Настроиться на тип монитора.

4. Включить графику.

5. Использовать её.

6. Выключить графику.

 

Пример:

1) Var GD, Uses graph;

2) GM: integer;

……………

BEGIN

3) GD:= detect;

4) Initgraph (GD,GM,’ c:\TP\bgi’); {Путь зависит от настройки TP}

5) Circle (100,100,50)

6) Closegraph;

END.

 

Графические функции:

Точка

Форма записи:

цвет
координаты
PutPixcel (x,y: integer, color: word);


Линия

Форма записи:

Line (x1,y1, x2,y2: integer);

 

Координаты должны быть целыми числами

 

Окружность

Форма записи:

радиус
координаты
Circle (x,y: integer, R: world);

Дуга

Форма записи:

Arc (x,y : integer, u1,u2, R);

 

       
   
 
координаты
 


Прямоугольник

Форма записи:

Rectangle (x1,y1, x2,y2 : integer);

Отсчёт координат ведётся от левого верхнего угла экрана, координаты начинаются с нуля (0,0).

 

Эллипс

Форма записи:

Ellipse (x,y, u1,u2, R1, R2);

           
     
 
 

 

           
 
координаты
 
начальный и конечный угол в радианах
 
радиус по х и по у
 
 

 

 



Параллелепипед

Форма записи:

Bar3D (x1,y1, x2,y2 : integer, t: word);

       
 
   
глубина в % от ширины
 

 


Цвет:

Синий



<== предыдущая лекция | следующая лекция ==>
Ввести 15 целых чисел. Определить сколько из них принимает наибольшее значение. | Зелёный


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.004 сек.