Самостоятельная работа "Линейные и условные алгоритмы"

Фамилия, Имя, Класс_____________________________________________________

Дата_______________________

Вариант 1

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

var s,k: integer;

begin

    s := 0;

    for k := 8 to 12 do

        s := s + 12;

    writeln(s);

end.

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

1. Составьте программу, которая по трем введенным вами числам определит, могут ли эти числа быть длинами сторон треугольника.

Фамилия, Имя, Класс_______________________________________________________

Дата_______________________

Вариант 2

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

var s,k: integer;

begin

    s := 0;

    for k := 4 to 8 do

        s := s + 7;

    writeln(s);

end.

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

2. Составить программу , которая определяет является ли введенное число нечетным и выводит на экран сообщение да или нет .

Фамилия, Имя, Класс______________________________________________________

Дата_______________________

Вариант 3

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

var s,k: integer;

begin

    s := 0;

    for k := 4 to 7 do

        s := s + 8;

    writeln(s);

end.

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

2. Составить программу, которая запрашивает целое число не равное нулю, сообщает положительное оно или отрицательное и при этом положительное число уменьшает в 2 раза, а отрицательное возводит в квадрат.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 4

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

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 9;

    writeln(s);

end.

1. Напишите программу, которая по значениям двух катетов вычисляет периметр и площадь прямоугольного треугольника. Длины катетов пользователь вводит с клавиатуры.

1. Ввести 2 числа. Если их произведение отрицательно, умножить его на 8 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 5

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

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 6;

    writeln(s);

end.

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

2. Дано целое число. Если оно является положительным то прибавить к нему 20, в противном случае вычесть из него 5. Вывести полученное число

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 6

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

var s,k: integer;

begin

    s := 0;

    for k := 3 to 8 do

        s := s + 7;

    writeln(s);

end.

1. Составьте программу, определяющую сторону и периметр квадрата по его площади.

1. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 7

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

var s,k: integer;

begin

    s := 0;

    for k := 6 to 10 do

        s := s + 10;

    writeln(s);

end.

1. Составьте программу, определяющую сторону и периметр квадрата по его площади.

2. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 8

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

var s,k: integer;

begin

    s := 0;

    for k := 5 to 9 do

        s := s + 8;

    writeln(s);

end.

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

1. Дано целое число. Если оно является положительным то прибавить к нему 20, в противном случае вычесть из него 5. Вывести полученное число

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 9

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

var s,k: integer;

begin

    s := 0;

    for k := 7 to 11 do

        s := s + 11;

    writeln(s);

end.

1. Напишите программу, которая по значениям двух катетов вычисляет периметр и площадь прямоугольного треугольника. Длины катетов пользователь вводит с клавиатуры.

1. Ввести 2 числа. Если их произведение отрицательно, умножить его на 8 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 10

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

var s,k: integer;

begin

    s := 0;

    for k := 8 to 12 do

        s := s + 12;

    writeln(s);

end.

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

2. Составить программу, которая запрашивает целое число не равное нулю, сообщает положительное оно или отрицательное и при этом положительное число уменьшает в 2 раза, отрицательное возводит в квадрат.

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 11

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

var s,k: integer;

begin

    s := 0;

    for k := 9 to 13 do

        s := s + 9;

    writeln(s);

end.

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

2. Составить программу , которая определяет является ли введенное число нечетным и выводит на экран сообщение да или нет .

Фамилия, Имя, Класс_________________________________________________________

Дата_______________________

Вариант 12

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

var s,k: integer;

begin

    s := 0;

    for k := 6 to 9 do

        s := s + 12;

    writeln(s);

end.

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

2. Составить программу, которая по трем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника.