Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
1grek
0 / 0 / 0
Регистрация: 02.12.2010
Сообщений: 4
#1

Блок схема - Pascal

25.12.2010, 10:36. Просмотров 263. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Блок схема (Pascal):

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

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

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

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

блок схема - Pascal
Подскажите плз как будет выглядеть блок схемма такой программы uses crt; function F(x:real):real; begin F:=ln(5.5+x)+4.3; ...

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

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

блок-схема - Pascal
помогите сделать блок-схему uses crt; var a: arrayof integer; b: arrayof integer; i,mi,n:integer; begin mi:=1;

Блок-схема - Pascal
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr; writeln('Ââåñòè ñòðîêó: ');readln(s); writeln('Ââåñòè ñëîâî:...

блок-схема - Pascal
Привет, нужно сделать блок-схему для программы: uses crt; const t=10; var b:array of integer; a:array of integer; ...

Блок-схема - Pascal
помогите юному социологу составить,пожалуйста блок-схему для задачи: Program treugolnik; Var A,B,C:array of real; ...


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

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

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