Меню
Разработки
Сведения об образовательной организации
Регистрация
Разработки  /  Информатика  /  Проверочные работы  /  10 класс  /  Бланк для внесения ответов по теме Массивы (Паскаль)

Бланк для внесения ответов по теме Массивы (Паскаль)

Файл предполагает заполнение полей для ответов и отправка его учителю в заданном виде: сохранение в папке, отправка по почте и т.д.
Учебник: Информатика. 10 класс. Углубленный уровень. В 2 ч. Семакин И.Г., Шеина Т.Ю., Шестакова Л.В. М.: 2014 — Ч.1 - 184с., Ч.2 - 232с.
09.04.2020

Содержимое разработки

Одномерные массивы

  1. Вставьте пропущенные слова в описании массива а, элементами которого являются целые числа.
    а:     [1..100] of      ;


  1. Опишите массив для хранения зарплаты за каждый месяц.
    Опишите
    а) переменную b для массива, состоящего из 8 символов.
         
    б) переменную mas для массива, состоящего из 100 вещественных чисел.
         
    в) переменную day для массива, состоящего из 30 целых чисел, причем номер первого элемента массива должен быть равен 5.
         
    Сколько байтов памяти занимают массивы:
    a: array[1..5] of integer; Ответ _______________
    b: array[3..10] of char; Ответ _______________
    c: array[1..100] of real; Ответ _______________

  2. Пусть a: array[1..10] of integer. Напишите операторы, соответствующие следующим действиям:
    Третий элемент массива сделать равным 5.Ответ:
         
    Вывести на экран 7-й элемент массива. Ответ:
         
    Вывести значение первого элемента массива. Ответ:
         

  3. Требуется найти и вывести на экран макс. эл-т в массиве из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.
    Ответ:      (указать букву ответа)

    a) var a:array [1..10] of integer;

    m,i: integer;

    Begin

    for i:=1 to 10 do

    a[i]:=random(100);

    for i:=2 to 10 do

    if m

    Writeln(m);

    end.

    b) var a:array [1..10] of integer;

    m,i: integer;

    Begin

    for i:=1 to 10 do

    a[i]:=random(100);

    m:=a[1];

    for i:=2 to 10 do

    if m

    Writeln(m);

    end.

    c) var a:array [1..10] of integer;

    m,i: integer;

    Begin

    for i:=1 to 10 do

    a[i]:=random(100);

    m:=a[1];

    for i:=2 to 10 do

    if m

    Writeln(a[i]);

    end.

    d) var a:array [1..10] of integer;

    m,i: integer;

    Begin

    for i:=1 to 10 do

    a[i]:=random(100);

    m:=a[1];

    for i:=2 to 10 do begin

    if m

    Writeln(m); end;

    end.

  4. Требуется найти и вывести на экран минимальный элемент и его номер в массиве из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.
    Ответ:       (указать букву ответа)


a) var

a:array [1..10] of integer;

m,i,k: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

m:=a[1]; k:=1;

for i:=2 to 10 do

if m

begin

m:=a[i];

k:=i;

end;

writeln(m,' , ',k);

end.

b) var

a:array [1..10] of integer;

m,i,k: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

m:=a[1];

begin

if ma[i] then

begin

m:=a[i];

k:=i;

end;

writeln(m,' , ',k);

end.

c) var

a:array [1..10] of integer;

m,i,k: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

k:=1;

for i:=2 to 10 do

if a[i]

k:=i;

writeln(a[k],' , ',k);

end.

d) var

a:array [1..10] of integer;

m,i: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

m:=a[1];

for i:=2 to 10 do

if m

m:=a[i];

writeln(m,' , ',a[i]);

end.


  1. Сформулируйте условие задачи для программы:

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

s,i,n: integer;

Begin

readln(n);

for i:=1 to n do a[i]:=sqr(i);

s:=0;

for i:=1 to n do s:=s+a[i];

writeln(s);

end.
Условие задачи:     


9. Требуется найти и вывести на экран сумму четных элементов массива из 10 чисел. Массив заполняется случайными числами. Определите правильный вариант программы.
Ответ:       (указать букву ответа)

a) var a:array [1..10] of integer;

s,i: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

s:=0;

for i:=1 to 10 do

s:=s+a[i];

writeln(s);

end.

b) var a:array [1..10] of integer;

s,i: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

s:=0;

for i:=1 to 10 do

if a[i] div 2 = 0 then

s:=s+a[i];

writeln(s);

end.

c) var a:array [1..10] of integer;

s,i: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

s:=0;

for i:=1 to 10 do

begin

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln(s);

end;

end.

d) var a:array [1..10] of integer;

s,i: integer;

Begin

for i:=1 to 10 do

a[i]:=random(100);

s:=0;

for i:=1 to 10 do

if a[i] mod 2 = 0 then

s:=s+a[i];

writeln(s);

end.


10. Требуется элементы массива а переписать в массив в , удвоив все элементы, меньше первого элемента, остальные переписать без изменения.. Массив а заполняется случайными числами. Определите правильный вариант программы.
Ответ:       (указать букву ответа)

a) const n=10;

var a,b:array [1..10] of integer;

i: integer;

Begin

for i:=1 to n do

a[i]:=random(100);

for i:=1 to n do

if a[i]

end.

b) const n=10;

var a,b:array [1..10] of integer;

i: integer;

Begin

for i:=1 to n do

a[i]:=random(100);

for i:=1 to n do

if a[i]

b[i]:=a[i];

end.

c) const n=10;

var a,b:array [1..10] of integer;

i: integer;

Begin

for i:=1 to n do

a[i]:=random(100);

for i:=1 to n do

if a[i]

b[i]:=a[i]*2

else b[i]:=a[i];

end.

d) const n=10;

var a,b:array [1..10] of integer;

i: integer;

Begin

for i:=1 to n do

a[i]:=random(100);

if a[i]

for i:=1 to n do

b[i]:=a[i]*2

b[i]:=a[i];

end.




  1. П о блок схеме на рис. сформулируйте условие задачи, решаемой представленным алгоритмом. Восстановите стрелки.





















Условие задачи     

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

Сколько элементов массива b будут иметь положительные значения?

12а )…

for i:=1 to 100 do

a[i]:=I -10;

for i:= 1 to 100 do

b[i]:=a[i]*i;

…..


Ответ:     

12б) …

for i:=1 to 200 do

a[i]:=I+100;

for i:= 1 to 200 do

b[i]:=2*a[i]-500;

…..


Ответ:     

12в) …

for i:=1 to 300 do

a[i]:=100-i;

for i:= 1 to 300 do

b[i]:=2*a[i]+1;

…..


Ответ:     


Практическое задание. По блок-схеме задания 11 написать программу. Файл программы приложить к ответу.

4


-80%
Курсы повышения квалификации

Информационная культура и образование

Продолжительность 72 часа
Документ: Удостоверение о повышении квалификации
4000 руб.
800 руб.
Подробнее

Получите комплекты видеоуроков + онлайн версии

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

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

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

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

Видеоуроки по информатике 6 класс (к...

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

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

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

Скачать разработку
Сохранить у себя:
Бланк для внесения ответов по теме Массивы (Паскаль) (52.5 KB)

Похожие файлы

Комментарии 0

Чтобы добавить комментарий зарегистрируйтесь или на сайт

Вы смотрели