В паскале выдаёт ошибку. program lab1;
const B=5.5;
var y, x:Real;
begin
Write ('x=');
Read(x); <у него ошибка<
y:=exp(3*ln(B+5))*sin(x)/(ln(x+1)/ln(10)+sqrt(B));
WriteLn ('y=',y:6:2);
end.
пишет: Program1.pas(6) : Ошибка времени выполнения: Входная строка имела неверный формат.
3) Изменение формата текста без изменения самого содержания текста. Т.е. шрифт, размер, цвет, отступы и тп
4) Фрагмент текста - кусок текста, часть текста
5) Многооконное приложение позволяет открывать несколько документов в одном приложении
6) Обычно Сtrl+F или иконка с лупой - вызывает поиск, в строку поиска вводим искомую строку или выражение, настраиваем доп параметры типа искать везде, или только вниз, или только вверх и тп. Потом нажимаем Enter и начинается поиск. F3 - искать далее, Shift+F3 - искать предыдущее
Замена не так стадартизирована. Обычно находится в меню Изменить, для Word в конце группы Главная с характерной иконкой "ab->ac". Сочетания клавиш обычно Ctrl+H или Ctrl+R. Тут уже два поля ввода, первое аналогично того что у поиска, второе для текста замены. Кнопка "Заменить" делает замену и ищет следующее, кнопка "Найти далее" - пропускает текущее найденное и ищет дальше без замены
7) Орфография делает автоматическую проверку правильности написания слов, иногда и другие правила типа составления предложений и тп. Каждая программа использует свой орфографический словарь и хранит его с файлами программы или в специальном хранилище для файлов этой программы
8) Создать, Редактировать, Сохранить, Открыть, Создать копию через сохранить как
9) Стандартное сочетание клавиш Ctrl+P, для настроек можно использовать что-то типа Просмотр и печать. Для распечатки нужен как минимум рабочий принтер или виртуальный принтер например для распечатки в pdf файл, так же установленные драйвера к принтеру и доступ к нему
10) F1 или иконка знак вопроса.
var a:array [1..n,1..n] of Integer;
i,max,ind,s,j:integer;
begin
s:=0;
Randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
j:=6;
for i:=1 to n do
begin
Dec(j);
if a[i,j]<0 then
s:=s+a[i,j];
end;
max:=a[1,2];
ind:=1;
for i:=1 to n do
if Abs(a[i,2])>Abs(max) then
begin
max:=a[i,2];
ind:=i;
end;
a[ind,2]:=s;
Writeln;
Writeln;
Writeln('a)Summ: ',s);
writeln('b)Max: ',max);
Writeln;
Writeln('c)');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.