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

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

09.12.2013, 14:39. Показов 488. Ответов 1
Метки нет (Все метки)

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


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program N_3;
uses crt;
var s:string;
    i,k,mx,mn:byte;
begin
writeln('Введите текст, между словами один пробел');
readln(s);
s:=s+' ';
mx:=0;
mn:=255;
k:=0;
for i:=1 to length(s) do
if s[i]<>' ' then k:=k+1
else
 begin
  if k>mx then mx:=k;
  if k<mn then mn:=k;
  k:=0;
 end;
writeln('Длина самого длинного слова=',mx);
writeln('Длина самого короткого слова=',mn);
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2013, 14:39
Ответы с готовыми решениями:

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real;...

Составить блок схему по программе
Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из...

Составить блок схему к программе
Дан одномерный массив Х(N) (N&lt;=60). На место отрицательных элементов массива записать среднее...

Составить блок схему к программе
Затрудняюсь составить блок схему, помогите плз Uses crt; Const n=15; Var x,y,z: Array of...

1
Супер-модератор
5566 / 2601 / 1296
Регистрация: 04.03.2013
Сообщений: 5,552
Записей в блоге: 1
10.12.2013, 09:41 2
...
1
Миниатюры
Составить блок схему по программе  
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2013, 09:41

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; ...

Составить блок-схему по программе
составить блок схему по программе Program N_4_1; uses crt; var a:array of integer; ...

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x :...

Составить блок схему к программе
Помочь составить блок схему к программе. uses crt; var a:array of integer; ...

Составить блок-схему к программе:
uses crt; var i:integer; s:integer; begin clrscr; for i:=1 to 100 do begin if i mod 2...

По программе составить блок-схему
program pr1; uses crt; Var t: text; m, z1, z2, d1, d2, y, a, db1, db2, aw, bw, da1,...


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

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

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