Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение

@mihan2333 · Регистрация: 22.05.2012

Author24 — интернет-сервис помощи студентам

Пожалуйста помогите!!!!!не могу получить зачёт...нужно решить эти задания...кому не трудно помогите... заранее очень благодарен))

I. Изобразить на плоскости (X, Y) область, в которой и только в которой истинно указанное выражение
(X >= -1) and (X <= 0) and (Y >= -2) and (Y <= -X) or (X >= 0) and (X <= 1) and (Y >= -2) and (Y <= X)
II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

Pascal

    Program Summa;
    Begin
        Var X, Y : Integer; Z : Boolen;
        WriteLn('Введите X и Y: '); ReadLn(X; Y);
        If X + Y > 0 Then Z := True; Else Z := False;
        WriteLn(Z);
    End.

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

Pascal

        Program Kr_2;
        Var A, B, C, S : Real;
        Begin 
            WriteLn('Введите A, B, C: '); ReadLn(A, B, C);
            If SQR(A) + SQR(B) = SQR(C) 
            Then    begin
                    S := 0.5 * A * B; 
                    WriteLn('Являются; S = ', S : 7 : 2)
                end
            Else WriteLn('Не являются')
        End.

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

@klast · 22.05.2012, 12:51

Сообщение от mihan2333

II. Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.

По моему мнению..))
Правильный вариант:

Pascal

Program Summa;
Var X, Y : Integer; Z : Boolean;
Begin
Write('Введите X и Y: '); ReadLn(X, Y);
If X + Y > 0 Then Z := True;
WriteLn(Z);
End.

Ошибки:
1) var (объявление переменных) после begin'a
2) > ReadLn(X; Y); вместо ; должна быть запятая
3) ну, и не столь значительная ошибка, но лишняя писанина - else z:=false; z изначально у нас false

@mihan2333 · 22.05.2012, 12:53 **[ТС]**

klast, благодарю)))

@klast · 22.05.2012, 13:53

Сообщение от mihan2333

III. Точно и четко сформулировать условие задачи, которая решается в данной программе

Задача
Определить являются ли a,b катетами, a c гипотенузой прямоугольного треугольника. Если так, то вывести площадь треугольника с точностью до сотых.
Ввод #1
4 3 5
Вывод #1
Являются; S= 6.00

Ввод #2
1 1 1
Вывод #2
Не являются

Добавлено через 45 минут

Сообщение от mihan2333

IV. Придумать и записать высказывание, которое может быть истинным или ложным. Записать соответствующее ему логическое выражение, имеющее значение TRUE, если высказывание истинно, и FALSE в противном случае.

Введите 3 числа a,b,c. a - первое слагаемое, b - второе слагаемое, c - сумма

Pascal

var
  a, b, c: integer;
 
begin
  readln(a, b, c);
  writeln(a, '+', b, '=', c);
  writeln(a + b = c);
end.

@mihan2333 · 22.05.2012, 22:47 **[ТС]**

)))

klast,

Добавлено через 8 часов 38 минут
Ребят,помогите кто нибудь с 1-й задачей?

@klast · 23.05.2012, 09:27

mihan2333, запость в новую тему

@mihan2333 -7 / 8 / 0 Регистрация: 22.05.2012 Сообщений: 34
	22.05.2012, 12:53 [ТС]	3
	klast, благодарю))) 1

@mihan2333 -7 / 8 / 0 Регистрация: 22.05.2012 Сообщений: 34
	22.05.2012, 22:47 [ТС]	5
	))) klast, Добавлено через 8 часов 38 минут Ребят,помогите кто нибудь с 1-й задачей? 1

@klast тыдыщ 206 / 189 / 166 Регистрация: 19.01.2011 Сообщений: 483
	23.05.2012, 09:27	6
	mihan2333, запость в новую тему 0