Методика изучения программирования гуманитариями

Учебные курсы

Число недельных учебных часов за два года обучения

I. Базовые общеобразовательные курсы

Русский язык и литература

6

Иностранный язык

6

Естествознание

6

Математика

8

Физическая культура

6

II. Профильные курсы

История (базовый общеобразовательный и профильный курсы)

10

Экономика

6

Право

6

Экономическая и социальная география

4

Социология

4

III. Элективные курсы (3 курса на выбор)

5-6 курсов, предлагаемых школой

Всего 12

Учебные практики, проекты, исследовательская деятельность

Не менее 70 учебных часов за 2 года обучения

Учебные курсы

Число недельных учебных часов за два года обучения

I. Базовые общеобразовательные курсы

Математика

6

Естествознание

6

Физическая культура

6

II. Профильные курсы

Русский язык и литература (базовый общеобразовательный и профильный курсы)

12

Иностранный язык (базовый общеобразовательный и профильный курсы)

10

История (базовый общеобразовательный и профильный курсы)

8

Обществоведение (базовый общеобразовательный и профильный курсы)

8

Искусство

6

III. Элективные курсы (3 курса на выбор)

5-6 курсов, предлагаемых школой

Всего 12

Учебные практики, проекты, исследовательская деятельность

Не менее 70 учебных часов за 2 года обучения

Учебные курсы

Число недельных учебных часов за два года обучения

I. Базовые общеобразовательные курсы

Русский язык и литература

6

История и обществоведение

8

Естествознание

6

Физическая культура

6

II. Профильные курсы

Информатика и ИКТ

10

Математика (базовый общеобразовательный и профильный курсы)

10

Физика

6

Иностранный язык (базовый общеобразовательный и профильный курсы)

8

III. Элективные курсы (3 курс на выбор)

5-6 курсов, предлагаемых школой

24 всего

Учебные практики, проекты, исследовательская деятельность

Не менее 140 учебных часов за 2 года обучения

Учебные курсы

Число недельных учебных часов за два года обучения

I. Базовые общеобразовательные курсы

Русский язык и литература

8

Математика

8

Иностранный язык

6

История

4

Обществоведение (включая экономику и право)

8

10

Естествознание

6

Физическая культура

4

Информатика

Технология

4

II. Элективные курсы (4 курса на выбор и/или часы на углубление базовых курсов)

5-6 курсов, предлагаемых школой

Всего 16

Учебные практики, проекты, исследовательская деятельность

Не менее 70 уч. часов за 2 года обучения

Чаша - Мирт

Пора - Жабо

Чаша

Маша

Миша

Мира

Мирт

Пора

Пара

Жара

Жаба

Жабо

Алгоритм:

Код Pascal

1) Ввод количества жителей, площадь территории;

2) Определить Плотность населения, которое равно количество жителей / площадь территории;

3) Вывод плотности населения;

var kolich,plotnost,ploshchad:real;

begin

writeln('Vvedite kolich,plotnost,ploshchad ');

readln(kolich,plotnost,ploshchad);

plotnost:= kolich / ploshchad;

writeln(' plotnost =', plotnost);

end.

Алгоритм:

Код Pascal

1) Ввод прибыли (Р);

2) Определить остаток1 средств после выплаты налога, которое равно прибыль (Р) - (прибыль (Р) * 70 / 100);

{где (прибыль (Р) * 70 / 100) - оплачиваемый налог в размере 70 %}

3) Определить остаток2 средств от развития производства, которое равно остаток1 - (остаток1 * 30 / 100);

{где (остаток1* 30 / 100) - 30 % от оставшейся доли, который идет на развитие производства}

4) Определить з/п одного работника в день, которое равно остаток2 / количество работников (8);

5) Определить з/п одного работника в месяц, которое равно з/п одного работника в день*количество рабочих дней в неделю (26);

6) Вывод з/п одного работника в месяц.

var p, о1, о2, zp1, zp2:real;

begin

writeln('Vvedite p ');

readln(p);

о1:= p-(p*70/100);

О2:= о1-( о1*30/100);

zp1:=o2/8;

zp2:= zp1*26;

writeln(' srednemesjachnaja zarplata rabotnika=', zp2);

end.

Алгоритм:

Код Pascal

1) Ввод числа Мбайт (Х);

2) Определить количество бит в Х Мбайт, которое равно число Мбайт (Х)*1024*1024*8;

3) Вывод количество бит.

var x,b:real;

begin

writeln('Vvedite x');

readln(x);

b:=x*1024*1024*8;

writeln('kolichestvo bit=',b);

end.

Алгоритм:

Код Pascal

1) Ввод курса доллара(kd), курса евро(ke), рублевую сумму(sr);

2) Определить количество долларов, которое можно купить, и которое равно количество рублей(sr) делить нацело(div) на курс доллара(kd);

3) Определить количество евро, которое можно купить, и которое равно количество оставшихся рублей (sr mod kd) делить нацело(div) на курс евро(ke);

4) Вывод количество долларов и евро.

или

5) Определить количество евро, которое можно купить, и которое равно количество рублей (sr) делить нацело(div) на курс евро(ke);

6) Определить количество доллара, которое можно купить, и которое равно количество оставшихся рублей (sr mod ke) делить нацело(div) на курс доллара(kd);

7) Вывод количество долларов и евро.

var kd, ke, sr, kold, kole: integer;

begin

writeln('Vvedite kurs dollar, kurs evro i summu rublei');

readln(kd, ke, sr);

kold:=sr div kd;

kole:=(sr mod kd) div ke;

writeln('kolichestvo dollarov=', kold, 'kolichestvo evro=', kole, 'ili');

kole:=sr div ke;

kold:=(sr mod ke) div kd;

writeln('kolichestvo dollarov=', kold, 'kolichestvo evro=', kole);

end.

Алгоритм:

Код Pascal

1) Ввод размера наследства (r) и траты в месяц(t);

2) Определить количество лет, которое равно размер наследства (r) поделить на трату в год (t*12);

{трату в год находим произведением траты в месяц на количество месяцев в году}

3) Вывод количество лет.

var r, t, g:real;

begin

writeln('Vvedite razmer nasledstva i tratu');

readln(r,t);

g:=r/(t*12);

writeln('nasledstva xvatit na',g, 'let');

end.

Алгоритм:

Код Pascal

1) Ввод среднего количества предметов (sr_subj) и среднего количества времени на один предмет (sr_time);

2) Определить количество времени в часах, которое равно среднего количества предметов (sr_subj) * на среднего количества времени на один предмет (sr_time) и это все поделить на количество минут в часах;

3) Вывод количества времени.

var sr_time,sr_subj:integer;

rez:real;

begin

writeln('Vvedite srednee kol-vo predmerov ');

read(sr_subj);

writeln('Vvedir srednee kol-vo vremeny na odin predmet (min)');

read(sr_time);

rez:=(sr_subj*sr_time)/60;

writeln('Kol-vo chasov na vupolnenie ',rez);

end.

Алгоритм:

Код Pascal

1) Ввод количества рабочих дней в месяце(С);

2) Определить количество рабочих часов в месяце, которое равно количества рабочих дней в месяце(С) * на продолжительность рабочего дня (8);

3) Вывод количества рабочих часов в месяце.

var c:integer;

rez:real;

begin

writeln('Vvedite kolichestvo rabochix dnei v mesjacze');

read(c);

rez:=c*8;

writeln('Kol-vo rabochix chasov v mesjacze = ',rez);

end.

Алгоритм:

Код Pascal

1) Ввод количество КВт электроэнергии, которое было израсходовано за расч?тный месяц, и плата за 1 КВт электроэнергии;

2) Определить сумму денег нужную платить за электроэнергию, которая равна произведению количества КВт электроэнергии, которое было израсходовано за расч?тный месяц, и платы за 1 КВт электроэнергии;

3) Вывод суммы.

var ke, p, rez :real;

begin

writeln('Vvedite izrasxovovanoe kol-vo energii i platu za 1KBt ');

read(ke,p);

rez:=ke*p;

writeln('summa = ',rez);

end.

Алгоритм:

Код Pascal

1) Ввод стоимости таблеток «Колдрекса» (sk), стоимости таблеток аспирина упса (sa), стоимости одной порции эскимо (sp);

2) Определить, количество порций эскимо если для лечения покупать таблетки «Колдрекса» которое равно стоимости таблеток «Колдрекса» (sk) *20 поделить нацело (div) на стоимость одной порции эскимо (sp);

3) Вывод количества порций.

4) Определить, количество порций эскимо если для лечения покупать таблетки аспирина упса, которое равно стоимости таблеток аспирина упса (sa) *30 поделить нацело (div) на стоимости одной порции эскимо (sp);

5) Вывод количества порций.

var sk, sa, sp, rez : integer;

begin

writeln('Vvedite stoimost Koldreksa, stoimost asperina upsa i stoimost porzii eskimo');

read(sk, sa, sp);

rez:= sk*20 div sp;

writeln('kolichestvo pri pokupke Koldreksa = ',rez, 'ili');

rez:= sa*30 div sp;

writeln('kolichestvo pri pokupke asperina upsa = ',rez);

end.

Алгоритм:

Код Pascal

1) Присвоить стоимость квартплаты семьи год назад 80 рублям

2) Определить, количество квартплаты после первого повышения, которое равно стоимость квартплаты семьи год назад + (стоимость квартплаты семьи год назад*30/100);

3) Определить, количество квартплаты после второго повышения, которое равно стоимость квартплаты после первого повышения +(стоимость квартплаты после первого повышения *40/100);

4) Вывод стоимость нынешней квартплаты.

var sk, sk1, rez : real;

begin

sk:=80;

sk1:= sk+(sk*30/100);

rez:=sk1+(sk1*40/100);

writeln('stoimost kvartplati = ',rez);

end.

Алгоритм:

Код Pascal

1) Ввод стоимости одной пары мужских носков (s1), стоимости одной пары женских носков (s2);

2) Определить, количество пар которое бабушка вяжет в месяц, которое равно произведению количества пар в неделю (3) на количество недель в месяце (4);

3) Определить, прибыль бабушки в месяц, которая равна сумме стоимости женской и мужской паре носков * их количество в месяц;

4) Вывод прибыли бабушки.

var s1, s2, k, rez : integer;

begin

writeln('Vvedite stoimost muzhskix i zhenski noskov');

read(s1, s2, sp);

k:=3*4;

rez:=(s1+s2)*k;

writeln('pribil babuschki = ',rez);

end.

Алгоритм:

Код Pascal

1) Ввод роста трех человек (s1, s2, s3);

2) Сравнить, Если рост всех трех человек одинаков то

3) Вывод рост одинаковый.

4) Иначе Вывод рост разый.

var s1, s2, s3 : double;

begin

writeln('Vvedite rost trex chelovek');

read(s1, s2, s3);

if s1=s2=ы3 then

writeln('rost odinakovij')

else writeln('rost raznij');

end.

Алгоритм:

Код Pascal

1) Ввод температуры воздуха в градусах (t);

2) Сравнить, Если температура > 0 то

3) Вывод на улице тепло.

4) Иначе Вывод на улице холодно.

var t : integer;

begin

writeln('Vvedite temperaturu');

read(t);

if t>0 then

writeln('na ulize teplo')

else writeln('na ulize xolodno');

end.

Алгоритм:

Код Pascal

1) Ввод расстояния в километрах (s1), расстояния в футах (s2);

2) Определить, чему равно введенное расстояние в километрах - в метрах(s1m), которое равно произведению расстояния в километрах (s1) и количества метров в одном километре (1000);

3) Определить, чему равно введенное расстояние в футах - в метрах(s2 m), которое равно произведению расстояния в футах (s2) и количества футов в одном метре (0,45);

4) Сравнить Если введенное расстояние в километрах - в метрах(s1m)> введенного расстояния в футах - в метрах(s2 m) то

5) Вывод расстояние в километрах больше.

6) Иначе Вывод расстояние в футах больше.

var s1, s2, s1m, s2m : double;

begin

writeln('Vvedite rasstojanie v kilomrtrax i rasstojanie a futax');

read(s1, s2);

s1m:= s1*1000;

s2m:= s2*0.45;

if s1m>s2m then

writeln(s1,'bolische')

else writeln(s2,'bolische');

end.

Алгоритм:

Код Pascal

1) Ввод размеров стола: длинная сторона (a), короткая сторона (b);

2) Ввод размеров карточки: длинная сторона (с), короткая сторона (d);

3) Определить, количество карточек при размещении их длинной стороной вдоль длинной стороны стола, которое равно произведению количества карточек лежащих длинной стороной (в один ряд) вдоль длинной стороны стола (a div c) и количества карточек лежащих короткой стороной (в один ряд) вдоль короткой стороны стола (b div d);

4) Определить, количество карточек при размещении их короткой стороной вдоль длинной стороны стола, которое равно произведению количества карточек лежащих короткой стороной (в один ряд) вдоль длинной стороны стола (a div d) и количества карточек лежащих длинной стороной (в один ряд) вдоль короткой стороны стола (b div с);

5) Сравнить Если количество карточек размещенных длинной стороной вдоль длинной стороны стола > количества карточек размещенных короткой стороной вдоль длинной стороны стола то

6) Вывод количество карточек размещенных длинной стороной вдоль длинной стороны стола больше

7) Иначе Вывод количество карточек размещенных короткой стороной вдоль длинной стороны стола больше.

var s1, s2, a, b, c, d : integer;

begin

writeln('Vvedite razmer dlinnoi i korotkoi storoni stola');

read(a, b);

writeln('Vvedite razmer dlinnoi i korotkoi storoni kartochki');

read(c, d);

s1:= (a div c)*(b div d);

s2:= (a div d)*(b div c);

if s1>s2 then

writeln(s1,'= kolichestvo kartochek razhmeshchennix dlinnoi storonoi bolische')

else writeln(s2,'= kolichestvo kartochek razhmeshchennix korotkoi storonoi bolische ');

end.

Алгоритм:

Код Pascal

1) Ввод года (n);

2) Если введенный год делится нацело на 4 то;

3) Смотреть Если введенный год делится нацело на 100 то

4) Смотреть Если введенный год делится нацело на 400 то

5) Вывод что год является високосным

6) Иначе вывод, что год не является високосным

7) Если введенный год все-таки не делится нацело на 100 то выводим что код является високосным

8) А если введенный год не делится нацело на 4 то выводим что год не является високосным

var

n: integer;

begin

writeln('Vvedite god');

read(n);

if n mod 4 = 0 then

begin

if n mod 100 = 0 then

begin

if n mod 400 = 0 then

writeln('visokosnij')

else writeln('ne visokosnij');

end;

if n mod 100 <> 0 then writeln(' visokosnij ')

end;

if n mod 4 <> 0 then writeln('ne visokosnij ');

end.

Алгоритм:

Код Pascal

1) Ввод года (n);

2) Если введенный год делится нацело на 4 то;

3) Смотреть Если введенный год делится нацело на 100 то

4) Смотреть Если введенный год делится нацело на 400 то

5) Вывод что год является високосным

6) Иначе вывод, что год не является високосным

7) Если введенный год все-таки не делится нацело на 100 то выводим что код является високосным

8) А если введенный год не делится нацело на 4 то выводим что год не является високосным

var

n: integer;

begin

writeln('Vvedite god');

read(n);

if n mod 4 = 0 then

begin

if n mod 100 = 0 then

begin

if n mod 400 = 0 then

writeln('visokosnij')

else writeln('ne visokosnij');

end;

if n mod 100 <> 0 then writeln(' visokosnij ')

end;

if n mod 4 <> 0 then writeln('ne visokosnij ');

end.