Sqr x sqrt y где ошибка

Ошибка

Яша плавал в бассейне размером NM метров и устал. В этот момент он обнаружил, что находится на расстоянии x метров от одного из длинных бортиков (не обязательно от ближайшего) и y метров от одного из коротких бортиков. Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик?

Программа получает на вход числа N, M, x, y. Программа должна вывести число метров, которое нужно проплыть Яше до бортика.

Ошибка: Program9.pas(28) : Ошибка времени выполнения: Input string was not in a correct format
Ребят такая ошибка: Program9.pas(28) : Ошибка времени выполнения: Input string was not in a correct.

Ошибка в коде , ошибка 200
Всем привет, помогите пожалуйста, я новичек в Паскале, вот программа, суть её переводить любое.

IIS- asp ошибка: HTTP 500.100 — Внутренняя ошибка сервера — ошибка ASP Internet Information Services
Привет! Конфигурация win2000pro sp2, стандартный IIS, IE 5. При попытке обратиться к.

Ошибка при чтении изменений при обмене РИБ: Ошибка при вызове метода контекста (ПрочитатьИзменения): Ошибка записи!
Доброго всем времени суток! подскажи пожалуйста как исправить ошибку: Ошибка при чтении изменений.

паскаль выдаёт ошибку «ожидался идентификатор».

program
var x1,y1,x2,y2,x3,y3,a,b,c,p,h,m,s:real;
begin
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x1-x3)+sqr(y1-y3));
c:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=(a+b+c)/2;
h:=2*sqrt(p*(p-a)*(p-b)*p-c))/2;
m:=sqrt(2*sqr(b)+2*sqr(c)-sqr(a))/2;
s:=sqrt(p*(p-a)*(p-d)*(p-c));
end.

Естественно будет выдавать! После служебного слова program должно следовать собственно имя программы, завершающееся точкой с запятой. Имя программы должно удовлетворять требованиям, предъявляемым к идентификаторам. Примерно так

После того, как устраните эту ошибку, советую прислушаться к другим ответам на счет ввода данных и вывода результата работы программы.

Кстати, вышеприведенную строку можно исключить. На работоспособности программы это не отразится.

Ошибка в pascal (Встречен конец файла, а ожидался оператор) Помогите, что нужно дописать чтобы ошибка исчезла?

Ошибка в pascal (Встречен конец файла, а ожидался оператор) Помогите, что нужно дописать чтобы ошибка исчезла?

Функция : function sqrt1 (a, b, c : real) : real ; begin if (2 * a + b — c) &lt ; 0 then writeln (‘ complex number ‘) — проверка на комплексные числа else sqrt1 : = sqrt(2 * a + b — c) ; end ;

Нужно что — то присвоить функции для случая, когда (2 * a + b — c)&lt ; 0

function sqrt1 (a, b, c : real) : real ;

if (2 * a + b — c) &lt ; 0 then

beginwriteln (‘ complex number ‘) ; sqrt1 : = — 1 ; end

else sqrt1 : = sqrt(2 * a + b — c) ;

Program P1 ; uses crt ;varx : real ;y : real ;begin clrscr ; write(‘Введите x : ‘) ; readln(x) ; write(‘Введите y : ‘) ; readln(y) ; if (y&lt ; = sqrt(9 — (sqr(x + 3)))) and (?

begin clrscr ; write(‘Введите x : ‘) ; readln(x) ; write(‘Введите y : ‘) ; readln(y) ; if (y&lt ; = sqrt(9 — (sqr(x + 3)))) and (x&gt ; = — 3) and (y&gt ; = 0) and (x&lt ; = 0) and (y&lt ; = 3)or (y&gt ; = — sqrt(9 — (sqr(x + 3)))) and (x&lt ; = 3) and (y&lt ; = 0) and (x&gt ; = 0) and (y&gt ; = — 3)then writeln(‘Значение принадлежит области функции’) ; else writeln(‘Значение не принадлежит области функции’) ; readkey ; end.

Pas(21) : Встречено ‘else’, а ожидался оператор?

Program lab1 ; varx, y : real ; begin writeln(‘введите x’) ; readln(x) ; begin if (abs(x)&lt ; = 1) then y : = sqr(x) — 1 ; else if(abs(x)&gt ; 1) and (abs(x)&lt ; = 2) then y : = 2 * x — 1 ; else if ?

Program lab1 ; var

x, y : real ; begin writeln(‘введите x’) ; readln(x) ; begin if (abs(x)&lt ; = 1) then y : = sqr(x) — 1 ; else if(abs(x)&gt ; 1) and (abs(x)&lt ; = 2) then y : = 2 * x — 1 ; else if (abs(x)&gt ; 2) then y : = exp(5 * ln(x)) — 1 ; end ; writeln (‘y = ‘, y) ; End.

Где ошибка в программе?

Пишет : : Встречено ‘else’, а ожидался оператор.

Нужно найти у, при определенных значениях х.

Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b — 4 * a * c ; Read(a, b, c) ; if D&lt ; 0 Then Writeln (‘корней нет’) else if D = 0 then begin x : = — b / (2 * a) : Writeln(x) ; end ; e?

Program Dr ; Var a, b, c, D, x1, x2 : Real ; Begin D : = b * b — 4 * a * c ; Read(a, b, c) ; if D&lt ; 0 Then Writeln (‘корней нет’) else if D = 0 then begin x : = — b / (2 * a) : Writeln(x) ; end ; else begin x1 : = ( — b — SQRT(D)) / (2 * a) ; x2 : = ( — b + SQRT(D)) / (2 * a) ; Writeln(x1) ; Writeln(x2) ; end ; end.

Pas(9) : Встречено ‘else’, а ожидался оператор.

Составить программу вычисления значения функции (при любом значении x) :y = sin(3, 2 + (sqr(1 + x)) : (sqrt(sqr(5 * x)))Что не правильно?

Составить программу вычисления значения функции (при любом значении x) :

y = sin(3, 2 + (sqr(1 + x)) : (sqrt(sqr(5 * x)))

Что не правильно?

var x : integer ; y : real ;

y : = sin(3, 2 + (sqrt(1 + x)) : (sqrt(sqr(5 * x))) ;

Program kv_ur ;uses crt ;vara, b, c, d : integer ;x1, x2, x : real ;beginWriteln (‘Введите a, b, c’) ;Read (a, b, c) ;d : = sqr(b) — 4 * a * c ;if d&gt ; 0 thenbeginx1 : = — b — sqrt(d) / 2 * a ;x2 : ?

a, b, c, d : integer ;

Writeln (‘Введите a, b, c’) ;

d : = sqr(b) — 4 * a * c ;

x1 : = — b — sqrt(d) / 2 * a ;

x2 : = — b + sqrt(d) / 2 * a ;

Writeln (‘Корни уравнения : x1 = ‘, x1, ‘ x2 = ‘, x2) ;

Write (‘Нет корней’)

Writeln (‘Корень уравнения : x = ‘, x) ;

Program TELESHOP ; var x : real ; begin writeln (‘?

Program TELESHOP ; var x : real ; begin writeln (‘.

‘) ; readln (x) ; if x&lt ; = 1 then begin if x = 1 then begin writeln (‘.

‘) ; end else begin writeln (‘.

‘) ; end ; * else begin writeln (‘.

«встречено ‘else’, а ожидалось оператор» Вопрос : в чем ошибка?

Var a, b, c : real ; begin read(a, b) ; writeln (‘введите2 числа’) var(a&gt ; b) do c : = a / b else c : = b / a writeln(‘частное = ‘c) end?

Var a, b, c : real ; begin read(a, b) ; writeln (‘введите2 числа’) var(a&gt ; b) do c : = a / b else c : = b / a writeln(‘частное = ‘c) end.

Пишет ожидался оператор.

Помогите по программированию?

Помогите по программированию.

Составьте программу по этой блок схеме.

Например : program z1 ; var x, y : real ; begin writeln(‘введите два числа’) ; read(x) ; if x&gt ; 0 then y : = SQRT(x) writeln(‘y = ‘, y) ; end.

Пожалуйста помогите?

Нужна только блок — схема.

Var x : real ; begin x : = — 1.

23 do begin if x&lt ; 0 then Writeln(‘X = ‘, x : 5 : 2, ‘, логарифм определен только для X&gt ; 0’) else Writeln(‘X = ‘, x : 5 : 2, ‘, Y = ‘, 5.

3 * sqrt(abs(x * x * x)) + cos(ln(x) + 12.

Pascal abcvara, c, d : real ;b : char ;begin?

Выдает ошибку «нельзя преобразовать тип string к real»

Если вам необходимо получить ответ на вопрос Ошибка в pascal (Встречен конец файла, а ожидался оператор) Помогите, что нужно дописать чтобы ошибка исчезла?, относящийся к уровню подготовки учащихся 5 — 9 классов, вы открыли нужную страницу. В категории Информатика вы также найдете ответы на похожие вопросы по интересующей теме, с помощью автоматического «умного» поиска. Если после ознакомления со всеми вариантами ответа у вас остались сомнения, или полученная информация не полностью освещает тематику, создайте свой вопрос с помощью кнопки, которая находится вверху страницы, или обсудите вопрос с посетителями этой страницы.

8000 Как — то так Вроде все верно.

(85 * 1024 * 1024 * 8) / (13 * 50 * 68 * 8) = 2016. 49 Следовательно имеется 2016 целых досье.

A : min = 1 ; Б : min = 5 В : min = 2 var a, b, c, min : real ; begin writeln('Введите три числа') ; readln(a, b, c) ; min : = a ; if b.

15ₓ * 4ₓ = 112ₓ (x > 5, так как присутствует цифра "5") Тут такая закономерность, что чем больше X, тем "меньше" ответ. Методом подбора определяем, что x = 6. Ответ : в 6 — тиричной.

Вот : 1. Самый короткий путь равен 16 ; 2. 22 ; 3. 21.

1. (b + sqrt(b * b + 4 * a * c)) / (2 * a) — a * a * a * c + 1 / (b * b) 2. (a / c) * (b / d) — (a * b — c) / (c * d) 3. X — x * x * x / 3 + x * x * x * x * x / 5 4. (x + y) / (x + 1) — (x * y — 12) / (34 + x).

Символ — 1 байт ; Строка — 50 символов — 50 байт — 400 бит Страница — 40 строк — 2000 символов — 2000 байт — 16000 бит Статья — 30 страниц — 1200 строк — 60000 символов — 60000 байт — 480000бит

Второе задание) program qwe ; var a, b, c : integer ; begin readln(a, b) ; c : = (a + b) * 2 ; writeln(c) ; end.

Sqr x sqrt y где ошибка

Вопрос по информатике:

Выражение записано на языке Паскаль: sqrx−sqrty. Какая ошибка допущена?
аргумент записан без скобок
для обозначения переменных используются буквы латинского алфавита
нет верного ответа
нет такой функции sqr

Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?

Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок — бесплатно!

• 08.01.2016 20:38
• Информатика
• remove_red_eye 6026
• thumb_up 34

Ответы и объяснения 1

• 09.01.2016 23:46
• thumb_up 15

Знаете ответ? Поделитесь им!

Как написать хороший ответ?

Чтобы добавить хороший ответ необходимо:

• Отвечать достоверно на те вопросы, на которые знаете правильный ответ;
• Писать подробно, чтобы ответ был исчерпывающий и не побуждал на дополнительные вопросы к нему;
• Писать без грамматических, орфографических и пунктуационных ошибок.

Этого делать не стоит:

• Копировать ответы со сторонних ресурсов. Хорошо ценятся уникальные и личные объяснения;
• Отвечать не по сути: «Подумай сам(а)», «Легкотня», «Не знаю» и так далее;
• Использовать мат — это неуважительно по отношению к пользователям;
• Писать в ВЕРХНЕМ РЕГИСТРЕ.

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи — смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.