У вас вопросы?
У нас ответы:) SamZan.net

по теме ldquo;Организация ветвления и циклов на языке Паскальrdquo; Задача 1- Ввести число

Работа добавлена на сайт samzan.net: 2016-03-13

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 6.4.2025

1. Задачи по теме “Организация ветвления и циклов на языке Паскаль”

Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном случае прибавить к нему 100. (Написать программу, начертить блок-схему).

Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран. (Написать программу, начертить блок-схему).

Задача № 3: Ввести 2 числа. Вычесть из большего меньшее.

Задача № 4: Ввести число. Если оно четное, разделить его на 4, если нечетное - умножить на 5.

Задача № 5: Ввести рост человека. Вывести на экран “ВЫСОКИЙ”, если его рост превышает 180 см, и “НЕ ОЧЕНЬ ВЫСОКИЙ” в противном случае.

Задача № 6: Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль Вам рановато”.

Задача № 7: Составить программу вычисления значений функции для любого х по желанию пользователя:

а)    б)

Задача № 8: Вовочка, любитель стрелять из рогатки, 7 раз попадал в милицию. Ввести с клавиатуры целое положительное число – № попадания. Определить результат: 4,6,7 – милиционеры вставляли новое стекло, 2,5 – новое стекло вставлял папа Вовочки, 1, 3 – стекло не разбилось.

Задача № 9: Составить программу, которая запрашивает ввод трех значений температуры и проверяет, есть ли среди них температура таяния льда?

Задача № 10: Вводятся три значения ускорения свободного падения. Программа должна проверить, есть ли среди них ускорение свободного падения.

Задача № 11: Составить программу, которая запрашивает ввод формул трех кислот и проверяет, есть ли среди них формула серной кислоты?

Задача № 12: Составить программу, которая запрашивает ввод температуры тела человека и определяет, здоров он или болен (здоров при 36 < t < 37)?

Задача № 13: Определить, сколько простых чисел среди n введенных целых чисел.

Задача № 14: Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, …

Задача № 15: Дано число. Найти сумму и произведение его цифр.

2. Какое будет значение будет принимать переменная х?

а:= 5; b:= 4; c: = 3;
If a > b then x := a + b
Else begin
а := b + c; x := a – 3 * b;
End.

а := 9; b := 8; c := 2;
If (a > b) and (b > c) then x := 2 * a + b + c
Else begin
а := b + c; x := a – 3 * b;
End.

а := 1; b := 4; c := 8;
If (a <= b) or (a > c) then x := 5 * a – b  
Else
x := 4 * a * b;
End.

a := 7; b := 3; c := 6;
If (a < b) and (a > c) then x := 4 * a – b * a
Else x := a – b;
End.

a := 53; b := 14;
If a <= b then x := a + b
Else x := 2 * a – 4 * b;
End.

a := 3; b := 4;
If a > b then x := a * b else x := a;
End.

3. Укажите значение переменной m после выполнения приведенной ниже программы

var

k, m: word;

begin

к := 0;

m := 0;

while k < 3 do inc(k);

inc(m);

end.

Var

k, m: word;

begin

m := 1;

for k := 3 downto 1 do;

inc(m);{ этот оператор не входит в цикл }

end.

var

k, m : word;

begin m := 1;

for k := 1 to 2 do

begin

inc(m);

inc(k,2);

 end;

 end.




1. НЕ БЫВАЕТМногие косметические салоны вот уже на протяжении нескольких лет рекламируют временные тат
2. Реферат- Методы оценки недвижимости
3. модернизм постмодернизм
4. Контрольная работа по психологии Выполнил студент гр.
5. Задание 1 include [iostrem] include [Windows.
6. Дипломная работа- АТЭС и Казахстан - проблемы и перспективы развития
7. Історія створення кінотехніки
8. Як наука хімія почала формуватися лише в XVII столітті проте галузь знань яка зараз належить хімії існує вже
9. УТВЕРЖДАЮ Директор МБУ Молодёжный центр г
10. КОНТРОЛЬНАЯ РАБОТА По курсу Социология труда Выполнил- ст