Кодинг
★ Рубрика: Кодинг
★ Тема: Pascal

Принадлежность точки прямой - Паскаль

Задача. Определить лежит ли точка а на прямой y=kx+l. Решение.
uses crt;
var x,y,l,k : integer;
begin
 clrscr;
 write('x=');readln(x);
 write('y=');readln(y);
 write('k=');readln(k);
 write('l=');readln(l);
 if y=k*x+l then write('Да')
 else write('Нет');
 readln;
end.
 Похожие публикации: Pascal

Войти и комментировать [ Вход | Регистрация ]