Не допускают к экзаменам

[ApJIeKuHo]

Вобщем...уже во всю идет сессия...а я не могу на нее выйти из за проблем с Програмирование и Началом Алгоритмизации...не могу ему сдать две проги:

1. Дано целое число М, вещественно число Х, вещественные кортежи А,В,С [1..M]. Кортеж имеющий минимальный компонент (в предположении что такой элемент один), домножить на значение R, где R=X для кортежа А, R=sqr(x) для кортежа В и R=x*x для кортежа С.

2.Type fs = file of string [10]. Программа содержащая функцию CountD, определяет число строк файла fs, которые начинаются с символа 'd' or 'D'.

и вот ни как не могу справиться...с первой задачей друг мне написал ее так:

Program Z_4;
Uses Crt;
Const m=10;
Var i,s:Integer;
x,r,min:Real;
a:Array[1..m] of Real;
b:Array[1..m] of Real;
c:Array[1..m] of Real;
BEGIN
ClrScr;
Randomize;

Write ('Vvedite veshestvennoe chislo x = ');
Read(x);
WriteLn;

For i:=1 To m Do a[i]:=(Random(150))/(Random(15)+1)-Random(30);
For i:=1 To m Do b[i]:=(Random(150))/(Random(15)+1)-Random(30);
For i:=1 To m Do c[i]:=(Random(150))/(Random(15)+1)-Random(30);

Write ('a: ');
For i:=1 To m Do Write(a[i]:3:2,' ');
Writeln;
Write ('b: ');
For i:=1 To m Do Write(b[i]:3:2,' ');
Writeln;
Write ('c: ');
For i:=1 To m Do Write(c[i]:3:2,' ');

min:=999999;

For i:=1 To m Do Begin
If a[i]<min Then Begin
min:=a[i];
s:=1
end
end;

For i:=1 To m Do Begin
If b[i]<min Then Begin
min:=b[i];
s:=2
end
end;

For i:=1 To m Do Begin
If c[i]<min Then Begin
min:=c[i];
s:=3
end
end;

WriteLn;
WriteLn;
If s=1 Then Begin
r:=x;
WriteLn('r = ',r:3:2);
Write('a: ');
For i:=1 To m Do Begin
a[i]:=a[i]*r;
Write(a[i]:3:2,' ')
end
end;

If s=2 Then Begin
r:=sqrt(x);
WriteLn('r = ',r:3:2);
Write('b: ');
For i:=1 To m Do Begin
b[i]:=b[i]*r;
Write(b[i]:3:2,' ')
end
end;

If s=3 Then Begin
r:=x*x;
WriteLn('r = ',r:3:2);
Write('c: ');
For i:=1 To m Do Begin
c[i]:=c[i]*r;
Write(c[i]:3:2,' ')
end
end;

ReadLn;
ReadLn
END.

на что препод ответил что моя прога должна содержать функцию/процедуру...и я не могу понять что именно сделать...

а со второй не знаю как описать функцию которая сравнивает значение первого символа строки....

Пожалуйсто прошу помочь...ибо вылетать не охото...ребятам которые с Краснодара - с меня пиво за помощь )

[Petrovi4]

ICQ - 324-783-266
Пиши, договоримся

[sheka]

255507394 Обращайся, Договоримся!

[freest]

пиши договоримся 308 895 241

[samec]

Стучите в асю 11один11-5шесть5шесть, обсудим

[Gapro]

Помогу с задачами.
Недорого

[Arigato]

> с меня пиво за помощь

О, сколько любителей пива собралось

[semenovmixan]

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru