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

Блок схема - Pascal

25.12.2010, 10:36. Просмотров 267. Ответов 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.

http://www.cyberforum.ru/pascal/thread134894.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 10:36
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Блок схема (Pascal):

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

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

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

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

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

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

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

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

Блок-схема
uses crt; var s,s1,s2:string; i,t,r:integer; begin clrscr;...

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


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

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

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