Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Amper000
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 2
1

как сделать так чтобы когда z1 отрицательное а z2 положительное находило x3 и x4

21.03.2013, 23:57. Просмотров 512. Ответов 2
Метки нет (Все метки)

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
34
35
36
37
38
39
40
41
42
43
44
45
46
Program kv;
var a,b,c,d:real;
z1,z2,x1,x2,x3,x4:real;
Begin 
writeln( ' Програма розв’язує біквадратні рівняння');
writeln(' Загальний вигляд біквадратного рівняння');
writeln('ax^4+bx^2+c=0');
writeln('введіть коефієнти біквадратного рівняння');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
writeln('введення нової змінної');
writeln('sqr(x)=z');
d:=sqr(b)-4*a*c;
if d<0 then
writeln('рівняння не має розвязку');
z1:=(-b+sqrt(d))/(2*a);
z2:=(-b-sqrt(d))/(2*a);
write('z1=');
writeln(z1:5:1);
write('z2=');
writeln(z2:5:1);
if z1<0 then
writeln('x1, x2 не мають коренів');
 
x3:=sqrt(z2);
write('x3=');
writeln(x3:5:1);
 
x4:=-sqrt(z2);
write('x4=');
writeln(x4:5:1);
 
if z2<0 then
writeln('x3, x4 не мають коренів');
 
x1:=sqrt(z1);
write('x1=');
writeln(x1:5:1);
 
x2:=-sqrt(z1);
write('x2=');
writeln(x2:5:1);
 
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.03.2013, 23:57
Ответы с готовыми решениями:

Как сделать так, чтобы среднее арифметическое находило не четных столбцов, а четных строк.
скажите, пожалуйста, почему все время в матрице выходят одни и те же числа, и как сделать так,...

Как сделать так чтоб автоматом находило файл
Добрый вечер! Помогите пожалуйста. Как сделать так чтоб автоматом находило файл который нада...

Не выходит сделать так, чтобы отрицательное число не учитывалось
Вводится последовательность целых положительных чисел. Ввод последовательности заканчивается вводом...

Как сделать так, чтобы контрол был виден, когда он внутри ListView?
вообщем у меня есть представление выглядит оно так &lt;asp:ListView ID=&quot;lwList&quot; runat=&quot;server&quot;&gt;...

Как сделать так, чтобы выполнение трейда не прекращалось, когда приложение теряет активность?
имеется приложение простое (Windows Form Application), которое генерирует и воспроизводит некоторую...

2
Rumpelstiltskin
10 / 10 / 11
Регистрация: 04.03.2013
Сообщений: 33
24.03.2013, 10:07 2
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
34
program pr1;
uses crt;
var a,b,c:integer;
    x2,x,t,t2,d:real;
begin
clrscr;
writeln('Введите a,b,c');
readln(a); readln(b); readln(c);
d:=0; d:=sqr(b)-4*a*c;
if d>0 then begin
            t:=(-b-sqrt(d))/(2*a);
            t2:=(-b+sqrt(d))/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корень х1= +-',x);
                                              end;
            if t2<0 then writeln('действительных корней нет') else
                                               begin
                                               x2:=sqrt(t2);
                                               writeln('корень х2= +-',x2);
                                               end;
            end;
if d=0 then begin
            t:=(-b)/(2*a);
            if t<0 then writeln('действительных корней нет') else
                                              begin
                                              x:=sqrt(t);
                                              writeln('корни= +-',x);
                                              end;
            end;
if d<0 then writeln('действительных корней нет');
readln;
end.
0
Amper000
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 2
24.03.2013, 11:05 3
Большое Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2013, 11:05

Как сделать так чтобы не вылетала ошибка программы когда я ничего не выбрала в lookupcombobox?
когда я нажимаю на список и вдруг передумала что-то выбирать, то я жму на свободное место в...

Как сделать так чтобы когда например системное время будет 20:00 показать мессидж!
Здрасте форумчани Как сделать так чтобы когда например системное время будет 20:00 показать...

Как сделать так, чтобы когда я выбираю цифру, рядом отображалось название по заданной цифре
1 яблоко 2 апельсин 3 банан 4 груша 5 мандарин 6 арбуз в отдельную ячейку я набираю цифру,...


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

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

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