М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ttmail95
ttmail95
22.11.2020 18:36 •  Информатика

Написать решение Программ в ПАСКАЛЕ
1. Дан круг радиуса R. Если радиус больше 10, найти площадь круга, иначе вывести радиус без изменений.
2. Даны координаты двух точек на числовом луче. Сравните значение координат и выведете сообщение о том какая точка дальше от 0.

👇
Ответ:
veronikadedylia
veronikadedylia
22.11.2020

1.

program z1;

var r:real;

begin

write ('Введите радиус круга ');

readln (r);

if r>10 then write ('Площадь круга ',r*r*3.1415926:0:3)

else write ('Радиус круга ',r)

end.

2.

program z2;

var x1,x2:real;

begin

write ('Введите координаты двух точек на числовом луче ');

readln (x1,x2);

if abs(x1)>abs(x2) then write (x1,' дальше от 0 ')

else if abs(x1)<abs(x2) then write (x2,' дальше от 0 ')

else write ('Точки одинаково удалены от 0 ')

end.

4,6(49 оценок)
Открыть все ответы
Ответ:
aidana70
aidana70
22.11.2020

Ошибки в программе:

Program primer - не хватает точки с запятой

Var a,b: integer;

Begin ; - не ошибка, необязательная точка с запятой

 ReadLn( a,b); - не ошибка, лишний пробел после скобки, здесь и дальше не хватает пробелов между аргументами функций, знаками

 s=a+b; - не хватает двоеточия в :=

 m:=a*b;

 d:=a:b; - переменная d не была описана; деление - это /

 WriteLn(s);

 WriteLn(m);

 WriteLn(d)

End - не хватает точки.

 

Исправленная программа:

Program primer;

Var a, b: integer;

  d: real;

Begin

  ReadLn(a, b);

  s := a + b;

  m := a * b;

  d := a / b;

  WriteLn(s);

  WriteLn(m);

  WriteLn(d)

End.

4,5(72 оценок)
Ответ:
Тупой7А
Тупой7А
22.11.2020
Top и Left определяют расстояние от границы поля до верхней и левой границы контейнера, в котором поле находится, соответственно. Name определяет системное имя поля, Color-цвет поля, Text-отображаемый текст на поле, Enabled-возможность взаимодействия с полем(к примеру кликнуть по полю), Visible-видимость поля, Font-шрифт отображаемого текста. Изменить текст в поле можно с метода setText("Строка"). Разместить поле на форме можно с метода add(<компонент>), или с визуального инструмента в Visual Studio, Qt Designer. И самое важное: поле нужно в программе для взаимодействия человека с программой, а так же настройки графического интерфейса. А вот отличие для поля и формы я не знаю((
4,5(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ