Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 01.09.2018
Сообщений: 4
1

Составить блок-схемы по коду

01.09.2018, 16:02. Просмотров 418. Ответов 2
Метки нет (Все метки)

Помогите составить 2 блок-схемы к программам.
На всякий случай прикрепил задания.
1)
var k : integer;
c : array[1..n, 1..m] of char;
Определить k — количество различных элементов массива c
(т.е. повторяющиеся элементы считать один раз).
Указание: для хранения счетчиков для всех символов ис-
пользовать массив типа array[char] of integer.
----------------------------------------------------------------

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
uses crt;
const nmax=20;
var c:array[1..nmax,1..nmax] of char;
    a:array[char] of integer;
    n,m,i,j,k:byte;
    s:char;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    {возьмем только цифры и латинские буквы, а то много будет}
    repeat
     k:=random(75)+48;
    until k in [48..57,65..90,97..122];
    c[i,j]:=chr(k);
    write(c[i,j]:2);
   end;
  writeln;
 end;
writeln;
for s:=#48 to #122 do
a[s]:=0;
for i:=1 to n do
for j:=1 to m do
inc(a[c[i,j]]);
k:=0;
writeln('Разные элементы массива:');
for s:=#48 to #122 do
if a[s]>0 then
 begin
  write(s,' ');
  k:=k+1;
 end;
writeln;
write('Всего разных элеметов=',k);
readln
end.

2)
В возрастающем порядке напечатать все целые числа из диа-
пазона 1..255, представимые в виде n2 + m2, где m, n ≥ 0.
Указание. Для решения задачи используйте множества.
------------------------------------------------------------
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i,j,n:byte;
    m:set of byte;
begin
clrscr;
m:=[];
for i:=1 to 15 do
for j:=i to 15 do
 begin
  n:=i*i+j*j;
  m:=m+[n];
 end;
for i:=2 to 255 do
if i in m then write(i:4);
readln
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.09.2018, 16:02
Ответы с готовыми решениями:

Составить блок-схемы по программному коду
uses crt; function step(a: real; x: integer): real; var i: integer; s: real; begin ...

Построить блок-схемы основной программы и подпрограмм по коду
type line=record a,b,c,r:real; end; var m,p:array of line; ...

Составить блок схему по коду
Составить программу для отгадывания числа. Программа должна попросить ученика загадать число, затем...

Составить блок-схему по коду
procedure Special(var ft: file of student); var j, k, i, n: integer; t: student; a,m:...

2
78 / 48 / 23
Регистрация: 15.07.2018
Сообщений: 255
01.09.2018, 17:25 2
Блок схемы вроде бы рисуются(если не ошибаюсь)
0
0 / 0 / 0
Регистрация: 01.09.2018
Сообщений: 4
01.09.2018, 17:37  [ТС] 3
Извиняюсь за ошибку,значит помогите нарисовать блох-схемы по выше написанным программам.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.09.2018, 17:37

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

Составить блок-схему по коду
:sorry:Помогите пожалуйста составить блок-схему по коду!!!!!!!!!: Program pr2; var ...

Составить блок-схему по коду
const n = 25; var w: array of integer; i, min, max: integer; begin ...

Составить блок схему по коду
Помогите пожалуйста вот код: const n=5; var m:array of real; j,i: integer; a:real; ...

Составить блок-схему к коду
program pr3; var B:array of string ; s:string; i,k:integer; begin writeln('введитеслова');...


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

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

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