4 задачи, Паскаль

[VirtuozZz]

Долго объяснять, зачем мне это (сам я не программист), поэтому просто попрошу, напишите, пожалуйста, код в Паскале для этих 4-х задач. Насколько я понимаю, для человека, знающего Паскаль, это не составит большого труда. Заранее благодарю.

1. Дано два одномерных массива. Найти сумму минимальных элементов массивов с использованием минимального количества операторов цикла.

2. f(x)=(3x^2-7x+8)/(x^2+1)-1
Найти область значений функции. С помощью операторов циклу протаблювать заданную функцию. Результат подать в виде таблицы с комментариями. Начальные данные задать самостоятельно.

3. У входной файл записать список студентов группы и информацию про день, месяц и год рождения каждого. (Количество студентов в группе - 25). Вывести на экран информацию про студентов, которые моложе 18 лет по старшинству.

4. Составить программу для обчисления заданной функции с точностью е=10.Е-5.
Sin(x)=x-(x^3)/3!+(x^5)/5!-...+(-1)*(x^2n+1)/(2n+1)!

Извиняюсь за чуть корявый русский, просто перевожу условия заданий с другого языка.
И еще одно, данные задания нужны на завтрашнее утро, поэтому вопрос срочный.

[Vishez]

http://programmersforum.ru/showthread.php?t=3292
На третью твою похоже.

[VirtuozZz]

Хм, спасиб, но ты ж там написал что она не работает...

[Vishez]

Я имею в виду, если мне ответят, то и ты посмотришь. Также, не придется писать задачу для двоих.
З.Ы. Кто-нибудь! У меня код сам есть, нужна просто доработка небольшая! -)))

[VirtuozZz]

ОК, бум ждать..

[RSLoader]

Долго объяснять, зачем мне это, поэтому просто напишу, прочтите, пожалуйста, код в Паскале для 1-й задачи. Насколько я понимаю, даже для человека, не знающего Паскаль, это не составит большого труда

var
  a,b:array[1..100]of integer;
  an,bn,ak,bk,amin,bmin,i,s:integer;
begin
  write('Vvedite dlinu pervogo massiva: ');
  readln(an);
  write('Vvedite perviy massiv: ');
  for i:=1 to an do read(a[i]);
  readln;
  write('Vvedite dlinu vtorogo massiva: ');
  readln(bn);
  write('Vvedite vtoroy massiv: ');
  for i:=1 to bn do read(b[i]);
  readln;
  ak:=1;
  bk:=1;
  amin:=a[1];
  bmin:=b[1];
  while not ((ak=an) and (bk=bn)) do
  begin
    if ak<an then
    begin
      inc(ak);
      if a[ak]<amin then amin:=a[ak];
    end;
    if bk<bn then
    begin
      inc(bk);
      if b[bk]<bmin then bmin:=b[bk];
    end;
  end;
  s:=amin+bmin;
  write('Perviy massiv: ');
  for i:=1 to an do write(a[i],' ');
  writeln;
  write('Vtoroy massiv: ');
  for i:=1 to bn do write(b[i],' ');
  writeln;
  writeln('Summa min elementov massivov: ',s);
  readln;
end.

Извиняюсь за чуть корявый паскальский

[VirtuozZz]

Спасибо!
А по остальным, есть какие-то идеи?

[RSLoader]

Вот третья:

uses
  dos;
type
  tstudent=record
             name,surname:string[10];
             dobyear:1980..2007;
             dobmonth:1..12;
             dobday:1..31;
           end;
var
  st:array[1..25]of tstudent;
  fst:file of tstudent;
  b:tstudent;
  i,k,y,m,d,dn:word;
begin
  {Ввод данных}
  for i:=1 to 3 do
  begin
    writeln('Student ',i);
    write('Imya:     ');
    readln(st[i].name);
    write('Familiya: ');
    readln(st[i].surname);
    write('Data rojdeniya (dd mm yyyy): ');
    read(st[i].dobday);
    read(st[i].dobmonth);
    read(st[i].dobyear);
    readln;
  end;
  {Сортировка по старшинству}
  for k:=3 downto 2 do
  for i:=1 to k-1 do
  if st[i].dobyear>st[i+1].dobyear then
  begin
    b:=st[i];
    st[i]:=st[i+1];
    st[i+1]:=b;
  end;
  assign(fst,'stud.txt');  
  rewrite(fst); 
  {Запись данных в файл} 
  for i:=1 to 3 do write(fst,st[i]);
  close(fst);
  getdate(y,m,d,dn);{Определение текущей даты}
  {Вывод на экран студентов, возраст которых < 19}
  for i:=1 to 3 do if (y-st[i].dobyear)<19 then
  writeln(st[i].surname,' ',st[i].name,'    ',
    st[i].dobday,' ',st[i].dobmonth,' ',st[i].dobyear);
  readln;
end.

[VirtuozZz]

Спасибо!
Если будет время, напишите программы еще к 2му и 4му заданию.

[VirtuozZz]

Еще раз спасибо всем кто откликнулся.
Остальные задания уже не интересуют.
Тему можно закрывать!