Salam. Pascal-da kvadrat tənliyin həllini necə yazmaq olar?
2
1
program Quadratic;
3
var
4
A,B,C,D: integer;
5
6
begin
7
write('A = ');
8
readln(A);
9
if (A=0) then
10
11
writeln('Not a quadratic equation.');
12
halt;
13
end;
14
write('B = ');
15
readln(B);
16
write('C = ');
17
readln(C);
18
D := B*B-4*A*C;
19
if (D=0) then
20
21
writeln('x = ',-B/2.0/A);
22
23
24
if (D>0) then
25
26
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
27
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
28
end
29
else
30
31
writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,')');
32
writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,')');
33
34
end.
Sonuncu fraqmentdə xəyali vahidi əlavə etməyi unutmusunuz İcazənizlə bəzi “xırda” dəyişiklik edim:
writeln('x1 = ',-B/2.0/A,'+',Sqrt(-D)/2.0/A,'i');
writeln('x2 = ',-B/2.0/A,'-',Sqrt(-D)/2.0/A,'i');
0
Feedback üçün təşəkkürlər
Cavab yazmaq üçün lütfən sağ sütundan və ya buradan hesaba daxil olun.
E. Hacı cavab verdi - Elektron servis xidmətləri (14 gün əvvəl)
cavaninsan cavab verdi - Amerika səhmləri (23 gün əvvəl)
Software Developer cavab verdi - Amerika səhmləri (24 gün əvvəl)
SN cavab verdi - Kripto vergi (32 gün əvvəl)
Nicat97 cavab verdi - ilkaddimlar.com-a nə oldu? (39 gün əvvəl)
nicatmemmedli cavab verdi - Proqramlaşdırma - fəlsəfə (43 gün əvvəl)
nicatmemmedli cavab verdi - ilkaddimlar.com-a nə oldu? (43 gün əvvəl)
Software Developer cavab verdi - ilkaddimlar.com-a nə oldu? (53 gün əvvəl)
E. Hacı cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (63 gün əvvəl)
Triste cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (64 gün əvvəl)
E. Hacı cavab verdi - Adsense ya görə VÖEN gəlir vergisi 20% istəyirlər (64 gün əvvəl)
E. Hacı cavab verdi - Telefon almışam kamerasında ləkə var qaytarmaq istəyirəm, mağaza qaytarmır (65 gün əvvəl)
Software Developer cavab verdi - Rus dili yatırımı (65 gün əvvəl)
Cənab cavab verdi - Rus dili yatırımı (65 gün əvvəl)
Verilmiş cavablar və yazılan şərhlər (3 cavab var)
2
1
program Quadratic;
2
3
var
4
A,B,C,D: integer;
5
6
begin
7
write('A = ');
8
readln(A);
9
if (A=0) then
10
begin
11
writeln('Not a quadratic equation.');
12
halt;
13
end;
14
write('B = ');
15
readln(B);
16
write('C = ');
17
readln(C);
18
D := B*B-4*A*C;
19
if (D=0) then
20
begin
21
writeln('x = ',-B/2.0/A);
22
halt;
23
end;
24
if (D>0) then
25
begin
26
writeln('x1 = ',(-B+Sqrt(D))/2.0/A);
27
writeln('x2 = ',(-B-Sqrt(D))/2.0/A);
28
end
29
else
30
begin
31
writeln('x1 = (',-B/2.0/A,',',Sqrt(-D)/2.0/A,')');
32
writeln('x2 = (',-B/2.0/A,',',-Sqrt(-D)/2.0/A,')');
33
end;
34
end.
1
Sonuncu fraqmentdə xəyali vahidi əlavə etməyi unutmusunuz
İcazənizlə bəzi “xırda” dəyişiklik edim:
1
begin
2
writeln('x1 = ',-B/2.0/A,'+',Sqrt(-D)/2.0/A,'i');
3
writeln('x2 = ',-B/2.0/A,'-',Sqrt(-D)/2.0/A,'i');
4
end;
0
Feedback üçün təşəkkürlər
Sual verin
Cavab verin