[Помогите!] Программирование в универе :)

[Водяной]

Нужна помощь.

Препод сказал программы слишком простые и нужно как то их усложнить!? Я в этом "ноль", и ничего не могу понять
Вот и прошу помощи у Вас, форумчан. Если не тот раздел - извиняйте.

Так же можете написать мне в скайп: eselog

Буду очень благодарен за помощь и в долгу не останусь!

1)

Program function1;
var m:real;
 Function od: real;
     var q:real;
      const
       a=2.0;
       t=0.5;
   begin
     q:=a*t*t*ln(t)+exp(ln(a)*t)+exp(a*t)*cos(t);
     od:=q;
   end;
begin
writeln(od);
end.

2)

Program fun;
var c: real;
 Function per: real;
 var q:real;
 const
 a=2.0;
 t=0.5;
 begin
 q:=a*t*t*ln(t);
 per:=q;
 end;
 Function step: real;
 var q:real;
 const
 a=2.0;
 t=0.5;
 begin
 q:=exp(ln(a)*t);
 step:=q;
 end;
 Function pos: real;
 var q:real;
 const
 a=2.0;
 t=0.5;
 begin
 q:=exp(a*t)*cos(t);
 end;
begin
c:=per+step+pos;
writeln('c=',c:4:7);
end.

3)

program per;
uses crt;
const
t=0.5;
a=2.0;
var u,r,y,e,q,w:real;
begin
y:=a*t*t*ln(t)+exp(ln(a)*t)+cos(t)*exp(a*t);
writeln(y:1:1);
readkey;
end.

4)

Program Masiv;
 var a: array [0..50] of integer;
     i: integer;
 begin
randomize;
writeln;
For i:=0 to 50 do
begin
a[i]:=random(50);
write(a[i]:3);
end;
end.

5)
Program Matrica;
const n=3;
var a: array [0..n,1..n] of integer;
    min,max,i,j:integer;
begin
writeln;
randomize;
For i:=1 to n do begin
For j:=1 to n do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
max:=0;

for i:=1 to n do begin
 min:=a[1,j];
for j:=1 to n do
if a[i,j]<min then min:=a[i,j];
writeln('¬Ё*Ё¬*«м*®Ґ ў бва®ЄҐ ',i,' =',min:2);
if min>max then max:=min;
end;
writeln('¬*ЄбЁ¬г¬ б।Ё ¬Ё*Ё¬г¬ = ',max);
end.

6)

program procedura;
var a:real;
 procedure SQ;
 const
 a=2.0;
 t=0.5;
 var c:real;
 begin
 c:=a*t*t*ln(t)+exp(ln(a)*t)+cos(t)*exp(a*t);
 writeln(c:3:4);
 end;
begin
sq;
end.

7)

Program vibor;
var m,s,x,y,l,k,n:real;
    a:byte;
 Function od: real;
     var q:real;
      const
       a=1.0;
       t=1.5;
   begin
     q:=a*t*t*ln(t)+exp(ln(a)*t)+exp(a*t)*cos(t);
     od:=q;
   end;
 Function vt: real;
     var q:real;
      const
      a=2.0;
      t=2.5;
     begin
      q:=a*t*t*ln(t)+exp(ln(a)*t)+exp(a*t)*cos(t);
      vt:=q
     end;
begin
 readln(a);
 if (a<1) or (a>2) then writeln('*Ґв аҐиҐ*Ёп')
else
begin
 case a of
 1: writeln(od:8:2);
 2: writeln(vt:8:2);
end;
end;
end.

[Водяной]

Хелп плиз

[Flayer-Soft]

Такс, ну я могу предложить следующее...

Выделение комментариями(чтобы было понятно даже малышу).
Вынос кода в процедуры(почаще делай это).
Оформление кода хромает(неудобно читать).

[Sinyss]

1) Комментировать надо только объемные куски кода. Например есть кусок кода который вычисляет площадь треугольника, занимает 5 строчек. Его можно:
I) прокомментировать в начале
II) Вынести в отдельную функцию
В остальных случаях... не надо перед мостом ставить табличку "Это мост".....
Например в тех кусках кода что ты выписал я бы прокомментировал только 5й пункт... только об него глаз "споткнулся"

2) Вынос кода в процедуру/функцию осуществляется исключительно для уменьшения количества кода и улучшения его читаемости. Не надо маниакально разбивать код на кучу функций. Надо выносить, если:
I) этот код используется где то еще.
II) этот код на вид сложен и его можно объяснить 1-2 словами (названием функции).
III) метод в котором он написан не влазит в 1 экран...
Кстати порою использование функций бьет по производительности.
3) Насколько я понимаю это сделано под Turbo Pascal а там нет автоматического форматирования как такового... А сам выставлять табуляции/пробелы ради лабы я бы не стал...