Напишите пожалуйста задачу в паскале ALGO

То, о чем Вы пишете - это обучение для профильных классов. Там не станут учить АЛГО. А остальным как раз нужно умение пользоваться "большенными блоками", а не кирпичиками. Когда задача малыша выстроить из кубиков домик, не необходимо его принуждать поначалу изготавливать кубики.

что до Вашего "...выучиться писать реализацию..." - начните с библиотечных функций. Запрограммируйте функцию квадратного корня, тригонометрию, логарифм... а позже побеседуем, надобно ли это, кому и для чего. Я когда-то, да, программировал и корень квадратный. На процессоре и в бинарном коде, даже без ассемблера. И знаю, о чем разговариваю. Но я тогда теснее работал программером, а не был школьником, у которого информатика раз в неделю 45 минут.

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

Нетушки! Конкретно квадратный и только на 4 деяниях математики. Если что.

Причем, чтоб давал точность нужную о всем спектре представления чисел с плавающей точной одинарной и двойной точности.

И вот так, на собственных библиотеках и программируйте. Будете настоящим "грозным программистом"

Но не надобно это все школьникам предлагать, 99% которых даже ЕГЭ по информатике сдавать не собираются.

:thumbup:

Вот Вы бы лучше, чем достоинством меряться, человеку посодействовали программку написать....

Вот Вы бы лучше мне не давали советов, а за собой наблюдали)

Написано и отлажено на FreePascal

program test;
uses
crt;

const
require = 18;

type
arr = array of byte;
fios= array of string;

var
phis, math, russ, eng, tot : arr;
fio : fios;
num: byte;
i, j, k : byte;
st, t : string;
val, key : byte;
p, m, r, f : byte;


begin
write('How many peoples: ');
readln(num);
writeln;
setLength(fio, num);
setLength(phis, num);
setLength(math, num);
setLength(russ, num);
setLength(eng, num);
setLength(tot, num);
for i:=0 to num-1 do
begin
writeln('People ', i+1);
write('F.I.O.: ');
readln(fio[i]);
write('Phis: ');
readln(phis[i]);
write('Math: ');
readln(math[i]);
write('Russ: ');
readln(russ[i]);
write('Eng: ');
readln(eng[i]);
tot[i] := phis[i]+math[i]+russ[i]+eng[i];
writeln;
end;
writeln;

writeln(' V E D O M O S T');
writeln('---------------------------------------------------------------');
writeln(' F. I. O. Phis Math Russ Eng Total ');
writeln('---------------------------------------------------------------');
for i:=0 to num-1 do
begin
st := ' ' + fio[i];
j:= length(st);
if jlt;17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'';
str(phis[i], t);
st := st + ' ' + t + ' ';
str(math[i], t);
st := st + ' ' + t + ' ';
str(russ[i], t);
st := st + ' ' + t + ' ';
str(eng[i], t);
st := st + ' ' + t + ' ';
str(tot[i], t);
st := st + ' ' + t + ' ';
writeln(st);
end;
writeln('---------------------------------------------------------------');

for i:=0 to num-1 do
begin
val:=tot[i];
st:=fio[i];
p:=phis[i];
m:=math[i];
r:=russ[i];
f:=eng[i];
key:=i;
for j:=i+1 to num-1 do
if tot[key] if keylt;gt;i then
begin
tot[i] := tot[key];
tot[key] := val;
fio[i] := fio[key];
fio[key] := st;
phis[i] := phis[key];
phis[key] := p;
math[i] := math[key];
math[key] := m;
russ[i] := russ[key];
russ[key] := r;
eng[i] := eng[key];
eng[key] := f;
end;
end;

writeln;

writeln(' Sorted vedomost by total balls');
writeln('---------------------------------------------------------------');
writeln(' F. I. O. Phis Math Russ Eng Total ');
writeln('---------------------------------------------------------------');
for i:=0 to num-1 do
begin
st := ' ' + fio[i];
j:= length(st);
if jlt;17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'';
str(phis[i], t);
st := st + ' ' + t + ' ';
str(math[i], t);
st := st + ' ' + t + ' ';
str(russ[i], t);
st := st + ' ' + t + ' ';
str(eng[i], t);
st := st + ' ' + t + ' ';
str(tot[i], t);
st := st + ' ' + t + ' ';
writeln(st);
end;
writeln('---------------------------------------------------------------');

writeln;
writeln(' Spisok postupifshih studentov');
writeln('---------------------------');
writeln(' F. I. O. Total ');
writeln('---------------------------');
for i:=0 to num-1 do
begin
if tot[i] gt;= require then
begin
st := ' ' + fio[i];
j:= length(st);
if jlt;17 then
for k:=1 to 17-j do st:=st+' ';
st:=st+'';
str(tot[i], t);
st := st + ' ' + t + ' ';
writeln(st);
writeln('---------------------------');
end;
end;
end.