Напишите программу по данной блок- схеме, найдите значение переменной (на Паскале)

144

404

Посмотреть ответы 1

Ответы на вопрос:

ntazhibaevaa

Информатика

4,7(58 оценок)

1. современное решение // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlines('input.txt').select(s-> s.towords). select(w-> (w[0]+' '+w[1], (w[2].tointeger+w[3].tointeger+w[4].tointeger)/; var max: =s.max(fb-> fb[1]); s.where(fb-> fb[1]=max).select(fb-> fb[0]).println(newline) end. 2. школьное решение в стиле "turbopascal 1983г" const n=50; // максимум лучших учеников var f: text; i,p,pa,b,sum,max: integer; sb: real; s,fio: string; flag: boolean; a: array[1..n] of string; begin assign(f,'input.txt'); reset(f); max: =0; pa: =1; while not eof(f) do begin readln(f,s); fio: =''; flag: =true; for i: =1 to length(s) do if s[i]< > ' ' then fio: =fio+s[i] else if flag then begin fio: =fio+' '; flag: =false end else break; p: =length(fio)+2; sum: =0; for i: =1 to 3 do begin b: =ord(s[p])-ord('0'); sum: =sum+b; p: =p+2 end; if sum> max then begin a[1]: =fio; pa: =2; max: =sum end else if sum=max then begin a[pa]: =fio; pa: =pa+1 end; end; close(f); for i: =1 to pa-1 do writeln(a[i]); end. 3. пример выполнения исходные данные (файл во вложении) иванов и.и. 4 5 4 сидорова с.с. 5 3 4 петров п.п. 5 5 4 козлов к.к. 3 3 5 васечкин в.в. 4 4 4 сорокина с.с. 5 5 4 тарасова т.т. 5 4 5 результат петров п.п. сорокина с.с. тарасова т.т. предвижу возражение, что современное решение "непонятно". а что, школьное понятнее? текст в 42 строчки понятнее чем в 5 строк? (я выкинул из обоих текстов по одному begin и end, окаймляющие программу). что дольше писать и отлаживать? где больше ошибок можно сделать? в конце-концов, что проще изучить с нуля - программирование в 5 строк или в 42? вот и вопрос - для чего в школах массово изучают такое несуразное программирование?

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.