Упражнения

1. Для следующих формул записать соответствующие арифметические выражения на Паскале:

2. Записать математические формулы, соответствующие следующим выражениям на Паскале:

3. Почему в Паскале аргумент функции всегда записывают в скобках (например, пишут ln(5), а не ln5)?

4. Для следующих формул записать соответствующие арифметические выражения на Паскале:

5. Вычислить значения выражений:

6. Определить тип выражения:

7. Если у — вещественная переменная, а п — целая, то какие из следующих операторов присваивания правильные, а какие нет:

8. Поменять местами значения целых переменных х и у, не используя дополнительные переменные. Найдя такой алгоритм, определить, в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел?

9. Присвоить целой переменной h значение цифры, стоящей в разряде сотен в записи положительного целого числа k (например, если k = 28796, то h = 7).

10. Целой переменной S присвоить значение суммы цифр трехзначного целого числа k.

11. Какую задачу решает следующая программа?

Можно ли того же самого результата достичь более простым способом?

Примеры решения задач в среде Турбо Паскаль.

Задача 1 .Найти сумму цифр двухзначного числа.

Программа

1. program Sumoftwo;

2. var Number,Num1,Num2,Sum: integer;

3. begin

4. write('Введите двухзначное число: ');

5. read(Number); { Возьмем число 25 }

6. Num1 := Number div 10; { 25 div 10 = 2 }

7. Num2 := Number mod 10; { 25 mod 10 = 5 }

8. Sum := Num1 + Num2; { 2 + 5 = 7 }

9. write('Сумма двух чисел -- ',Sum);

10. end.

Задача 2 .Найти сумму цифр трехзначного числа.

Программа

1. program Sumoftree;

2. var Number,Sum: integer;

3. begin

4. write('Введите трехзначное число: ');

5. read(Number); { Возьмем число 255 }

6. Sum := Number div 100 + Number mod 10 + Number div 10 mod 10; { 255 div 100 + 255 mod 10 + 255 div 10 mod 10 = 12 }

7. write('Сумма трёх чисел -- ',Sum);

8. end.