Ответ:Program YouName; Uses crt; // Использование модуля crt. Const e = 2.71828; // Объявление константы e. Var // Раздел для описания переменных. m,n: Integer; // Объявляем целочисленные переменные. x,u,y: Single; // Объявляем дробные переменные. Label check1, check2; // Объявляем метки для оператора Goto. Begin // Начало "тела" программы. check1: // Метка для без условного перехода с оператора Goto. write('Введите m: '); // Вывод текстового сообщения на экран консоли. // {$I-} - это деректива, которая перехватывает вывод ошибок. // т.e., если во время выполнение программы между {$I-} и {$I+} не будет ошибок, // то значение IOResult будет равно 0. Если во время выполения программы произойдет ошибка, // то программа не остановится, а задаст значение IOResult неравное 0. // {$I+} соответственно отключает дерективу. {$I-} // Включение директивы. readln(m); // Ввод значения переменной m. {$I+} // Отключение директивы If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то.. Begin // Начало подпрограммы. writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли. writeln('Введите число'); // Вывод текстового сообщения на экран консоли. Goto check1; // Переход на метку check1 End; // Конец подпрограммы. check2: // Метка для без условного перехода с оператора Goto. write('Введите n: '); // Вывод текстового сообщения на экран консоли. {$I-} // Включение директивы. readln(n); // Ввод значения переменной n. {$I+} // Отключение директивы. If IOResult <> 0 then // Если IOResult не равно 0 (т.е есть ошибки во время включенной директивы $I), то.. Begin // Начало подпрограммы. writeln('Вы ввели неизвестный символ.'); // Вывод текстового сообщения на экран консоли. writeln('Введите число'); // Вывод текстового сообщения на экран консоли. Goto check2; // Переход на метку check2 End; // Конец подпрограммы. x:=(m*n-exp(ln(e)*((-m)*0.7)))/(2.67); // Вычисление x y:=ln(2)*(m+1); // Вычисление y u:=0.125*sqrt(x/y)+exp(ln(e)*cos(x-y)); // Вычисление u writeln(u:0:4); // Вывод текстового сообщения на экран консоли. // u:0:4 - это задает переменной u четыре знака после запятой. End. // Конец "тела" программы.
Если твой вопрос не раскрыт полностью, то попробуй воспользоваться поиском на сайте и найти другие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 18.06.2019
Дано натуральное число n( n<9999). cколько цифр в числе n . паскаль
Информатика, опубликовано 18.06.2019
Информатика, опубликовано 18.06.2019
Задано два целых числа А и В найдите сумму ничетных чиселот А до В
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
В каталоге находятся файлы. Определите, по какой из масок будет выбрано ровно 3 файла:
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Информационный объём сообщения из 50 символов алфавита, состоящего из 16 букв, в битах равен
Информатика, опубликовано 13.06.2019
Информатика, опубликовано 13.06.2019
Дан массив А. Заполнить массив В индексами элементов массива А,равных 0.
Информатика, опубликовано 13.06.2019
Геометрия, опубликовано 13.06.2019
В треугольнике ABC провели биссектрису BL. Докажите, что AB >AL
Математика, опубликовано 13.06.2019
Помогите пожалуйста решить функцию и как ее нарисовать.Очень нужно пожалуйста.
Математика, опубликовано 13.06.2019
Помогите пожалуйста решить функцию и как ее нарисовать.Пожалуста помогите
Геометрия, опубликовано 13.06.2019
Найдите наибольший угол четырехугольника, если они пропорциональны числам 2,3,7 и 8
География, опубликовано 13.06.2019
В результате каких геологических причин образовались Великие Озера?
Английский язык, опубликовано 13.06.2019
Ребят !!!!помогите срочно плиииз !!!дам корону (вся страница)и дам 20 баллов !!!
Биология, опубликовано 13.06.2019
Алгебра, опубликовано 13.06.2019
Геометрия, опубликовано 13.06.2019
Найдите m и n, если векторы (-4; m), (2;-3), с (n; 9) коллинеарны.