Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Конспекты / PascalABC - построение диаграмм - 11 класс
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

PascalABC - построение диаграмм - 11 класс

Выберите документ из архива для просмотра:

Выбранный для просмотра документ Zadaniya na urok (po variantam).docx

библиотека
материалов

Приложение 1



Вариант №1


Вариант №2

На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

program Diagram;

uses crt, GraphABC;

const A: array[1..5] of integer = (47,63,22,27,12);

B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');

var u, u0, S, i: integer;

begin

SetWindowSize(600, 600);

S:=0; u0:=0;

for i:=1 to 5 do

S:=S+A[i]; //вычисление суммарной площади

for i:=1 to 5 do

begin

Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');

SetBrushColor(rgb(random(255),random(255),random(255)));

u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора

Pie(220,240,140,u0,u); //рисование сектора

u0:=u; //новое значение начального угла следующего сектора

end;

end.


На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

program Diagram;

uses crt, GraphABC;

const A: array[1..5] of integer = (47,63,22,27,12);

B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');

var u, u0, S, i: integer;

begin

SetWindowSize(600, 600);

S:=0; u0:=0;

for i:=1 to 5 do

S:=S+A[i]; //вычисление суммарной площади

for i:=1 to 5 do

begin

Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');

SetBrushColor(rgb(random(255),random(255),random(255)));

u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора

Pie(220,240,140,u0,u); //рисование сектора

u0:=u; //новое значение начального угла следующего сектора

end;

end.

На 7 баллов.

Добавьте еще одну зерновую культуру – Жито (33 га). Скомпилируйте. Сохраните.


На 7 баллов.

Добавьте еще одну зерновую культуру – Рапс (27 га). Скомпилируйте. Сохраните.

На 8-9 баллов.

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


На 8-9 баллов.

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

На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.


На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.



Выбранный для просмотра документ конспект.doc

библиотека
материалов

Головач Александр

Лицей №1 имени А.С. Пушкина

План-конспект урока по информатике (11 класс)

Тема: “Построение диаграмм”

Цели:

  • Образовательные:

способствовать формированию умений построения диаграмм в среде Pascal ABC, укреплять меж предметные связи с математикой, акцентировать внимание на прикладной роли программирования;

  • Развивающие:

способствовать воспитывать у учащихся самостоятельность в работе;

  • Воспитательные:

способствовать развитию мышление, память, внимание.

Структура урок:

Вид деятельности

Время (мин)

1

Организационный момент

1

2

Объяснение нового материала

15

3

Задание на дом

2

4

Практическая работа

25

5

Подведение итогов урока

2



ХОД УРОКА

1. Организационный момент

Организую внимание учащихся, предлагаю сесть.

- Здравствуйте. Сегодня у нас на уроке работа с диаграммами в Pascal ABC. Целью нашего занятия – научится строить круговые диаграммы в Pascal ABC.

2. Объяснение нового материала

- Эффектным средством наглядного представления данных являются диаграммы.

- Давайте вспомним, в каких программах Вы уже строили диаграммы? (Microsoft Excel)

Верно. А теперь давайте разберемся пример, как же строятся диаграммы в Pascal ABC.

(запускаю презентацию)


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

program Diagram;

uses crt, GraphABC;

const A: array[1..5] of integer = (47,63,22,27,12);

B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');

var u, u0, S, i: integer;

begin

SetWindowSize(600, 600);

S:=0; u0:=0;

for i:=1 to 5 do

S:=S+A[i]; //вычисление суммарной площади

for i:=1 to 5 do

begin

Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');

SetBrushColor(rgb(random(255),random(255),random(255)));

u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора

Pie(220,240,140,u0,u); //рисование сектора

u0:=u; //новое значение начального угла следующего сектора

end;

end.

3. Задание на дом

§7 (п.7.1- 7.3) №2а

4. Практическая работа

На карточках по вариантам.

Вариант №1


На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

program Diagram;

uses crt, GraphABC;

const A: array[1..5] of integer = (47,63,22,27,12);

B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');

var u, u0, S, i: integer;

begin

SetWindowSize(600, 600);

S:=0; u0:=0;

for i:=1 to 5 do

S:=S+A[i]; //вычисление суммарной площади

for i:=1 to 5 do

begin

Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');

SetBrushColor(rgb(random(255),random(255),random(255)));

u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора

Pie(220,240,140,u0,u); //рисование сектора

u0:=u; //новое значение начального угла следующего сектора

end;

end.


На 7 баллов.

Добавьте еще одну зерновую культуру – Жито (33 га). Скомпилируйте. Сохраните.

На 8-9 баллов.

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

На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.


Вариант №2

На 6 баллов.

Набрать программу. Скомпилировать. Сохранить.

program Diagram;

uses crt, GraphABC;

const A: array[1..5] of integer = (47,63,22,27,12);

B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха');

var u, u0, S, i: integer;

begin

SetWindowSize(600, 600);

S:=0; u0:=0;

for i:=1 to 5 do

S:=S+A[i]; //вычисление суммарной площади

for i:=1 to 5 do

begin

Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %');

SetBrushColor(rgb(random(255),random(255),random(255)));

u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора

Pie(220,240,140,u0,u); //рисование сектора

u0:=u; //новое значение начального угла следующего сектора

end;

end.

На 7 баллов.

Добавьте еще одну зерновую культуру – Рапс (27 га). Скомпилируйте. Сохраните.

На 8-9 баллов.

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

На 10 баллов.

Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните.

5. Подведение уроков

- Чем мы сегодня занимались на уроке?

- Ккие трудности возникли при решении заданий?


3


Выбранный для просмотра документ Пример.pptx

библиотека
материалов
В массивах хранятся данные о площадях посевов зерновых культур. Составить про...
1 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Описание презентации по отдельным слайдам:

№ слайда 1 В массивах хранятся данные о площадях посевов зерновых культур. Составить про
Описание слайда:

В массивах хранятся данные о площадях посевов зерновых культур. Составить программу, которая вычисляет, какой процент в общей площади посевов зерновых составляет площадь посевов каждой культуры, выводит данные и строит круговую диаграмму. program Diagram; uses crt, GraphABC; const A: array[1..5] of integer = (47,63,22,27,12); B: array[1..5] of string = ('Рожь','Пшеница','Овес','Ячмень','Гречиха'); var u, u0, S, i: integer; begin SetWindowSize(600, 600); S:=0; u0:=0; for i:=1 to 5 do S:=S+A[i]; for i:=1 to 5 do begin Writeln(B[i],' ',A[i],' га ',round(100*A[i]/S),' %'); SetBrushColor(rgb(random(255),random(255),random(255))); u:=u0+round(A[i]*360/S); Pie(220,240,140,u0,u); u0:=u; end; end.


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

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

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 27.11.2015
Раздел Информатика
Подраздел Конспекты
Просмотров988
Номер материала ДВ-200572
Получить свидетельство о публикации
Похожие материалы

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