|
|
|
сижу на зачете не хватает блок схемы
|
|||
|---|---|---|---|
|
#18+
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. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.12.2011, 13:35 |
|
||
|
|

start [/forum/topic.php?fid=16&fpage=75&tid=1342538]: |
0ms |
get settings: |
7ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
65ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
25ms |
get tp. blocked users: |
1ms |
| others: | 221ms |
| total: | 341ms |

| 0 / 0 |
