Написание программы

Сентябрь 5, 2022

Главная
Алгебра
Написание программы

Содержание

2. Задание: Требовалось написать программу, при выполнении которой с клавиатуры считываются координаты точки на плоскости ( Х,
3. Программа: Var x,y: real; Begin Readln(x); Readln(y); If x*x+y*y>=1 then If y>=0 then If y>=x* x-0.5
6. Скачать презентацию

Слайд 2

Задание:
Требовалось написать программу, при выполнении которой с клавиатуры считываются координаты точки

на плоскости ( Х, У – действительные числа) и определяется принадлежность этой точки заданной закрашенной области (включая границы). Программист торопился и написал программу неправильно.

Слайд 3

Программа:
Var x,y: real;
Begin
Readln(x);
Readln(y);
If xx+yy>=1 then
If y>=0 then
If y>=x* x-0.5 then
Write(‘Принадлежит’)
Else
Write(‘Не

принадлежит’)
end.

Слайд 4