Подпрограми на Паскал

[Рітка-кулеметчиця]

1.Рассчитать значение y, выполняя однотипные действия с использованием соответствующей функции:
y=((2+sin3)/(3+sin2))+((1+sin5)/(sin1+5))+((sin7+4)/(sin3+7))
2.Даны две последовательности целых чисел: а1, а2, ...,а8 и b1, b2, ..., b8. Найти количество четных чисел в первой из них и количество нечетных во второй, определив функцию, позволяющую распознавать четные числа.
3.Даны n натуральных чисел. Найти их наибольший общий делитель, учитывая, что НОД(а, b, с)=НОД(НОД(а, b), с).
При решении определите функцию для расчета наибольшего общего делителя двух натуральных чисел, используя алгоритм Евклида.
4.Даны основания и высоты двух равнобедренных трапеций. Найти сумму их периметров и сумму их площадей,
определив процедуру для расчета периметра и площади равнобедренной трапеции по ее основаниям и высоте.
плззззззз!!!

[XeN0N]

где ваш код? пока что я вижу только элементарное задание, скопированное даже без редактирования переносов

[Рітка-кулеметчиця]

где ваш код? пока что я вижу только элементарное задание, скопированное даже без редактирования переносов

в тот то и проблема что я я даже не знаю как к ним подойти

[Sazary]

Рітка-кулеметчиця Тогда вам сюда:
Полезная литература. Паскаль
Правила раздела.

Не знаете, как к ним подойти? Хорошо:
1. Здесь просто записать выражение на паскале.
2. Четность можно определить функцией odd() (возвращает true, если число нечетное).
Или так: если a mod 2 = 0, значит a - четное.
3. Алгоритм Евклида легко можно найти, например, в Википедии.
4. Тут вообще простая математика.

[Stilet]

Рита начни с начала: вот например первое задание - формула то дана, вот и напиши прожку в которой будут функи сложения:

function add(a,b:real):real; begin add:=a+b; {сложение}
function divA(a,b:real):real; begin divA:=a/b; {сложение}

Далее например часть твоей формулы (2+sin3)/(3+sin2)так:

s:=diva(add(2+sin(3)),add(3+sin(2));

Яснышко?

[начинающий кодер]

Алгоритм Евклида

procedure Nod(var a:integer;var b:integer;var del:integer);
var
ost:integer;
begin
repeat

ost:=a mod b;
a:=b;
b:=ost;
if b<>0 then del:=ost;

until ost=0 ;
end;

[Рітка-кулеметчиця]

Вроди да по1. а можеш натолкнуть на правильну мисль и в 2,3,4 задачах.

Вот но 1 только викада "indentifier expexted":

Program proba;
var
function divA(a,b:real)real;
begin
divA:=a/b;
end;
function add(a,b:real):real;
begin
add:=a+b;
end;
s:=divA(add(2+sin(3)),add(3+sin(2))+divA(add(1+sin(5))),add(sin(1)+5))+divA(add(sin(7)+4)),add(sin(3)+7);
writeln('znachnya y= ')
readln;
end.

[Sazary]

Много синтаксических ошибок, скобки стоят не там, где нужно.
Аргументы для функции add нужно прописывать через запятую (у вас через знак "+").
И еще забыть begin для главной функции.

Исправлено:

Program proba;
uses crt;
var s : real;

function divA(a,b:real) : real;
 begin
 divA:=a/b;
 end;
function add(a,b:real) : real;
 begin
 add:=a+b;
 end;

begin
clrscr;
s:=divA(add(2,sin(3)),add(3,sin(2)))+divA(add(1,sin (5)),add(sin(1),5))+divA(add(sin(7),4),add(sin(3),7));
writeln('znachnya y= ',s:10:7);
readln;
end.

[Рітка-кулеметчиця]

Sazary;
writeln('znachnya y= ',s:10:7);


Почему так прописуют обясните мне потому что много раз видела но так и не поняла шо за хрень. Ну writeln-оператор виведення а s:10:7 что делает?

[Sazary]

Это для форматирования вывода. В общем виде:

writeln(number : width : precision)

number - число
width - ширина поля вывода
precision - количество знаков после запятой (этот параметр можно опускать)

Например:

a := 55.123;
write(a:10:1);

выведет:

      55.1

===========
Поэкспериментируйте, чтобы лучше понять.