Задачи по теме: Запись вс алгоритмов на языке Паскаль
Задача 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 до называется целое число, которое делится без остатка лишь на себя и на единицу.
Паскаль.
Немного не понятно: от 1 до 10 это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку
program jjj;
var a: array [1..10] of integer; i,summa,proizv:integer;
begin
for i:=1 to 10 do begin
Writeln('напишите элемент массива номер ',i); read(a[i]);
end;
For i:=1 to 10 do begin
if a[i] mod 2=0 then summa:=summa+a[i] else
proizv:=proizv*a[i];
end;
Writeln(summa,' ',proizv); readln;
end.
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение: