Пользователь вводит расстояние. Подсчитать стоимость одного билета

Стоимость X, Y, Z можно определить в разделе констант или в программе присвоить им конкретные значения.

Задание 5. В массиве хранится информация о количестве осадков, выпавших за каждый день октября. Определить количество дней, когда выпало самое большое число осадков.

ВАРИАНТ 17

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Задание 2. Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы. Нарисовать блок-схему.

Var a, b, K, L, F, x: integer;

Begin

a: = -6;

b: = 6;

L: = 2 * (8 + a) * (a - 2);

For x: = a to b do

begin

F: = 2 * (8 + x) * (x - 2);

If F < L then begin

L: = F;

K: = x;

end;

writelen (K, L);

end.

Задание 3. Представим массив в виде квадратной матрицы, в которой для элемента a[i, j] i - номер строки, j – номер столбца. Значения двумерного массива задаются с помощью вложенного оператора цикла.

s: = 0:

for i:=1 to 9 do

for j:=1 to 9 do

begin

a[i, j]: = i + j -3;

if a[i, j] < 0 then s: = s + 1;

end;

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Чему будет равно значение s?

Задание 4. Дано действительное число a. Написать программу вычисления y(a), если

Задание 5. Известен рост учеников школы. У скольких из них рост больше 170 см? Можно ли из этих учеников сформировать баскетбольную команду (в команде должно быть не менее пяти человек ростом больше 170 см)? Количество учеников и их рост вводится подьзователем в программе.

ВАРИАНТ 18

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var x, a, b: integer;

Begin

a: = 0; b: = 1; x: = 1751;

while x > 0 do

begin

a: = a + 2;

b: = b + 2 * (x mod 10);

x: = x div 10;

end;

b: = b – 15;

writeln (a, b);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 1 до 7. Ниже представлен фрагмент этой программы, в котором значения элементов массива

сначала задаются, а затем меняются.

for i:=0 to 6 do

A[i + 1]:= i * i;

for i:=2 to 7 do

A[i]:=A[i – 1] / A[i];

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) значение каждого элемента уменьшится на 1 и сдвинуться на 1 влево

2) все элементы окажутся равными своему индексу

3) все элементы окажутся равны -0

4) все элементы окажутся равны -1

Задание 4. Пользователь вводит действительные числа a, b, c,.d. Если а> b > c > d, то числа оставить без изменения, в противном случае каждое число заменить наибольшим из них.

Задание 5. В массиве записана информация о стоимости 20 видов товара. Определить, сколько видов товара имеют стоимость меньшую, чем средняя стоимость всех видов товара.

ВАРИАНТ 19

1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

2. Дан фрагмент программы. Определить, что будет выдано на печать в результате работы программы. Нарисовать блок-схему.

var x, L, M: integer;

begin

readln(x);

L:= 0; M:= 0; x: = 777;

while x>0 do

begin

L:= L+1;

if M < (x mod 10) then

begin

M:= x mod 10;

end;

x:= x div 10;

end;

writeln(L); write(M);

end.

Задание 3. Значения двух массивов a[1 … 10] и b[1 … 10] задаются с помощью следующего фрагмента программы:

k: = 2;

for i:=1 to 10 do

A[i]:= i + 1;

for i:=1 to 5 do

begin

A[i]:= i + 1;

B[k]:=A[11 - k];

k: = k + 2;

end;

· Как изменятся элементы массива A после выполнения фрагмента программы?

· Что выполняет данный алгоритм:

1. Заполняет четные элементы массива В значениями нечётных элементов массива А

2. Меняет местами первые 5 элементов массива А с последними 5 элементами массива В

3. Заполняет элементы массива В значениями элементов массива А в обратном порядке

4. Меняет местами первый элемент массива А с последними элементом массива В

Задание 4. Пользователь вводит действительные числа a, b, c,.d. Если а ≤ b ≤ c ≤ d, то каждое число заменить наибольшим из них.

Задание 5 Из элементов массива А, заполненного целыми числами, сформировать массив В того же размера по правилу: четные элементы массива А удвоить, нечетные оставить без изменения..

ВАРИАНТ 20

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var a, b, K, L, F, x: integer;

Begin

a: = -6;

b: = 6;

L: = 2 * (8 + a) * (a - 2);

For x: = a to b do

begin

F: = 2 * (8 + x) * (x - 2);

If F < L then begin

L: = F;

K: = x;

end;

writelen (K, L);

end.

for i:=1 to 9 do

for j:=1 to 9 do

begin

a[i, j]: = i + j *2;

if a[i, j] mod 2 = 0 then s: = s + 1;

end;

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Чему будет равно значение s?

Задание 4. Дана последовательность из N целых чисел: 1 2 3 4 5 6 7 8 9 10 11...Составить программу, вычисляющую сумму элементов этой последовательности, начиная с номера N1, заканчивая номером N2.

Задание 5. В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам.

ВАРИАНТ 21

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу

Var x, a, b: integer;

Begin

a: = 0; b: = 0; x: = 65432;

while x > 0 do

begin

a: = a + 1;

if x mod 10 <= 4 then b: = b + (x mod 10);

x: = x div 10;

end;

b: = 27 - b;

writeln (a, b);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 0 до 12. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

for i:=0 to 12 do

A[i]:=2 * i - 1;

for i:=1 to 12 do

A[i]:=A[i – 1];

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) значение каждого элемента уменьшится на 1

2) все элементы, кроме последнего, будут сдвинуты на один элемент вправо

3) все элементы окажутся равны -1

4) всеэлементы, кроме первого, будут сдвинуты на один элемент влево.

Задание 4. Пользователь вводит четырехзначное число. Составить программу, которая выводит на экран число, полученное при перестановке первой и последней и второй и третьей цифр заданного числа. Извлечь квадратный корень полученного числа.

Задание 5. Из элементов массива А сформировать массив В того же размера по правилу: неотрицательные элементы массива А уменьшить в 3 раза, остальные — возвести в квадрат.

ВАРИАНТ 22

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var x, a, b: integer;

Begin

a: = 0; b: = 0; x: = 65432;

while x > 0 do

begin

a: = a + 1;

if x mod 10 <= 4 then b: = b + (x mod 10);

x: = x div 10;

end;

b: = 27 - b;

writeln (a, b);

end.

Задание 3. Значения двух массивов a[1 … 10] и b[1 … 10] задаются с помощью следующего фрагмента программы:

k: = 1;

for i:=1 to 10 do

A[i]:= i + 1;

for i:=1 to 5 do

begin

A[i]:= i + 1;

B[i]:=A[11 - k];

k: = k + 2;

end;

· Как изменятся элементы массива A после выполнения фрагмента программы?

· Чему будут равны элементы этого массива B после выполнения фрагмента программы?

Задание 4. Пусть некоторая страховая компания предлагает услугу по страхованию детей не старше 16 лет по следующим правилам. Когда страхуется девочка в возрасте до 5 лет включительно, страховой взнос равен 2.2% от суммы страховки. При возрасте девочки от 5 лет до 10 лет (включая возраст 10 лет) страховой взнос составляет 1.5%. Наконец, когда девочка старше 10 лет, то страховой взнос равен 1.75% для страховой суммы, не превышающей 200тыс. руб., и составляет 2%, когда сумма страховки больше 200тыс.

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

Задание 5. Фирма имеет два магазина. Известен доход каждого магазина за каждый день февраля. Определить, в каком из магазинов общий доход за месяц меньше.

ВАРИАНТ 23

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var a, b, K, L, F, x: integer;

Begin

a: = -6;

b: = 6;

K: = 0;

L: = (3 - a) * (a + 7) – 1;

For x: = a to b do

begin

F: = (3 - x) * (x + 7) – 1;

If F > L then begin

L: = F;

K: = K + 1;

end;

writelen (K);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

for i:=1 to 10 do

A[i]:= i - 5;

for i:=1 to 5 do

begin

A[10 - i]:= A[i];

A[5 + i]:= A[i];

end;

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Сколько элементов массива примут отрицательные значения?

Задание 4. Написать программу, в которой с клавиатуры считываются координаты точки на плоскости (х, y – действительные числа) и проверяется принадлежность этой точки к закрашенной области.

Задание 5. В программе задан целочисленный массив. Разработать алгоритм, поиска максимального из отрицательных элементов массива. Количество элементов массива и его значения вводится в программе.

ВАРИАНТ 24

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var x, a, b, P, K: integer;

Begin

P: = 8; K: = 0;

a: = 0; b: = 0; x: = 7005; y = 773;

while x > 0 do

begin

a: = (x mod 10) + (y mod 10) + K;

if a >= P then

begin

a: = a mod P;

K: = a div P;

end

else K: = 0;

x: = x div 10;

y: = y div 10;

b: = b + a + K;

end;

writeln (a, b);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 0 до 12. Ниже представлен фрагмент этой программы, в котором значения элементов массива

сначала задаются, а затем меняются.

for i:=0 to 12 do

A[i]:=i - 2;

for i:=12 downto 2 do

A[i-2]:=A[i];

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) значение каждого элемента уменьшится на 2

2) четные элементы окажутся равны 1, нечетные – 1

3) все элементы, кроме двух последних, будут сдвинуты на два элемент вправо

4) четные элементы окажутся равны 10, нечетные – 9

Задание 4. Банк меняет на рубли 3 вида валюты: американские доллары, немецкие марки и евро. Курс валюты вводится в программе пользователем. Кроме того у пользователя запрашивается вид валюты и сумма обмена.

Если клиент меняет валютную сумму (не обязательно долларовую), которая превосходит по эквиваленту величину в 500 долларов, деньги меняются по курсу, который на 2% выше стандартного.

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

Задание 5. Дан целочисленный массив. Элементы могут принимать значения от 1500 до 2000 – количество знаков в статье. На сайт принимаются статьи не более 1800 знаков. Написать программу, которая находит и выводит на экран размер самой большой статьи, которую можно разместить на сайте. Количество статей и их размер задаются в программе.

ВАРИАНТ 25

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу

Var x, a, b, k: integer;

Begin

a: = 0; b: = 0; k: =0;

x: = 9530;

while x > 0 do

begin

a: = a + 1;

if (x mod 10) > 5 then

k: = k + (x mod 10) div 2

else

b: = b + (x mod 10);

x: = x div 10;

end;

writeln (a, b, k);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 1 до 15. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

for i:=1 to 15 do

A[i]:= i * 2;

for i:=1 to 15 do

A[i]:= A[i – 1];

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) значение каждого элемента уменьшится на 1

2) все элементы, кроме последнего, будут сдвинуты на один элемент вправо

3) все элементы окажутся равны -1

4) все элементы, кроме первого, будут сдвинуты на один элемент влево.

Задание 4. Вводится целое число N. Определить: количество чётных и нечётных цифр в числе.

Задание 5. Дан целочисленный массив, элементы которого могут принимать значения от 30 до 50 – количество яблок в одном ящике. Разработать алгоритм, который среди ящиков с количеством яблок больше 40 находит ящик с самыми крупными яблоками. Вес всех ящиков с яблоками одинаков. Количество ящиков и количество яблок в одном ящике задаются в программе.

ВАРИАНТ 26

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу

Var k, r, x, y: integer;

Begin

k: = 0;

r =0;

x = 2953;

while x > 0 do

begin

k: = k + 1;

If r < x mod 10 then r = x mod 10;

If x < 10 then y = x;

x = x div 10;

end;

r: = r – y;

writelen (r, k);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива

сначала задаются, а затем меняются.

for i:=0 to 10 do

A[i]:=i-1;

for i:=1 to 10 do

A[i-1]:=A[i];

A[10]:=10;

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) все элементы, кроме последнего, окажутся равны между собой

2) все элементы окажутся равны своим индексам

3) все элементы, кроме последнего, будут сдвинуты на один элемент вправо

4) все элементы, кроме последнего, уменьшатся на единицу.

Y = X

Задание 5. Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000. Разработать алгоритм, который позволяет найти сумму двухзначных элементов массива, сумма цифр которых меньше 10. Количество элементов массива и их задаются в программе.

ВАРИАНТ 27

Задание 1. Задана блок-схема. Определить значения переменных. По блок-схеме написать программу

Var x, a, b: integer;

Begin

a: = 0; b: = 1; x: = 31324;

while x > 0 do

begin

a: = a + 2;

b: = b + 10 - (x mod 10);

x: = x div 10;

end;

writeln (a, b);

end.

Задание 3. В программе описан одномерный целочисленный массив A с индексами от 0 до 12. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.

for i:=0 to 12 do

A[i]:=2 * i - 1;

for i:=1 to 12 do

A[i]:=A[i – 1];

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· Как изменятся элементы этого массива после выполнения фрагмента программы?

1) значение каждого элемента уменьшится на 1

2) все элементы, кроме последнего, будут сдвинуты на один элемент вправо

3) все элементы окажутся равны -1

4) всеэлементы, кроме первого, будут сдвинуты на один элемент влево.

Задание 5. В программе задается целочисленный массив. Элементы массива могут принимать значения от –1000 до 1000.Составить программу, которая находит и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5 и значения которых положительные. Размер массива и значения элементов вводятся в программе.

ВАРИАНТ 28

Задание 1. Задана блок-схема. Определить значение переменной. По блок-схеме написать программу.

Var a, b, K, L, F, x: integer;

Begin

a: = -6;

b: = 6;

K: = 0;

L: = (3 - a) * (a + 7) – 1;

For x: = a to b do

begin

F: = (3 - x) * (x + 7) – 1;

If F > L then begin

L: = F;

K: = K + 1;

end;

writelen (K);

end.

n: =10;

for i:=1 to n do

for j:=1 to n do

a[i, j]: = i + j;

k: =2;

for i:=1 to n do

begin

b: = a[i, i];

a[i, i]: = a[i, k];

a[k, i]: = b;

end;

· Чему будут равны элементы этого массива после выполнения фрагмента программы?

· После исполнения данного алгоритма в массиве изменят значения:

5. только элементы диагонали

6. элементы диагонали и k - й строки таблицы

7. все элементы массива

8. элементы диагонали и k - ого столбца таблицы

Задание 4. Пусть некоторая страховая компания предлагает услугу по страхованию детей не старше 16 лет по следующим правилам. Если страхуется мальчик не старше 3 лет, то страховой взнос равен 3% от суммы страховки. Если мальчик старше 3 лет, но не старше 12, то страховой взнос составляет 2% при сумме страховки не больше 300 тыс. руб. и равен 2.5%, когда сумма страховки превосходит 300тыс. руб. Если мальчику больше 12 лет, то страховой взнос исчисляется в 2.25% от страховой суммы.

Задание 5. В программе задается целочисленный массив. Элементы массива могут принимать значения от –500 до 500.Составить программу, которая определяет, и выводит среднее арифметическое всех элементов массива, оканчивающихся цифрой 5 и значения которых положительные. Размер массива и значения элементов вводятся в программе.

	Главная \| Случайная страница \| Контакты \| Мы поможем в написании вашей работы!