Pascal | SEclub.org
Pascal
Все новые
Apгoн, подскажи,где можно скачать последнюю версию программы!

Ссылка на пост
Всего сообщений: 731
*
SssK SpektR
31 янв 2008 в 07:34
Люди помогите теперь в нём разобратся а то чегото недопонимаю:) очень нужна помощь :)
*
Aul
31 янв 2008 в 15:53
Apгoн, подскажи,где можно скачать последнюю версию программы!
*
Nistel89
12 мар 2008 в 19:10
Всем привет! :vsempr: Ребят пожалуйста, помогите срочно! Не могу справиться с задачей хоть убейте! Дано уравнение y=k*x+b и даны координаты точки А. Определить находится ли точка А выше, ниже или на данной прямой. Помогите, я уже два дня над ней бьюсь!
*
Andrey k81Oi
12 мар 2008 в 19:17
Nistel89, б и к даны?
*
Nistel89
12 мар 2008 в 19:25
Andrey k81Oi, значения произвольные! Ну я брал их по единице
*
foont
12 мар 2008 в 19:35
Nistel89, program Project2; var k,b,x,y:real; begin readln(k,b); readln(x,y); if (k*x+b)>y then writeln("To4ka nije") else writeln("To4ka viwe"); readln end.
*
Nistel89
12 мар 2008 в 19:42
foont, спасибо большое! А я блин столько всего понаписал! Я сейчас попробую.
*
Nistel89
12 мар 2008 в 19:46
foont, только проблема небольшая, прога выдает что точка ниже в случае когда она леждит на прямой!
*
foont
12 мар 2008 в 19:55
Nistel89, program Project2; uses SysUtils; var k,b,x,y:real; begin readln(k,b); readln(x,y); if (kx+b)=y then writeln("To4ka na pryamoi") else begin if (kx+b)>y then writeln("To4ka nije") else writeln("To4ka viwe"); end; readln end.
*
Nistel89
12 мар 2008 в 20:05
foont, спасибо! Все работает! Только зачем ты подключал библиотеку SysUtils? она у меня к слову отсутствует!
*
foont
12 мар 2008 в 20:07
Nistel89, забыл удалить=), это в турбо делфи автоматом пишется :(
*
Ste@k
13 мар 2008 в 10:59
У меня задание: напечатать все трехзначные числа, которые состоят из разных цифр. Как сделать?
Скачать тему
Для полноценного использования разделов сайта войдите или зарегистрируйтесь.
Создание сайтов и программирование | Компьютеры | Форум | Главная
18+ © Seclub.org 2003-2023