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 то выводить у
Другие языки программирования и технологии
проверьте программу в паскале, что не так?
Если не нужно по условию задачи выводить значение у, то и else тоже не нужно в данном случае.
А вот бегин - безусловно пропущено.. .
Вставь бегин и подбери значения вводимых переменных, чтобы икс был больше игрека, для проверки. Но я бы всё-таки вывела ещё и игрек, для себя.
Выглядеть будет эта ветка так:
If x>y then
writeln ('X: ',x:2:2);
Else
writeln ('Y: ',y:2:2);
И вот что ещё: ты не увидишь расчёта, они делаются в другом окне, которое моментально закрывается.
Есть какая-то кнопка в паскале, которая открывает окно, но не помню, какая - смотри описание. Намного проще временно остановить выполнение программы перед закрытием, вписав оператор Readln без параметра перед последним End.
Тогда окно с результатом выполнения программы будет доступно до нажатия любой клавиши, после чего возвращается в исходный текст.
В данном случае Uses CRT, как в варианте уважаемого Петрова, не нужно :-)
А вот бегин - безусловно пропущено.. .
Вставь бегин и подбери значения вводимых переменных, чтобы икс был больше игрека, для проверки. Но я бы всё-таки вывела ещё и игрек, для себя.
Выглядеть будет эта ветка так:
If x>y then
writeln ('X: ',x:2:2);
Else
writeln ('Y: ',y:2:2);
И вот что ещё: ты не увидишь расчёта, они делаются в другом окне, которое моментально закрывается.
Есть какая-то кнопка в паскале, которая открывает окно, но не помню, какая - смотри описание. Намного проще временно остановить выполнение программы перед закрытием, вписав оператор Readln без параметра перед последним End.
Тогда окно с результатом выполнения программы будет доступно до нажатия любой клавиши, после чего возвращается в исходный текст.
В данном случае Uses CRT, как в варианте уважаемого Петрова, не нужно :-)
странный паскаль утебя настя - обычно при компиляции должен писать что не так. . двоеточие перед равно нехватает рас и два, кавычка кривая внизу три.. . а так - все номано...
if x>y then
Где else ?
И где Begin после var ?
Где else ?
И где Begin после var ?
Андрей Прийма
И присвоить значение :=
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.
Ну и перед тем как задать вопрос, его нужно сформулировать. Например объяснить что программа должна делать...
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
теперь все работает, спасибо большое)))
Похожие вопросы
- Проверить программу на Паскаль
- Проверьте программу на паскале.
- Программа на паскале! Помогите(бесплатно)
- Нужно написать программы в Паскале! Массивы! Срочно! Помогите!
- Нужно написать программу на паскале
- Написать программу в Паскале для построения графика функций. К программе желательно составить алгоритм.
- Программа в Паскале
- Помогите составить программу на паскале!
- Время работы программы в Паскаль
- Объясните как работает программа в паскаль!!!
а проблема все равно есть(