Задачи по теме: Запись вс алгоритмов на языке Паскаль
Задача 1.
Треугольник задан координатами своих вершин. Необходимо найти его площадь по формуле Герона, используя функцию нахождения расстояния между двумя точками.
–100 < Xi, Yi < 100
Задача 2.
С клавиатуры вводятся два целых положительных числа N и M. Используя функцию расчёта факториала числа, найти значение N! – M!. Факториалом числа T! называется произведение всех целых чисел от 1 до T включительно.
1 < N, M < 10
Задача 3.
С клавиатуры вводятся четыре целых положительных числа: N, M, t, k. Используя процедуру возведения числа в степень, найти значение выражения N^t – M^k.
1 < N, M < 10
0 < t, k < 5
Задача 4.
Ипользуя процедуру проверки того, является ли число вывести на экран все числа от 3 до называется целое число, которое делится без остатка лишь на себя и на единицу.
ответ: В реальной жизни выполнение всяких действий связано с расходом различных ресурсов: материалов, энергии и времени. Даже производя какие-либо записи, мы расходуем ресурсы (например, бумагу, чернила и время). Еще недавно некоторые задачи нельзя было решить из-за слишком большого числа необходимых для этого операций и слишком малой скорости их выполнения. Появление электронных вычислительных машин сделало такие задачи разрешимыми. Алгоритму в интуитивном смысле в книге противопоставляется алгоритм в математическом, или формальном смысле. В последнем случае считается, что понятие определено методами, принятыми в математике, и основывается либо на других понятиях, имеющих математическое определение, либо на первоначальных, описанных настолько четко, что их свойства могут быть приняты за аксиомы новой теории. Теорию алгоритмов, которой посвящена эта книга, мы называем содержательной в том смысле, что именно алгоритмы как таковые во всем их разнообразии являются ее предметом.
Объяснение:
{Free Pascal Compiler version 3.0.4+dfsg-23 [2019/11/25] for x86_64}
{Copyright (c) 1993-2017 by Florian Klaempfl and others}
{Target OS: Linux for x86-64}
program test;
Uses Math;
const N = 15;
var
A : array[1..N] of integer;
i, mx, k : integer;
begin
Randomize;
{Генерация и печать массива}
for i := 1 to N do begin
A[i] := Random(50);
write(A[i], ' ');
if A[i] mod 2 = 1 then mx := A[i]
end;
writeln;
for i := 1 to N do
if A[i] mod 2 = 1 then
if A[i] < mx then begin
mx := A[i];
k := i
end;
writeln('Число - ', mx, ', позиция - ', k);
end.
Результат выполнения программы: