Ответы
Ответ дал:
0
Program n_5;
var
a, b: real;
begin
write ('введите длину прямоугольника - ');
readln (a);
write ('введите ширину прямоугольника- ');
readln (b);
if a=b then
write ('Данный прямоугольник является квадратом')
else
write ('Данный прямоугольник не является квадратом');
end.
var
a, b: real;
begin
write ('введите длину прямоугольника - ');
readln (a);
write ('введите ширину прямоугольника- ');
readln (b);
if a=b then
write ('Данный прямоугольник является квадратом')
else
write ('Данный прямоугольник не является квадратом');
end.
Ответ дал:
0
Вбил программу в свой Pascal - работает
Ответ дал:
0
Для красоты можно поставить пробел перед тире во втором операторе write (я упустил из виду) и слова "введите" написать с большой буквы.
Программа не изменится, но красивее будет
Программа не изменится, но красивее будет
Ответ дал:
0
В моём паскале всё работает. Спасибо, а то было лень разбираться с операторами if и else, потому что до сих пор не понимаю как это работает. Ещё раз, огромное спасибо!
Ответ дал:
0
Если это представить на русском языке, то мою программу можно читать так:
Если a=b тогда if a=b then
выведи ('текст') write ('текст')
Иначе {если а не равно b} else {если а не равно b}
выведи ('текст') write ('текст')
Можно составить что-то по-сложнее
Если a>b тогда if a>b then
вывод ('text') write ('text')
Иначе else
Если a вывод ('text') write ('text')
Иначе else {Если не подходит ни одно
условие из тех, что выше}
вывод ('text') write ('text')
Надеюсь, теперь немного понятно)
Если a=b тогда if a=b then
выведи ('текст') write ('текст')
Иначе {если а не равно b} else {если а не равно b}
выведи ('текст') write ('текст')
Можно составить что-то по-сложнее
Если a>b тогда if a>b then
вывод ('text') write ('text')
Иначе else
Если a вывод ('text') write ('text')
Иначе else {Если не подходит ни одно
условие из тех, что выше}
вывод ('text') write ('text')
Надеюсь, теперь немного понятно)
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад