41307
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 5 480 руб.;
- курсы повышения квалификации от 1 400 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ 60%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до 28 февраля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

Инфоурок / Информатика / Конспекты / PascalABC - построение диаграмм - 11 класс

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


Напоминаем, что в соответствии с профстандартом педагога (утверждён Приказом Минтруда России), если у Вас нет соответствующего преподаваемому предмету образования, то Вам необходимо пройти профессиональную переподготовку по профилю педагогической деятельности. Сделать это Вы можете дистанционно на сайте проекта "Инфоурок" и получить диплом с присвоением квалификации уже через 2 месяца!

Только сейчас действует СКИДКА 50% для всех педагогов на все 184 курса профессиональной переподготовки! Доступна рассрочка с первым взносом всего 10%, при этом цена курса не увеличивается из-за использования рассрочки!

ВЫБРАТЬ КУРС И ПОДАТЬ ЗАЯВКУ
Выберите документ из архива для просмотра:

Выбранный для просмотра документ 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 слайд В массивах хранятся данные о площадях посевов зерновых культур. Составить про
Описание слайда:

В массивах хранятся данные о площадях посевов зерновых культур. Составить программу, которая вычисляет, какой процент в общей площади посевов зерновых составляет площадь посевов каждой культуры, выводит данные и строит круговую диаграмму. 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.

Общая информация

Номер материала: ДВ-200572



Очень низкие цены на курсы переподготовки от Московского учебного центра для педагогов

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

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

Подайте заявку на интересующий Вас курс сейчас: KURSY.ORG

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Оператор персонального компьютера»
Курс повышения квалификации «Сетевые и дистанционные (электронные) формы обучения в условиях реализации ФГОС по ТОП-50»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Использование компьютерных технологий в процессе обучения в условиях реализации ФГОС»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

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

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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