Проверить, выполняются ли неравенства a<b<c

@Ufa · Регистрация: 21.04.2010

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

помогите с любой задачей...
1) Даны действительные числа a, b, c. Проверить, выполняются ли неравенства a<b<c.

2) Даны два действительных числа. Заменить первое число нулем, если оно равно второму, и оставить числа без изменения в противном случае.

3) Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу [1,3].

4) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

5) Даны положительные действительные числа x, y, z. Выяснить существует ли треугольник с длинами сторон x, y, z.

6) Даны целые числа a, b. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

7) Даны три вещественных числа x, y, z. Вычислить значения выражений x + y + z и xyz и вывести максимальное из них.

8) Даны две точки: А(x1,y1) и B(x2,y2). Составить алгоритм, определяющий, которая точка находится ближе к началу координат.

9) Заданы координаты вершин треугольника и точки. Определить, лежит ли точка внутри треугольника.

10)Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное.

11)Проверить имеет ли квадратное уравнение вида ax2+bx+c=0 действительные корни. Если да, то найти их.

12) Составить программу упорядочивания трех чисел x, y, z по возрастанию.

13)Составить программу, проверяющую верно ли утверждение, что сумма цифр введенного двузначного целого числа делится без остатка на 5.

14)Дано некоторое целое двузначное число. Проверить, равна ли сумма его цифр числу 7.

15)Определить, находится ли точка с координатами x, y во второй координатной четверти.

16)Даны две переменные целого типа А и В. Если их значение не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения.

17)Известны площади круга и квадрата. Определить, поместится ли круг в квадрате?

21) Определите номер квадранта, в котором находится точка с заданными координатами x,y.

@nuHrBuH · 13.03.2011, 13:09

Задания всей группы взяли? )

@Ufa · 13.03.2011, 13:13 **[ТС]**

решили что так проще будет

Добавлено через 1 минуту
я 16 решил но правильно или нет не знаю

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Var a,b:integer;
 Begin
 Writeln('Введите число');
 Readln(a);
 Writeln('Введите число');
 Readln(b);
 If a<>b then
 begin
 a:=a+b;
 b:=a;
 end
 else
 begin
 a:=0;
 b:=0;
 end;
 Writeln('a=',a);
 Writeln('b=',b);
 Readln;
 End.

@nuHrBuH · 13.03.2011, 13:13

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

2) Даны два действительных числа. Заменить первое число нулем, если оно равно второму, и оставить числа без изменения в противном случае.

Pascal
1
2
3
4
5
6
7
8
9
var
   x,y : real;
begin
  write('x,y : '); readln(x,y);
  if x = y
    then
         x := 0;
  writeln('result :',x:3:2,'   ', y:3:2);
end.

@Ufa · 13.03.2011, 13:16 **[ТС]**

как в паскале пишется модуль, и степень в кубе

@nuHrBuH · 13.03.2011, 13:22

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

3) Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу [1,3].

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
   x : array[1..3] of byte;
    i : byte;
begin
   writeln('vvedite chisla : ');
   for i:=1 to 3  do
     read(x[i]);
   
   
   writeln('числа, пренадлежащеие интервалу :');
   for I:=1 to 3 do
     if x[i] in [1..3]
        then
             write(x[i],'  ');
end.

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

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

как в паскале пишется модуль, и степень в кубе

abs(x) - модуль числа х
exp( ln(chislo) * stepen) - вознесение в степень

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

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

4) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses wincrt;
var
   x : array[1..3] of real;
   i : byte;
 
begin
  writeln('vvedite chisla :');
  for i:=1 to 3 do
   read(x[i]);
 
  for i:=1 to  3 do
    if x[i] > 0
       then
           x[i] := sqr(x[i]);
 
  writeln('result:');
 
  for i:=1 to  3 do
   write(x[i]:3:1,' ');
end.

@Ufa · 13.03.2011, 13:24 **[ТС]**

а как будет написано е в степени 2х и 3х

@nuHrBuH · 13.03.2011, 14:02

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

5) Даны положительные действительные числа x, y, z. Выяснить существует ли треугольник с длинами сторон x, y, z.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses wincrt;
var
  x,y,z : real;
   i : byte;
 
begin
  writeln('vvedite chisla :');   readln(x,y,z);
 
  if (x+y < z) or ( x+z < y) or ( y+z < x)
     then
         writeln('takgo treugolnika ne sushestvuet')
     else
         writeln('da');
 
 
end.

Добавлено через 28 секунд

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

а как будет написано е в степени 2х и 3х

exp(2*x)

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

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

6) Даны целые числа a, b. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses wincrt;
var
  x,y,z : integer;
   i : byte;
 
begin
  writeln('vvedite chisla :');   readln(x,y);
 
  if x <> y
     then
         begin
              z := x;
              x := x + y;
              y := z + y;
         end
     else
         begin
              x := 0;
              y := 0;
         end;
 
  writeln(x,'   ',y);
 
end.

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

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

7) Даны три вещественных числа x, y, z. Вычислить значения выражений x + y + z и xyz и вывести максимальное из них.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses wincrt;
var
  x,y,z : real;
 
begin
  writeln('vvedite chisla :');   readln(x,y,z);
 
  if (x + y + z) > (x*y*z)
     then
         writeln('(x+y+z) > (x*y*z).  x+y+z = ',(x+y+z):3:2)
     else
       writeln('(x*y*z) > (x+y+z).  x*y*z = ',(x*y*z):3:2);
 
 
end.

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

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

8) Даны две точки: А(x1,y1) и B(x2,y2). Составить алгоритм, определяющий, которая точка находится ближе к началу координат.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses wincrt;
var
  x1,y1,x2,y2 : real;
 
begin
  writeln('vvedite koordinaty A :');   readln(x1,y1);
  writeln('vvedite koordinaty b :');   readln(x2,y2);
 
  if sqrt(x1*x1 + y1*y1) > sqrt(x2*x2 + y2*y2)
     then
         writeln('tochka A dalshe')
     else
         writeln('tochka B dalshe');
 
 
end.

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

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

10)Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses wincrt;
var
  x,y : integer;
 
begin
  writeln('vvedite chisla:');   readln(x,y);
 
  if x mod 2 = 0
     then
         writeln('x chetnoe')
     else
         writeln('x nechetnoe');
 
  if y mod 2 = 0
     then
         writeln('y chetnoe')
     else
         writeln('y nechetnoe');
 
end.

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

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

11)Проверить имеет ли квадратное уравнение вида ax2+bx+c=0 действительные корни. Если да, то найти их.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses wincrt;
var
  a,b,c,D : real;
      n : char;
 
begin
 repeat
  clrscr;
  writeln('vvedite koeficienty:');   readln(a,b,c);
  writeln(a:2:1,'x^2 + ',b:2:1,'x + ',c:2:1);
  write('verno? (y/n) _ '); readln(n);
 until (n='y')or(n='Y')or(n='+');
 
  d:=b*b - 4*a*c;
 
  if d < 0
     then
         writeln('kornei net')
     else
         if D = 0
            then
                writeln('x =', (-b/(2*a)):3:2 )
            else
                begin
                     writeln('x1 = ', ( (-b+sqrt(d) )/(2*a) ) :3:2 );
                     writeln('x2 = ', ( (-b-sqrt(d) )/(2*a) ) :3:2 );
                end;
 
 
end.

@Просто лис · 13.03.2011, 14:09

1 задача

Pascal
1
2
3
4
5
6
7
8
9
 Var a,b,c:integer;
 begin
 Writeln('vvedite a,b,c');
 Readln(a,b,c);
 if ((a<b) and (b<c))
 Then Writeln('da')
 else Writeln('net');
 readln;
 end.

7 задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
Var x,y,z,a,b:real;
begin
Writeln('vvedite x,y,z');
readln(x,y,z);
a:=x+y+z;
b:=x*y*z;
if a>b
then Writeln(a)
else Writeln(b:1:1);
readln;
end.

8 задача

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Var x1,y1,x2,y2,a,b:integer;
begin
Writeln('vvedite koordinati tochki A');
readln(x1,y1);
Writeln('vvedite koordinati tochki B');
readln(x2,y2);
if x1<0
then a:=-x1+y1
else if y1<0
then a:=x1+(-y1)
else
if ((x1<0) and (y1<0))
then a:=-x1+(-y1)
else a:=x1+y1;
if x2<0
then b:=-x2+y2
else if y2<0
then b:=x2+(-y2)
else
if ((x2<0) and (y2<0))
then b:=-x2+(-y2)
else b:=x2+y2;
if a<b
then Writeln('blizhe tochka A')
else Writeln('blize tochka B');
readln;
end.

@SunEclipse · 13.03.2011, 14:19

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

17)Известны площади круга и квадрата. Определить, поместится ли круг в квадрате?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a,b,c,d:real;
begin
write('Введите площадь круга:');
readln(a);
write('Введите площадь квадрата:');
readln(b);
c:=sqrt(a/pi);
d:=sqrt(b);
if c<d then 
writeln('Круг поместится в квадрат!')
else writeln('Круг не поместится в квадрат!');
end.

@nuHrBuH · 13.03.2011, 14:38

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

12) Составить программу упорядочивания трех чисел x, y, z по возрастанию.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses wincrt;
var
  x,y,z : integer;
 
begin
  writeln('x,y,z : '); readln(x,y,z);
 
  if (x<y) and (x<z) and (y<z)
     then
         write(x,' ',y,' ',z)
     else
         if (x>y) and (y<z) and (x>z)
            then
                write(y,' ',z,' ',x)
            else
                if (z<y) and (z<x) and (y<x)
                   then
                       write(z,' ',y,' ',x)
                   else
                       if (x<z) and (x<y) and (y>z)
                          then
                              write(x,' ',z,' ',y)
                          else
                              if (z<y) and (z<x) and (y>x)
                                 then
                                     write(z,' ',x,' ',y)
                                 else
                                     write(z,' ',x,' ',y);
 
 
 
 
end.

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

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

13)Составить программу, проверяющую верно ли утверждение, что сумма цифр введенного двузначного целого числа делится без остатка на 5.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses wincrt;
var
 x,d,r : byte;
 
begin
  write('x : '); readln(x);
 
  d := x div 10;
  r := d + (x - d*10);
 
  if r mod 5 = 0
     then
         write('verno')
     else
         write('neverno');
 
end.

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

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

15)Определить, находится ли точка с координатами x, y во второй координатной четверти.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses wincrt;
var
 x,y : real;
 
begin
  write('x,y : '); readln(x,y);
  if (x<0)and(y>0)
     then
         write('da')
     else
         write('net');
 
end.

04.04.2011, 23:14

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

помогите с любой задачей...
1) Даны действительные числа a, b, c. Проверить, выполняются ли неравенства a<b<c.

2) Даны два действительных числа. Заменить первое число нулем, если оно равно второму, и оставить числа без изменения в противном случае.

3) Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу [1,3].

4) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

5) Даны положительные действительные числа x, y, z. Выяснить существует ли треугольник с длинами сторон x, y, z.

6) Даны целые числа a, b. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями.

7) Даны три вещественных числа x, y, z. Вычислить значения выражений x + y + z и xyz и вывести максимальное из них.

8) Даны две точки: А(x1,y1) и B(x2,y2). Составить алгоритм, определяющий, которая точка находится ближе к началу координат.

9) Заданы координаты вершин треугольника и точки. Определить, лежит ли точка внутри треугольника.

10)Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное.

11)Проверить имеет ли квадратное уравнение вида ax2+bx+c=0 действительные корни. Если да, то найти их.

12) Составить программу упорядочивания трех чисел x, y, z по возрастанию.

13)Составить программу, проверяющую верно ли утверждение, что сумма цифр введенного двузначного целого числа делится без остатка на 5.

14)Дано некоторое целое двузначное число. Проверить, равна ли сумма его цифр числу 7.

15)Определить, находится ли точка с координатами x, y во второй координатной четверти.

16)Даны две переменные целого типа А и В. Если их значение не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения.

17)Известны площади круга и квадрата. Определить, поместится ли круг в квадрате?

21) Определите номер квадранта, в котором находится точка с заданными координатами x,y.

22) Составить программу, которая находит наибольшее из 3 натуральных чисел

@nuHrBuH · 04.04.2011, 23:19

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses wincrt;
var
  x,y,z,a : real;
begin
  write('x,y,z : ');readln(x,y,z);
  if x > y
     then
        a := x
     else
        a := y;
  if a < z
     then
         a := z;
 
  writeln('naib : ',a:0:2);
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

Проверить, выполняются ли неравенства a<b<c

Решение

Решение

Решение

Решение

Решение

Решение

@Ufa 3 / 3 / 0 Регистрация: 21.04.2010 Сообщений: 27

	Проверить, выполняются ли неравенства a<b<c 13.03.2011, 13:09. Показов 29560. Ответов 12 Метки нет (Все метки) помогите с любой задачей... 1) Даны действительные числа a, b, c. Проверить, выполняются ли неравенства a<b<c. 2) Даны два действительных числа. Заменить первое число нулем, если оно равно второму, и оставить числа без изменения в противном случае. 3) Даны три вещественных числа. Выбрать те из них, которые принадлежат интервалу [1,3]. 4) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны. 5) Даны положительные действительные числа x, y, z. Выяснить существует ли треугольник с длинами сторон x, y, z. 6) Даны целые числа a, b. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями. 7) Даны три вещественных числа x, y, z. Вычислить значения выражений x + y + z и xyz и вывести максимальное из них. 8) Даны две точки: А(x1,y1) и B(x2,y2). Составить алгоритм, определяющий, которая точка находится ближе к началу координат. 9) Заданы координаты вершин треугольника и точки. Определить, лежит ли точка внутри треугольника. 10)Заданы два целых числа. Определить являются ли они оба четными или оба нечетными или какое из них четное, а какое нечетное. 11)Проверить имеет ли квадратное уравнение вида ax2+bx+c=0 действительные корни. Если да, то найти их. 12) Составить программу упорядочивания трех чисел x, y, z по возрастанию. 13)Составить программу, проверяющую верно ли утверждение, что сумма цифр введенного двузначного целого числа делится без остатка на 5. 14)Дано некоторое целое двузначное число. Проверить, равна ли сумма его цифр числу 7. 15)Определить, находится ли точка с координатами x, y во второй координатной четверти. 16)Даны две переменные целого типа А и В. Если их значение не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. 17)Известны площади круга и квадрата. Определить, поместится ли круг в квадрате? 21) Определите номер квадранта, в котором находится точка с заданными координатами x,y. 1

@nuHrBuH 483 / 427 / 205 Регистрация: 04.03.2011 Сообщений: 1,259
	13.03.2011, 13:09
	Задания всей группы взяли? ) 1

@Ufa 3 / 3 / 0 Регистрация: 21.04.2010 Сообщений: 27
	13.03.2011, 13:16 [ТС]
	как в паскале пишется модуль, и степень в кубе 1

@Ufa 3 / 3 / 0 Регистрация: 21.04.2010 Сообщений: 27
	13.03.2011, 13:24 [ТС]
	а как будет написано е в степени 2х и 3х 0