Построить блок - схему

[katyuha_e]

На вход программы подаются сведения о результатах соревнований по школьному многоборью. Многоборье состоит из соревнований по четырем видам спорта, участие в каждом из которых оценивается баллами от 0 до 10 (0 баллов получает ученик, не принимавший участия в соревнованиях по данному виду спорта). Победители определяются по наибольшей сумме набранных баллов. Известно, что общее количество участников соревнований не превосходит 100.
В первой строке вводится количество учеников, принимавших участие в соревнованиях, N. Далее следуют N строк, имеющих следующий формат:
<Фамилия> <Имя> <Баллы>
Здесь <Фамилия> – строка, состоящая не более чем из 20 символов; <Имя> – строка, состоящая не более чем из 15 символов; <Баллы> - строка, содержащая четыре целых числа, разделенных пробелом, соответствующих баллам, полученным на соревнованиях по каждому из четырех видов спорта. При этом <Фамилия> и <Имя>, <Имя> и <Баллы> разделены одним пробелом. Примеры входных строк:
Иванова Мария 5 8 6 3
Петров Сергей 9 9 5 7
Напишите программу, которая будет выводить на экран фамилии и имена трех лучших участников многоборья. Если среди остальных участников есть ученики, набравшие то же количество баллов, что и один из трех лучших, то их фамилии и имена также следует вывести. При этом имена и фамилии можно выводить в произвольном порядке.

const LIM = 100;
var Info: array[1..LIM] of record
name: string;
sum: integer;
end;
i, k, N, mark, max1, max2, max3: integer;
c: char;
begin
readln(N);
{ ввод исходных данных }
for i:=1 to N do begin
Info[i].name := '';
for k:=1 to 2 do
repeat
read(c);
Info[i].name := Info[i].name + c;
until c = ' ';
Info[i].sum := 0;
for k:=1 to 4 do begin
read(mark);
writeln(mark);
Info[i].sum := Info[i].sum + mark;
end;
readln;
end;
{ поиск трех максимальных }
max1 := 0; max2 := 0; max3 := 0;
for i:=1 to N do begin
if Info[i].sum > max1 then begin
max3 := max2; max2 := max1;
max1 := Info[i].sum;
end
else if Info[i].sum < max2 then begin
max3 := max2;
max2 := Info[i].sum;
end
else if Info[i].sum < max3 then
max3 := Info[i].sum;
end;
{ вывод результата }
for i:=1 to N do
if Info[i].sum >= max3 then
writeln(Info[i].name);
end.

[Arigato]

А в чём проблема?
У Вас есть код, по коду и стройте.
Начало и конец программы обозначаются прямоугольником с закруглёнными углами, ввод и вывод - параллелограммами, любые расчёты - прямоугольником, условные операторы - ромбы.
Просто переведите программу в такой вот графический вид и всё.

[ROMA2PVT]

Ну вот как то так.Отредактируйте немного.

[diamFC]

блок=схема к программе.

[димон4ик_]

Помогите построить блок схему.
1. Дано целое число n, удовлетворяющее условию 0<модуль n<=2*10 ^9. Найти максимальную цифру в записи этого числа.
var
N,d:LongInt;
i,lng,mx,q:byte;
BEGIN
write('Enter N: ');
readln(N);
lng:=1+TRUNC(Ln(Abs(N))/Ln(10));
d:=ROUND(Exp((lng-1)*Ln(10)));
mx:=0;
for i:=1 to lng do
begin
q:=N div d;
if q>mx then mx:=q;
N:=N mod d;
d:=d div 10;
end;
writeln('MAX= ',mx);
readln
END.

[diamFC]

Вот блок-схема. Сделана с помощью программы diamFC

[RichiMilly]

помогите построить блок-схему и написать программу для вычисления ряда:
1*2*3*4*5*...*25 (всё выражение под корнем)

[whatever]

Сообщение от RichiMilly

помогите построить блок-схему и написать программу для вычисления ряда:
1*2*3*4*5*...*25 (всё выражение под корнем)

program smth;
begin
  writeln(sqrt(1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21*22*23*24*25));
end.

[RichiMilly]

Сообщение от whatever

program smth;
begin
  writeln(sqrt(1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21*22*23*24*25));
end.

слишком просто и коротко!не подходит

[Arigato]

Тогда так:

program smth;
begin
  writeln (sqrt (1) * sqrt (2) * sqrt (3) * sqrt (4) * sqrt (5) * sqrt (6) * sqrt (7) * sqrt (8) * sqrt (9) * sqrt (10) * sqrt (11) * sqrt (12) * sqrt (13) * sqrt (14) * sqrt (15) * sqrt (16) * sqrt (17) * sqrt (18) * sqrt (19) * sqrt (20) * sqrt (21) * sqrt (22) * sqrt (23) * sqrt (24) * sqrt (25));
end.