СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Выбрать материалы

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

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

Проверка знаний

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

Закрепление изученного

Итоги урока

Обо мне Блог Файлы Тесты Галерея Активность Награды

Открытый урок по теме "Тестирование по программам, написанным на Turbo Pascal Сортировка, ее принцип и виды."

Категория: Информатика

Нажмите, чтобы узнать подробности

Данный открытый урок был разработан для факультативных занятий по программированию на языке Паскаль.

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

Просмотр содержимого документа
«Открытый урок по теме "Тестирование по программам, написанным на Turbo Pascal Сортировка, ее принцип и виды."»

























































Тема: Тестирование по программам, написанным на Turbo Pascal.

Сортировка, ее принцип и виды.


Цель:

  1. Проверка учащимися полученных знаний на прошлом уроке;

  2. Развитие алгоритмического мышления;

  3. Знакомство учащихся с понятием сортировки, ее сути и видов;

  4. Совершенствование техники набора текста с клавиатуры на английском языке;

  5. Развитие умений в подведении итогов ранее изученных тем.



План урока:

    1. Вступление.

    2. Повторение прошлого материала, работа на компьютере.

    3. Тестирование «Поиск ошибок в программах».

    4. Подведение итогов тестирования.

    5. Зарядка для «мозгов».

    6. Объяснение новой темы:

    1. Понятие сортировки;

    2. Виды сортировки.

    3. Программа сортировки.

  1. Работа на компьютере.

  2. Домашнее задание.


Ход урока:

  1. Вступление.

Учитель: Итак, на прошлых уроках мы с вами изучали одномерные массивы, ввод и вывод элементов массива, и алгоритмы над ними. А именно:

    • Суммирование всех элементов массива;

    • Подсчет количества элементов массива удовлетворяющих какому-то определенному условию;

    • Поиск минимального элемента массива;

    • Поиск максимального элемента массива.


Далее учитель предлагает вспомнить последовательность всех алгоритмов, при этом учащиеся у доски демонстрируют умение восстанавливать ход алгоритмов по памяти.


  1. Повторение прошлого материала, работа на компьютере.

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

При этом учитель предварительно разбрасывает задания между учащимися.

При возникновении ошибок, с которыми ученик не может справиться самостоятельно, учитель подключает к процессу поиска всех остальных учеников.


  1. Тестирование «Поиск ошибок в программах».

Учитель: Как видите, появление самых элементарных ошибок, говорит о том, что нам с вами надо еще многому учиться, а именно, надо следовать неукоснительному правилу – заучивать алгоритмы так, чтобы в дальнейшем, при решении такого вида задач, воспроизведение алгоритма было автоматическим, то есть без ошибок.

А для этого нам необходимо научиться пресекать появление этих ошибок и уметь их быстро находить. Для этого я вам предлагаю проверить свои полученные знания на тестах, в которых есть ошибки, а вам их надо найти и объяснить.

Далее учитель раздает учащимся образцы тестовых заданий и соблюдая очередность, то есть включая в работу каждого ученика, учащиеся ищут и объясняют эти ошибки.

Образцы тестовых заданий смотрите в приложении №1.


  1. Подведение итогов тестирования.

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

    • каждый в отдельности;

    • все вместе.

Затем учитель предлагает учащимся ответить на вопросы:

    • Чему их научил сегодняшний тест по поиску ошибок?

    • Нужно ли учителю и в дальнейшем готовить учащимся подобные тестовые задания?


  1. Зарядка для «мозгов».

Учитель: Ну а теперь попытаемся расслабиться, отвлечься от информатики и развлечь наши «серые клеточки», как говорил великий сыщик Пуаро. Для этого я вам буду задавать вопросы, а вы на них даете ответы и если необходимо – поясняете свой ответ.

Далее учитель задает вопросы, а учащиеся на них отвечают. Вопросы к данному уроку смотрите в приложении №2.


  1. Объяснение новой темы:

Учитель: На этом наша «мозговая»разминка закончена, и мы с вами приступаем к изучению новой темы: «Сортировка элементов одномерного массива».

6.1. Понятие сортировки

Учитель: Сортировка – это расположение элементов массива по определенному принципу.

6.2. Виды сортировки.

Учитель: Выделяю всего два вида сортировок элементов массива:

  • По возрастанию (не убыванию);

  • По убыванию (не возрастанию).

Учитель демонстрирует на доске примеры расположения элементов массива до сортировки и после сортировки, как по возрастанию, так и по убыванию.

6.3. Программа сортировки.

Учитель: Программ сортировок очень много и алгоритм (или техника) сортировок у них во всех разная, а у некоторых и довольно сложная, то мы с вами разберем всего лишь один вид данного алгоритма, а именно сортировку «пузырьком».

Далее учитель объясняет принцип данной сортировки, ее суть и демонстрирует на доске программу этого алгоритма на Паскале.

После всех объяснений учащиеся списывают все с доски к себе в тетрадь.


7. Работа на компьютере.

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

Тесты для проверки правильности выполнения программы учитель записывает вместе с учащимися на доске.


8. Домашнее задание.

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



ПРИЛОЖЕНИЕ№1.


ТЕСТИРОВАНИЕ

по теме:

«Поиск ошибок

в задачах суммирования

элементов одномерного массива».

№1

№2

№3

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 read(a[i]);

s:=0;

For i:=1 to 10 S:=S+a[i];

Writeln(S)

End.

№4

№5

№6

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 10 do read(a[i]);

s:=0;

For i:=1 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

№7

№8

№9

Program SAM;

Var a:array[100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[1]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 do 10 to read(a[i]);

s:=0;

For i:=1 do 10 to S:=S+a[i];

Writeln(S)

End.

№10

№11

№12

Program SAM;

Var a:array[1..100] of integer;

Began

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

And.

Program SAM;

Var a:array[1..N] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

№13

№14

№15

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s=0;

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do; read(a[i]);

s:=0;

For i:=1 to 10 do; S:=S+a[i];

Writeln(S)

End.

№16

№17

№18

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=0;

For i:=1 to 10 do S:=S+a[1];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a[i]);

s:=a[i];

For i:=1 to 10 do S:=S+a[i];

Writeln(S)

End.

Program SAM;

Var a:array[1..100] of integer;

Begin

For i:=1 to 10 do read(a(i));

s:=0;

For i:=1 to 10 do S:=S+a(i);

Writeln(S)

End.





ТЕСТИРОВАНИЕ

по теме:

«Поиск ошибок

в задачах подсчета

элементов одномерного массива».


№1

№2

№3

Var a:array[100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] integer;

i,k,n:integer;

Begin readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k:integer;

Begin readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№4

№5

№6

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to 10 do read(a[i]);

k:=0;

For i:=1 to 10 do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[N]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then inc(k);

Writeln(k)

End.

№7

№8

№9

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 N do read(a[i]);

k:=0;

For i:=1 N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N read(a[i]);

k:=0;

For i:=1 to N

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=a[1];

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№10

№11

№12

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if k=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End

Var a:array[1..100] of integer;

i,k,n:integer;

Begin;

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№13

№14

№15

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do; read(a[i]);

k:=0;

For i:=1 to N do;

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(k);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:arayy[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№16

№17

№18

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do ried(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(k);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=k then k:=k+1;

Writeln(k)

End.

Var a:arayy[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i=1 to N do read(a[i]);

k:=0;

For i=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№19

№20

№21

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]: =5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(k);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k=k+1;

Writeln(k)

End.

Var a:arayy[1..100] of integer;

k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

№22

№23

№24

Var a:array[1..100] of integer;

i,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k:integer;

Begin

readln(k);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:arayy[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=k then k:=k+1;

Writeln(k)

End.

№25

№26

№27

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if inc(k) then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(k);

For i:=N to 1 do read(a[i]);

k:=0;

For i:=N to 1 do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:arayy[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[k]=5 then k:=k+1;

Writeln(k)

End.

№28

№29

№30

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read[a(i)];

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.

Var a:array[1..100] of integer;

i,k,n:integer;

Begin

readln(k);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(a[i])

End.

Var a;arayy[1..100] of integer;

i,k,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

k:=0;

For i:=1 to N do

if a[i]=5 then k:=k+1;

Writeln(k)

End.





ТЕСТИРОВАНИЕ

по теме:

«Поиск ошибок

в задачах поиска минимального

элемента одномерного массива».


№1

№2

№3

Ver a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..N] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

№4

№5

№6

Var a:array[1..100] of integer;

i,min,n:real;

Begin

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

For i:=1 to K do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

For i:=1 to N do read(a[i]);

min:=a[i];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

№7

№8

№9

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(min[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a(i));

min:=a(1);

For i:=1 to N do

if min=a(i) then min:=a(i);

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

a[1]:=min;

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

№10

№11

№12

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then a[i]:=min;

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(a[i])

End.

№13

№14

№15

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to 100 do read(a[i]);

min:=a[1];

For i:=1 to 100 do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[1];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

And.

№16

№17

№18

Var a:array[1..100] of integer;

i,min,n:integer;

Begin;

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 ot N do read(a[i]);

min:=a[1];

For i:=1 ot N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

Fer i:=1 to N do read(a[i]);

min:=a[1];

Fer i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

№19

№20

№21

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] them min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i=1 to N do read(a[i]);

min:=a[1];

For i=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min:=a[i] then min:=a[i];

Writeln(min)

End.

№22

№23

№24

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Wreteln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min[i])

End.

Var a:array[1..100] of integer;

n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

№25

№26

№27

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(10);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min).

End.

№28

№29

№30

Var a:array[1..100] of integer

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=a[1];

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.

Var a:array[1..100] of integer;

i,min,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

min:=0;

For i:=1 to N do

if min=a[i] then min:=a[i];

Writeln(min)

End.





ТЕСТИРОВАНИЕ

по теме:

«Поиск ошибок

в задачах поиска максимального

элемента одномерного массива».


№1

№2

№3

Var a=array[1..100] of integer;

i,max,n:integer;

Begin

For i:=1 to 10 do read(a[i]);

max:=a[1];

For i:=1 to 10 do

if max

Writeln(max)

End.

Var a:array[1...100] of integer;

i,max,n:integer;

Begin

For i:=1 to 10 do read(a[i]);

max:=a[1];

For i:=1 to 10 do

if max

Writeln(max)

End.

Var a:array[1..100] integer;

i,max,n:integer;

Begin

For i:=1 to 10 do read(a[i]);

max:=a[1];

For i:=1 to 10 do

if max

Writeln(max)

End.

№4

№5

№6

Var a:array[1..1N] of integer;

i,max,n:integer;

Begin

For i:=1 to N do read(a);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

For i:=1 to N do (a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

№7

№8

№9

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do; read(a[i]);

max:=a[1];

For i:=1 to N do;

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=N to N do read(a[i]);

max:=a[1];

For i:=N to N do

if max

Writeln(max)

End.

№10

№11

№12

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[i];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=0;

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=0 to N do read(a[i]);

max:=a[1];

For i:=0 to N do

if max

Writeln(max)

End.

№13

№14

№15

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

№16

№17

№18

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max=a[i] then max:=a[i];

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max=a[i] then max:=a[i];

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a(i));

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

№19

№20

№21

Var a:array[1..100] of in teger;

i,max,n:in teger;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin;

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:intiger;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

№22

№23

№24

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max=a[1];

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

a[1]=0;

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

writeln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

readln(max)

End.

№25

№26

№27

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

a[1]:=max;

For i:=1 to N do

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

For i:=1 to N do

max:=a[1];

if max

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

max:=a[1];

For i:=1 to N do read(a[i]);

For i:=1 to N do

if max

Writeln(max)

End.

№28

№29

№30

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

Writeln(max)

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max

readln(n)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do

if max

max:=a[1];

For i:=1 to N do read(a[i]);

Writeln(max)

End.

Var a:array[1..100] of integer;

i,max,n:integer;

Begin

readln(n);

For i:=1 to N do read(a[i]);

max:=a[1];

For i:=1 to N do

if max:=a[i]; then max

Writeln(max)

End.






ПРИЛОЖЕНИЕ №2.

Вопросы.

  1. В комнате 4 угла. В каждом углу сидит кошка. Напротив каждой кошки сидит по 3 кошки. На хвосте каждой кошки по одной кошке. Сколько же всего кошек в комнате? Ответ: 4 кошки.

  2. У отца 6 сыновей, каждый сын имеет сестру. Сколько всего детей у этого отца? Ответ: 7 детей.

  3. Портной имеет кусок сукна в 16 аршин, от которого он отрезает ежедневно по 2 аршина. По истечении скольких дней он отрежет последний кусок? Ответ: 7 дней.

  4. На уроках физкультуры ученики выстроились в линейку на расстоянии 1м. Друг от друга. Вся линейка растянулась на 25м. Сколько было учеников? Ответ: 26 учеников.

  5. Сколько получится десятков, если 2 десятка умножить на 2 десятка? Ответ: 40 десятков.

  6. Сколько сейчас времени, если оставшаяся часть суток в 2 раза больше прошедшей? Ответ: 8 часов.

  7. 6 рыбаков съели 6 судаков за 6 дней. За сколько дней 10 рыбаков съедят 10 судаков? Ответ: за 6 дней.

  8. Что дороже: килограмм 1-копеечных монет или пол килограмма 5-копеечных монет? Ответ: 1кг копеечных монет, т.к. 1кг металла всегда дороже, чем 0,5 кг такого же металла.

  9. Отец каждый раз в день рождения дочери клал в копилку 1 рубль. К 16-ти годам в копилке оказалось всего 5 рублей. Как это объяснить? Ответ: она родилась в високосный год 29 февраля.

  10. Какой знак нужно поставить между О и 1, чтобы получилось число больше 0, но меньше 1? Ответ: запятую.

  11. Тройка лошадей пробежала 30 км. Какое расстояние пробежала каждая лошадь? Ответ: 30 км.

  12. Крышка стола имеет 4 угла. Один из них отпилили Сколько углов стало у крышки? Ответ: 5 углов.

  13. Назвать первые “вычислительные устройства”, которыми пользовались в древности люди? Ответ: пальцы рук.

  14. 4 человека обменялись рукопожатиями. Сколько всего было рукопожатий? Ответ: 6 рукопожатий.

  15. Дочери 8 лет, а матери 32. Через сколько лет мать будет втрое старше дочери? Ответ: через 4 года (36 : 12 = 3).

  16. Какое целое число делится (без остатка) на целое число, отличное от нуля? Ответ: ноль.

  17. Кирпич имеет массу 1,5 кг и ещё полкирпича. Какова масса кирпича? Ответ: З кг.

  18. Вычислить сумму наибольших однозначного, двузначного и трёхзначного чисел? Ответ: 9+99+999=1107

  19. Кто из величайших математиков древности провозгласил, что числа правят миром? Ответ: Пифагор.






15

Информатика 3 класс

Информатика 11 класс (Беларусь)

Электронная тетрадь по информатике 9...

Электронная тетрадь по информатике 6...

Информатика 8 класс ФГОС

Электронная тетрадь по информатике 7...

Электронная тетрадь по информатике 8...

Информатика 2 класс ФГОС
Скачать

© 2015, 849 15

0 Нет комментариев

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!

Полезное для учителя

Новости проекта
03.06.24

Лайфхак учителя №1! Что делать с плохой накопляемостью отметок

12.05.24

Лайфхак учителя №2! Как перестать бегать от ученика к ученику во время практической работы

04.05.24

Лайфхак учителя №3! Что делать, если вы устали из урока в урок повторять одно и то же