Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
antiv18
0 / 0 / 1
Регистрация: 18.01.2010
Сообщений: 9
#1

Вывести TRUE - Pascal

15.05.2010, 14:15. Просмотров 349. Ответов 1
Метки нет (Все метки)

Всем доброго времени суток!
Вот две задачки:

1.С клавиатуры вводятся координаты точки А.Вывести TRUE , если точка находится по правую сторону от графика функции y=2*x+3, FALSE - в ином случае .

2.С клавиатуры вводятся 3 числа X,Y и Z.
Вывести на экран TRUE в случае, если можно составить ПРЯМОУГОЛЬНЫЙ треугольник из сторон с длинами рёбер , равным данным числам.Вывести FALSE в ином случае.

Всем заранее спасибо!
http://www.cyberforum.ru/pascal/thread258752.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 14:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести TRUE (Pascal):

Если в наборе присутствует число, меньшее K, то вывести True
Я в паскали совершенно ничего не понимаю, но мне задаи непонятные для моего...

True or False|Вывести длину данного отрезка в метрах
1.Даны координаты (как целые от 1 до 8) двух различных полей шахматной...

Вывести true если введенный символ является гласной буквой
Программа должна выдавать true если введенный символ является гласной....

Если ферзь за один ход может перейти с одного поля на другое, вывести логическое значение True
Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски....

Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если нет - FALSE
Дано целое число N>0, если оно является степенью числа 3 то вывести TRUE, если...

1
Vovan-VE
13148 / 6531 / 1038
Регистрация: 10.01.2008
Сообщений: 15,071
15.05.2010, 15:02 #2
Лучший ответ Сообщение было отмечено antiv18 как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
var x,y:Real;
begin
    write('x=');
    readln(x);
    write('y=');
    readln(y);
    writeln(y < 2*x+3);
    readln;
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var x,y,z:Real;
begin
    write('x=');
    readln(x);
    write('y=');
    readln(y);
    write('z=');
    readln(z);
    if x>y then begin
        if x>z then begin
            writeln(sqr(x) = sqr(y)+sqr(z));
        end else begin
            writeln(sqr(z) = sqr(x)+sqr(y));
        end;
    end else begin
        if y>z then begin
            writeln(sqr(y) = sqr(x)+sqr(z));
        end else begin
            writeln(sqr(z) = sqr(x)+sqr(y));
        end;
    end;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 15:02
Привет! Вот еще темы с решениями:

True or False
1.Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые...

True и false
Составить логическое выражение, значение которого true или false Задача: все...

TRue or false
составить программу, печатающее значение true или false. Даны вещественные...

True, false...
Помогите плиз...:'( Заданы действительные величины x,y и логические p и q....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru