Другие языки программирования и технологии

проверьте программу в паскале, что не так?

program z;
var a,b,x,y:real;
writeln ('Vvedite peremennye');
writeln ('Vvedite a');
readln (a);
writeln ("Vvedite b");
readln (b);
x=2*b-a:
y=a*7;
if x>y then
writeln ("x',x);
end.

ошибок не выдает, а вводится, б тоже вводится, а потом программа вылетает, что у меня не так?
может нужно еще одно условие добавить? там если у>x то выводить у
MO
Mahmudjan Olimov
543
Если не нужно по условию задачи выводить значение у, то и else тоже не нужно в данном случае.
А вот бегин - безусловно пропущено.. .
Вставь бегин и подбери значения вводимых переменных, чтобы икс был больше игрека, для проверки. Но я бы всё-таки вывела ещё и игрек, для себя.
Выглядеть будет эта ветка так:
If x>y then
writeln ('X: ',x:2:2);
Else
writeln ('Y: ',y:2:2);

И вот что ещё: ты не увидишь расчёта, они делаются в другом окне, которое моментально закрывается.
Есть какая-то кнопка в паскале, которая открывает окно, но не помню, какая - смотри описание. Намного проще временно остановить выполнение программы перед закрытием, вписав оператор Readln без параметра перед последним End.
Тогда окно с результатом выполнения программы будет доступно до нажатия любой клавиши, после чего возвращается в исходный текст.
В данном случае Uses CRT, как в варианте уважаемого Петрова, не нужно :-)
Арам Нанян
Арам Нанян
73 669
Лучший ответ
странный паскаль утебя настя - обычно при компиляции должен писать что не так. . двоеточие перед равно нехватает рас и два, кавычка кривая внизу три.. . а так - все номано...
Mahmudjan Olimov я проверила - в паскале все правильно было написано, с равно и правильными кавычками, просто когда сюда писала не заметила..
а проблема все равно есть(
if x>y then
Где else ?
И где Begin после var ?
Андрей Прийма
Андрей Прийма
1 111
Андрей Прийма И присвоить значение :=
Mahmudjan Olimov а else куда нужно?
Как то так:

uses CRT;
var a,b,x,y:real;
BEGIN
writeln ('Vvedite peremennye');
writeln ('Vvedite a');
readln (a);
writeln ('Vvedite b');
readln (b);
x:=2*b-a;
y:=a*7;
if x>y then
writeln ('x',x) else
writeln ('y',y);
readkey;
end.

Ну и перед тем как задать вопрос, его нужно сформулировать. Например объяснить что программа должна делать...
Mahmudjan Olimov теперь все работает, спасибо большое)))