Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Марина98
0 / 0 / 0
Регистрация: 13.04.2017
Сообщений: 9
1

Найти ошибки в программе и составить блок-схему

27.04.2017, 05:50. Просмотров 205. Ответов 5

Помогите пожалуйста проверить мою программу на правильность и составить блок-схему.Боюсь запутаться в этом во всем.
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
program m;
var
B:array [1..50] of real;
S,n,A,C:real;
k,i,x,t :integer;
max:real;
begin
for i:=1 to 50 do
  begin
  B[i]:=cos(i);
  write (B[i]:7:3);
  end;
    begin
    writeln ('Введите значение A');
    readln(A);
    writeln ('Введите значение C');
    readln(C);
    k:=0;
    for i:=1 to 50 do
    if (i>=A) and (i<=C) then
    k:=k+i;
    writeln('Колличество элементов расположенных в диапозоне от A до C =',k);
    end;
      max:=B[1];
      for i:=1 to 50 do
      begin
      if B[i]>max then
    begin
    max:=B[i];
    x:=i;
    for i:=i+1 to 50 do
      begin
      S:=S+B[i];
      writeln ('Сумма элементов массива ' ,S);
      end;
    end;
      for i:=1 to 50-1 do
      if B[i]<B[i+1] then
        begin
        B[i]:=B[i+1];
        end;
     writeln;
     writeln ('Максимльный элемент массиа ',max);
     writeln;
     writeln('Сумма элементов массива за максимальным равна =',S);
     writeln;
     writeln('отсортированный массив');
     for i:=1 to 50 do
     write (B[i]:6:3, ' ');
     readln;
      end;
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.04.2017, 05:50
Ответы с готовыми решениями:

Составить блок-схему по программе
Можете помочь сделать блок схему: uses crt; const n=15; Type zapis =...

Составить блок схему к программе.
Здравствуйте можно к этой программе блок схему???) Const Eps=0.0001; ...

Составить блок-схему к программе
var a,z:arrayof integer; i,x,y,n:integer; begin randomize;...

Составить блок-схему к программе
uses crt; var n:integer; z,l,r,D,S:real; begin clrscr; writeln('Введите...

Составить блок-схему к программе
program yyyyy; const n=15; var a,b:arrayof integer; ...

5
VladimirD
74 / 74 / 78
Регистрация: 30.12.2015
Сообщений: 226
27.04.2017, 06:38 2
Марина98, вот твоя программа.

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
57
program m;
var
 B:array [1..50] of real;
 S,A,C,temp:real;
 k,i,j,x :integer;
 max:real;
begin
 for i:=1 to 50 do
  begin
   B[i]:=cos(i);
   write (B[i]:7:3);
  end;
  writeln;
 
 write ('Введите значение A: ');
 readln(A);
 write ('Введите значение C: ');
 readln(C);
 
 k:=0; S:=0;
 for i:=1 to 50 do
  if (B[i]>=A) and (B[i]<=C) then k:=k+1; S:=S+B[i];
  writeln('Колличество элементов расположенных в диапозоне от A до C =',k);
  writeln('Сумма элементов массива ' ,S:5:3);
 
 max:=B[1];
 for i:=1 to 50 do
  begin
   if B[i]>max then
    begin
     max:=B[i];
     x:=i;
    end;
   S:=0;  
   for j:=x+1 to 50 do
     S:=S+B[j];        
  end;
     
   for i:=1 to 50-1 do
    for j:=1 to 50-i do
     if B[j]>B[j+1] then 
     begin 
     temp:=B[j+1]; 
     B[j+1]:=B[j]; 
     B[j]:=temp; 
     end;
     
   writeln;
   writeln ('Максимльный элемент массиа ',max:5:3);
   writeln;
   writeln('Сумма элементов массива за максимальным равна =',S:5:3);
   writeln;
   writeln('отсортированный массив');
   for i:=1 to 50 do
    write (B[i]:6:3, ' ');
   readln;
end.
1
Миниатюры
Найти ошибки в программе и  составить блок-схему  
Марина98
0 / 0 / 0
Регистрация: 13.04.2017
Сообщений: 9
27.04.2017, 17:40  [ТС] 3
Спасибо большое!А что значит в программе temp?
0
VladimirD
74 / 74 / 78
Регистрация: 30.12.2015
Сообщений: 226
27.04.2017, 17:53 4
вспомогательная переменная для перестановки значений

Добавлено через 9 минут
хотя наверное можно и без temp, если PascalABC.NET

Pascal
1
2
3
     temp:=B[j+1]; 
     B[j+1]:=B[j]; 
     B[j]:=temp;
заменить на
Pascal
1
(B[j+1],B[j]):=(B[j],B[j+1])
0
Hitoku
Модератор
1703 / 1302 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 4
28.04.2017, 01:43 5
VladimirD, или так
Pascal
1
swap(B[j+1],B[j]);
0
VladimirD
74 / 74 / 78
Регистрация: 30.12.2015
Сообщений: 226
28.04.2017, 18:42 6
да можно,

а если 3 переменные больше не пробовал можно эту
Pascal
1
(a,b,c):=(b,c,a);
0
28.04.2017, 18:42
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2017, 18:42

Составить блок-схему к программе
program ulv; var sum,proc,nach,a:real; i:integer; begin ...

Составить блок-схему к программе
uses crt; const g=; a=; s=a-g; var s1,s2: string; m1,m2,rez:...

Составить блок-схему к программе
Program A1; var T: array of integer; k, n, s, p: integer; Sr: real; Begin...


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

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

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