Необходимо соблюдать следующие правила оформления таблиц.
Заголовок таблицы должен давать представление о содержащейся в ней информации.Заголовки граф и строк должны быть краткими, не содержать лишних слов и, по возможности, сокращений.В таблице должны быть указаны единицы измерения. Если они общие для всей таблицы, то указываются в заголовке таблицы (либо в скобках, либо через запятую после названия). Если единицы измерения различаются, то они указываются в заголовках строк или граф.Желательно, чтобы все ячейки таблицы были заполнены. При необходимости в них заносят следующие условные обозначения:? — данные неизвестны;х — данные невозможны;↓ — данные должны быть взяты из вышележащей ячейки.
Для того чтобы на основании информации, представленной в текстовой форме, составить табличную модель, необходимо:
выделить в тексте имена объектов, имена свойств объектов и значения свойств объектов;уточнить структуру таблицы;«заселить» таблицу, перенеся в нее информацию из текста.
Как и сказал, смог только первый.
Для начала нужно ввести числа квадратного уравнения в строку. То есть, числа вместо a, b и c. А потом надо ввести в строку число "х", чтобы проверить его на наличие решения.
Вот сам код:
program name;
var a, b, c, d, x1, x2, x3: real;
begin
writeln('Введите коэффициенты квадратного уравнения') ;
readln(a, b, c);
d:=sqr(b) - (4*a*c);
x1:= (-b-sqrt(d)) / 2*a;
x2:= (-b+sqrt(d)) / 2*a;
Writeln('Введите число х, чтобы проверить, является ли оно корнем уравнения') ;
readln(x3);
If x3 = x1 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else If x3 = x2 then
Writeln('Число ', x3, ' является корнем уравнения.')
Else
Writeln('Число ', x3, ' не является корнем уравнения.') ;
End.
var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
Нажимаешь на управляющую кнопку, правой клавишей мыши выбираешь "Гиперссылка" и выводишь на тот слайд,который тебе нужен.
...
if twinkies <100 then write('Слишком мало');
if twinkies >500 then write('Слишком много');
end.
