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

Блок- схема по программе

02.01.2013, 18:15. Просмотров 372. Ответов 1
Метки нет (Все метки)

помогите нарисовать блок схему по программе

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
program vstavka_propuska;
uses crt;
var text:string;
 bukva1,bukva2:string[1];
 i,kolichestvo_vstavok,kod,kod1:integer;
 k,k1:char;
begin
clrscr;
 writeln('vvedite text: ');
 readln(text);
 writeln('vvedite dve bukvy, kotorye nuzhno razdelit probelom. ');
 write('1 bukva:  ');
 readln(bukva1);
 write('2 bukva:  ');
 readln(bukva2);
 {подсчет длины кода до момента вставки} for i:=1 to length(text) do
  begin k:=text[i];
        kod:=kod+ord(k)
  end;
 writeln('summa kodov do vstavki: ',kod);
 for i:=length(text) downto 1 do {нахождение заданных букв, стоящих рядом, причем без учета того, какая из букв стоит первая}
  if ((text[i]=bukva1) and (text[i+1]=bukva2)) or ((text[i]=bukva2) and (text[i+1]=bukva1)) then
    begin insert(' ',text,i+1);
          kolichestvo_vstavok:=kolichestvo_vstavok+1 {подсчет количества вставленных пропусков}
    end;
 for i:=1 to length(text) do
    begin k:=text[i]; {определение кода каждого символа}
          kod1:=kod1+ord(k) {нахождение суммы кодов символов}
    end;
 writeln('novyi text: ',text);
 writeln('kolichestvo vstavlenyh propuskov: ',kolichestvo_vstavok);
 writeln('summa kodov posle vstavki: ',kod1);
 writeln('kod simvola "propusk": ', ord(' '));
 readln
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2013, 18:15
Ответы с готовыми решениями:

Блок-схема к программе
помогите пожалуйста написать блок-схему к программе: var MyArr:array of real; ...

Блок-схема к программе
Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда...

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Необходима блок-схема к программе
Помогите, пожалуйста, сделать блок-схему. Задача: дан одномерный массив L, элементы которого...

1
КонецСвета
Почетный модератор
7946 / 3917 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.01.2013, 18:35 2
Блок- схема по программе
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2013, 18:35

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

Блок схема к готовой программе
Привет! помогите построить блок схему к следующей программе. Задача: Текстовый файл содержит...

Нужна блок-схема к программе
Дан двумерный массив 5на5.Вычислить произведение отрицательных элементов.Определить индецсы...

Очень нужна блок-схема к программе
Кто откликнулся, спасибочки... Вот программа... const n=5; m=3; var a: array of integer; i,j:...


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

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

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