powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / сижу на зачете не хватает блок схемы
2 сообщений из 2, страница 1 из 1
сижу на зачете не хватает блок схемы
    #37593418
Makcim12345
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
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.
...
Рейтинг: 0 / 0
сижу на зачете не хватает блок схемы
    #37593639
Фотография Usman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / сижу на зачете не хватает блок схемы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]