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

[Chudo4258]

2 задача:

program Project2;

function chetn(a:integer):boolean;
begin
  if a mod 2=0 then chetn:=true
          else chetn:=false;
end;

var i,a,b,k,t:integer;

begin
   k:=0;
  for i:=1 to 8 do
  begin
   write('a[',i,']='); readln(a);
   if chetn(a) then inc(k);
  end;
  t:=0;
  for i:=1 to 8 do
  begin
   write('b[',i,']='); readln(b);
   if not(chetn(b)) then inc(t);
  end;
writeln('chetnych v I posledovatal"njsti: ', k);
writeln('nechetnych vo II posledovatal"njsti: ', t);
end.

inc(k) тоже самое, что и k:=k+1.

From Stilet: Не забываем код оформлять спецтегом (#)

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

Можете подтолкнуть к 4 задаче так как к первой?Если не сложно обясните конкретнише 3 бо в меня не получаетса доделать..Могу виложить результати роботи над 3 задачой но там явний бред седой кобили

[Sazary]

Функции для 4-й задачи:

function plosh(a,b,h : real) : real;
 begin
 plosh := (a+b)*h/2;
 end;

function perim(a,b,h : real) : real;
 begin
 perim := a+b+2*sqrt(sqr(h) + sqr(b-a)/4);
 end;

-------------------
3-я задача. Алгоритм Евклида:

function nod(var a, b:longint):longint; 
 begin
  while (a<>0) and (b<>0) do 
  if a >= b then a := a mod b 
            else b := b mod a;  
  nod:=a+b; 
 end;

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

Чого просит "<".
Program Evklid;
uses crt;
var s:real;

function nod(var a,b:longint):longint;
begin
while (a<>0) and (b<>0) do
if a>=b then a:=a mod b
else b:=b mod a;
nod:=a+b
end;
begin
clrscr;
nod:=nod(nod(a,b),c);
write('nod= ')
read
end.
Если не сложно напротив рядка з ошибкой напишить коментарий чтоб я передэлала

[Sazary]

Рітка-кулеметчиця
Сложно написать где ошибка, так как здесь ВСЕ неправильно (кроме самой функции nod).
Переменные не объявлены, s - вообще непонятно что такое.

В задании сказано:

Даны n натуральных чисел

Чисел не одно и не два. Их может быть много.

Возьмите.

Program Evklid;
uses crt;
var s,num : longint;
n,i : integer;

function nod(var a,b:longint):longint;
begin
while (a<>0) and (b<>0) do
if a>=b then a:=a mod b
else b:=b mod a;
nod:=a+b
end;

begin
clrscr;
write('Vvedite n: ');
readln(n);
for i:=1 to n do
 begin
 write('Vvedite chislo ',i,': ');
 readln(num);
 if i=1 then s := num
 else s := nod(s,num);
 end;
writeln('------');
writeln('NOD = ',s);

readln;
end.

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

Вот 4 задача ,но кажись тоже не правильна (дальше не можу додуматься)
Program trapecia;
uses crt;
var
a,b,h,sum:real;
function plosh(a,b,h:real):real;
begin
plosh:=(a+b)*h/2
end;

function perim(a,b,h:real):real;
begin
perim:=a+b+2*sqrt(sqr(h)+sqr(b-a)/4);
end;

begin
clrscr;
write('Vvedit osnovi pershoi trapecii ',a);
read(a);
write('Vvedit osnovi drugoi trapecii ',b);
read(b);
end.

[Sazary]

Рітка-кулеметчиця У меня складывается ощущение, что вы даже не пытаетесь что-то сделать, а просто так пишете что-то и выкладываете как свой код.
Зачем вам переменные h и sum, если вы их не используете? Тот же вопрос касательно функций. Где вы их вызываете? Нигде.

Нужные переменные объявите сами.

readln(a1,b1,h1);
readln(a2,b2,h2);
S := plosh(a1,b1,h1)+plosh(a2,b2,h2);
P := perim(a1,b1,h1)+perim(a2,b2,h2);
writeln('S= ',S:7:4);
writeln('P= ',P:7:4);

Возьмите любой учебник по паскалю и читайте. Пока что я вижу все то же "сухое" условие задач, прикрытое этаким "некодом".
Это не незнание. Это банальное нежелание что-то делать.