Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.12.2011, 19:14   #1 (permalink)
Zakkl
Новичок
 
Регистрация: 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.
эта программа решает квадратные уравнения, сначала вводится количество квадратных уравнений, затем все они решаются и выводятся результаты (x1.x2), если корней нет-пишет "нет корней"
я сам в блок схемах вообще нифига не разбираюсь ( а завтра зачет первой парой(((
Zakkl вне форума   Ответить с цитированием

Старый 18.12.2011, 19:14
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожие на вашу темы так же встречались на форуме

Ребята, спасайте!
Спасайте! Экран черный и табличка с данными

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 13:39.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.