Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
МасловЕвгений
1 / 1 / 0
Регистрация: 31.03.2010
Сообщений: 10
1

Блок-схема к программе

17.05.2010, 22:45. Просмотров 391. Ответов 2
Метки нет (Все метки)

помогите пожалуйста написать блок-схему к программе:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
var
  MyArr:array[1..200,1..5] of real;
  i,j,m:integer;
  f:text;
  t:real;
procedure Roots(var a,b,c:real; var  x1,x2 : real);
var d:real;
begin
  d:=b*b-4*a*c;
  if d<0 then
    begin
      x1:=0;
      x2:=0;
    end
         else
           if c<>0 then
             begin
               x1:=(-b+sqrt(d))/(2*c);
               x2:=(-b-sqrt(d))/(2*c);
             end
                   else
                     begin
                       if a<>0 then
                         begin
                           x1:=-b/a;
                           x2:=x1;
                         end
                               else
                                 begin
                                   x1:=0;
                                   x2:=0;
                                 end;
                     end;
end;
BEGIN
  write('M = ');
  readln(m);
  assign(f,'text.txt');
  reset(f);
  for i:=1 to m do
    for j:=1 to 3 do
      begin
        read(f,t);
        myarr[i,j]:=t;
      end;
  for i:=1 to m do
    Roots(myarr[i,1],myarr[i,2],myarr[i,3],myarr[i,4],myarr[i,5]);
  for i:=1 to m do
   begin
     for j:=1 to 5 do
       write(myarr[i,j]:12:3);
     writeln;
   end;
   readln;
   readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.05.2010, 22:45
Ответы с готовыми решениями:

Блок- схема по программе
помогите нарисовать блок схему по программе program vstavka_propuska; uses crt; var...

Блок-схема к программе
Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

Необходима блок-схема к программе
Помогите, пожалуйста, сделать блок-схему. Задача: дан одномерный массив L, элементы которого...

2
WolfCF
3297 / 1358 / 109
Регистрация: 28.04.2009
Сообщений: 4,823
18.05.2010, 05:27 2
осовная программа
Блок-схема к программе


процедура
Блок-схема к программе
1
МасловЕвгений
1 / 1 / 0
Регистрация: 31.03.2010
Сообщений: 10
18.05.2010, 19:34  [ТС] 3
большое спасибо!))
0
18.05.2010, 19:34
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2010, 19:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нужна блок-схема к программе
Дан двумерный массив 5на5.Вычислить произведение отрицательных элементов.Определить индецсы...

Блок схема к готовой программе
Привет! помогите построить блок схему к следующей программе. Задача: Текстовый файл содержит...

Блок схема к программе вычисления выражения
нужна блок схема к этой программе, кто знает? program lab2; uses crt; var k : Byte; x :...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.