18.12.2011, 19:14 | #1 (permalink) |
Новичок
Регистрация: 18.12.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Люди, спасайте, завтра зачёт
Код:
program qwerty; var e, z,i: integer; q:real; a:array[1..5] of real; b:array[1..5] of real; c:array[1..5] of real; d:array[1..5] of real; x1,x2:array[1..5] of real; begin write('vvedite kolvo yrav '); readln (z); for i:=1 to z do begin readln(a[i]); readln(b[i]); readln(c[i]); end; for i:=1 to z do begin d[i]:= (b[i]*b[i]-4* a[i]*c[i]); if d[i]<0 then writeln('net deist kornei') else begin x1[i]:=(-b[i]+sqrt(d[i]))/(2*a[i]); x2[i]:=(-b[i]-sqrt(d[i]))/(2*a[i]); end; end; for e:= 1 to z-1 do for i:= 1 to z-1 do if (d[i]<0) or ( x1[i] > x1[i+1]) then begin q:=x1[i]; x1[i]:=x1[i+1]; x1[i+1]:=q; q:=x2[i]; x2[i]:=x2[i+1]; x2[i+1]:=q; q:=d[i]; d[i]:=d[i+1]; d[i+1]:=q; end; for i:=1 to z do begin if d[i]>=0 then writeln(x1[i],x2[i] ) else writeln ('net deisstv kornei');end; end. я сам в блок схемах вообще нифига не разбираюсь ( а завтра зачет первой парой((( |
18.12.2011, 19:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Похожие на вашу темы так же встречались на форуме Ребята, спасайте! Спасайте! Экран черный и табличка с данными |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|