Дана задача. Заполни таблицу «Калорийность обеда».
Из одного грамма углеводов человек получает 4,1 ккал, из одного грамма жиров — 9,3 ккал, из одного грамма белков — 4,2 ккал.
Порция борща со свежей капустой содержит 3,4 г белков, 11 г жиров и 21 г углеводов. Порция гуляша — 25 г белков, 25 г жиров, 7 г углеводов. Порция картофеля с маслом — 2,7 г белков, 7 г жиров и 39 г углеводов. Порция компота из свежих фруктов содержит 0,4 г белков, 39 г углеводов, не содержит жиров.
Ну, во-первых, ввод чисел в электронную таблицу после позволяет обратиться к каждому числу отдельно и производить с ним какие либо операции, в текстовом редакторе такого не сделать. Во-вторых, электронные таблицы позволяют ссылочно работать с числами, то есть указывать их как элементы формул - ссылаться на них для получения нового значения. В текстовом редакторе такого сделать нельзя. Вообще главное отличие в том, что в текстовом редакторе любое число представляется как строка, и с ним нельзя произвести какие-либо числовые операции, а в электронных таблицах можно. Такой вопрос уже был на сайте
// PascalABC.NET 3.6
type
TR = record
Имя, Отчество, Фамилия: string;
Возраст, НомерКласса: integer;
БукваКласса: char;
end;
function ПринятьСведения: TR;
begin
Result.Имя := ReadlnString('Имя:');
Result.Отчество := ReadlnString('Отчество:');
Result.Фамилия := ReadlnString('Фамилия:');
Result.Возраст := ReadlnInteger('Возраст:');
Result.НомерКласса := ReadlnInteger('Номер клвсса:');
Result.БукваКласса := ReadlnChar('Буква класса:');
end;
procedure ВывестиСведения(L: List<TR>);
begin
foreach var r in L do
Writeln(r.Имя+' '+r.Отчество+' '+r.Фамилия:40,
r.Возраст:4, r.НомерКласса+r.БукваКласса:4)
end;
begin
var p := new List<TR>;
var n := ReadlnInteger('Сколько учеников добавить?');
loop n do
p.Add(ПринятьСведения);
p := p.OrderByDescending(t -> t.Имя).ToList;
ВывестиСведения(p);
end.