Задача 1.
Вычислить значение функции заданной следующим образом:
Цель решения этой задачи: отработка навыков составления блок-схем, написания программ, показать пример использования оператора выбора, осмысленное использование типов данных.
Исходные данные: х
Результат: у
Составляем блок-схему:
Составляем программу:
Program funkciy;
Var x, y: integer;
Begin
Writeln (‘введите значение х’);
Readln(х);
If x>0 then y:=x
else y:=x*x;
writeln(‘значение функции ’, y);
readln;
end.
Заполняем таблицу
Х 0 4 -5 167 -221 0,2 -0,1
У
Почему мы не можем вычислить два последних значения функции. Исправьте программу, для того, чтобы это можно было сделать.
Задача 2.
Составить программу определяющую является ли заданное число четным или нечетным.
Цель решения этой задачи: отработка навыков составления блок-схем, написания программ, знакомство с функцией вычисления остатка от деления (a mod b). Сложность этой задачи в том, что результатом является не вычислительный результат, а сообщение “четное” или “нечетное”.
Составляем блок-схему:
Составляем программу:
Program chislo;
Var a: integer;
Begin
Writeln (‘введите число а’);
Readln(а);
If а mod 2 = 0 then Writeln (‘число четное’)
Else Writeln (‘число нечетное);
readln;
end.
Проведите вычислительный эксперимент, вы сами задаете числа, результат записываете в тетрадь.
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
function Summa(a:array of integer):=a.Sum;
begin
var a:=ArrRandom(10,-99,99); a.Println; Writeln;
var b:=ArrRandom(20,-99,99); b.Println; Writeln;
var c:=ArrRandom(30,-99,99); c.Println; Writeln;
Writeln('S=',Summa(a)+Summa(b)+Summa(c))
end.
Пример
53 34 13 64 79 28 -98 -43 -19 23
96 -18 48 61 -70 -16 92 0 27 65 -68 -17 -77 90 -13 69 46 85 71 -44
-21 65 -56 31 56 25 37 50 -35 52 91 -94 12 -98 -51 -73 6 -31 -7 -32 35 -88 -53 63 -93 -29 11 22 -23 -89
S=244
готово. паскаль
Объяснение:
Задание 1
с = 0
Задание 2
var
n, m, c: integer;
begin
Write('Введите числа m и n >> ');
ReadLn(m, n);
if (m mod 5 <> 0) or (m < n) then
c := (m mod 10) + (n mod 10);
WriteLn('Сумма последних цифр этих чисел равна ', c);
end.
Задание 3
var
a, b, c: integer;
begin
Write('Введите числа a, b и c >> ');
ReadLn(a, b, c);
if (b < 50) and (b > 20) and (c < a) then
begin
WriteLn('Сумма этих чисел равна ', a + b + c);
WriteLn('Произведение этих чисел равно ', a * b * c);
end;
end.