Самостоятельная работа "Программирование циклических алгоритмов на языке Pascal"

Самостоятельная работа по программированию

циклических алгоритмов на языке Pascal

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

Критерии оценивания:

Каждое задание оценивается в 1 балл.

4 балла – отметка 5

3 балла – отметка 4

2 балла – отметка 3

0-1 балл – отметка 2

1 вариант

1 задание. Исправьте ошибки в программе.

var a,b,c:intger;

begen

    clscr;

    write(“a=”)

    readln(a);

    for b:=10 downto 99 do

    begin

        c:=b mod 10;

        if (c>5) then writln(b);

    end;

    readln.

end.

2 задание. Дана цена за 1 кг яблок. Вывести стоимость 1, 2, 3 …10 кг яблок.

3 задание. Напишите программу, которая выводит на экран все 4-х значные числа, кратные числу А.

4 задание. Найти сумму двухзначных чисел из отрезка [x,y]

2 вариант

1 задание. Исправьте ошибки в программе

var a,b,c:integer

begin

    clrcsr;

    write('a=');

    readln(“a”);

    write('b=');

    readeln(b);

    c:=a mob b;

    if c>3 then write(“a+b) eles write(a-b);

    write(c+a+b);

    readln;

end

2 задание. Напишите, программу, которая выводит на экран все четные 2-х значные числа.

3 задание. Напишите программу, которая выводит на экран все 3-х значные числа, которые не делятся на 15.

4 задание. Найти количество двухзначных чисел, кратных числу Х.

3 вариант

1 задание. Исправьте ошибки в программе

var a,b,c:integr;

begin;

    clrscr;

    write(a=);

    readln(a);

    write('b=');

    for i:=100 to 999 du

    begin

        c:=i mod 10;

        c=c+a+b;

        if c>i then writln(i) els writeln(c);

    end;

    readln.

end.

2 задание. Напишите программу, которая выводит на экран все нечетные числа из отрезка [a;b].

3 задание. Напишите программу, которая выводит на экран все 3-х числа, которые делятся на свою последнюю цифру.

4 задание. Найти сумму четных и количество нечетных чисел  из отрезка [a;b]

4 вариант

1 задание. Исправьте ошибки в программе

var a,b,c;integer;

begin;

    clrscr

    write(a=);

    readln(a);

    write(“b=”);

    for i:=100 too 999 do

    begin

        c:=i mad 10;

        if c><i then writlne(i) elce writeln(c);

    end;

    readln.

end.

2 задание. Напишите программу, которая выводит на экран все 2-х значные числа, которые не делятся на число В.

3 задание. Напишите программу, которая выводит на экран все 2-х значные числа, кратные сумме своих цифр.

4 задание. Найти произведение и количество 2-х значных чисел, кратных числу Х.