Таблицы позволяют объединить однотипные данные в более-менее читабельную структуру, чего не делает словесное описание (как, например, приятней читать таблицу с датами и описанием исторических событий в таблице, чем читать словесную демагогию в учебиках). Таблицы позволяют ужать данные в размере, читателю сосредоточиться на главном. Они позволяют операторам обрабатывать её без каких-либо затруднений.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел. Вот. Так что табличные модели, несомненно, лучше словесных.
var a,b,c,d,x,x1,x2:real; begin write ('a='); read (a); write ('b='); read (b); write ('c='); read (c); d:=b*b-4*a*c; if d<0 then writeln ('NO') else if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln ('x1=',x1:0:2,' x2=',x2:0:2) end else begin x:=-b/(2*a); writeln ('x=',x); end end.
Еще пример: магазинные чеки. Не будет же машина (из-за технической сложности) или человек (из-за лени) писать на чеке: "продано столько-то столько-то того-то того-то ... пакет апельсинов весил шестьсот пядесят три грамма ... итд". На чеке будет табличка, где четко и точно будет написано то, что человек приобрел.
Вот. Так что табличные модели, несомненно, лучше словесных.
begin
write ('a='); read (a);
write ('b='); read (b);
write ('c='); read (c);
d:=b*b-4*a*c;
if d<0 then writeln ('NO')
else if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln ('x1=',x1:0:2,' x2=',x2:0:2)
end
else
begin
x:=-b/(2*a);
writeln ('x=',x);
end
end.