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

Блок схема

25.12.2010, 10:36. Просмотров 271. Ответов 0
Метки нет (Все метки)

помогите блок схему составить пожалуйста.

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
program asdfas;
const
   MaxNumLines = 10;
   LinesSum: array[1..MaxNumLines] of integer =
      (1,1,1,1,1,1,1,1,1,1);
   LinesExists: array[1..10] of boolean =
      (true,true,true,true,true,true,true,true,true,true);
 
var
   f:text;
   LinesNumber: integer;
   Counter, LinesCounter: integer;
   Textt: array[1..MaxNumLines] of string;
begin
      for LinesCounter:=1 to LinesNumber do
         begin
         for Counter:=1 to LinesNumber do
            if Counter<>LinesCounter then
               begin
               if Textt[Counter]=Textt[LinesCounter] then
                  begin
                  LinesSum[LinesCounter]:=LinesSum[LinesCounter]+1;
                  if LinesExists[LinesCounter]=true then
                     LinesExists[Counter]:=false;
                  end
               end
         end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 10:36
Ответы с готовыми решениями:

блок схема
program prog; uses crt; Const max=100; var tabl:array of integer; x,y,n,i,j,k,pb:byte; ...

Блок схема
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a:array of integer; i:integer;

блок схема
Подскажите плз как будет выглядеть блок схемма такой программы uses crt; function...

блок-схема
Я смотрю с блок-схемами помогают Оо помогите если не сложно. uses crt; const n=6; type ar =...

блок-схема
помогите составить блок-схему к этой проге, заранее благодарен program binnums; type IArr=array...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 10:36

Блок-схема
Begin Uses crt; Var x,s,t,e:real; n:integer; begin clrscr; x:=0.2; e:=0.000000001;...

Блок схема
Ребят, кому не сложно, нарисуйте блок схему, для человека мало понимающего в этом, пожалуйста. ...

блок-схема
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer;...


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

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

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