Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
1

блок-схемы

14.01.2010, 14:57. Показов 869. Ответов 6
Метки нет (Все метки)

моготи если можно нарисовать блок схеми к прогам а то я не очень то умею ето делать!!!!!
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program LR6_1;
uses crt;
var i,k:integer;
a:string;
BEGIN
clrscr;
writeln ('vvedit stroku');
readln (a);
k:=0;
for i:=1 to length(a) do begin
if (a[i]='A') and (a[i+1]='A') and (a[i+2]='A') then k:=k+1;  end;
writeln ('sliv=',k);
repeat until keypressed;
END.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program zad_2;
uses crt;
var k,i:integer;
    a:string;
Begin
clrscr;
       writeln('vvedit text');
readln(a);
k:=0;
for i:=1 to length(a) do  begin
    if a[i]='.' then k:=k+1;    end;
writeln ('re4en=',k);
repeat until keypressed;
end.
0

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

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

Блок-схемы.
у меня к вам такая просьбочка... помогите блок-схему нарисовать к программе: Program P3; Const...

Блок-схемы
Требуется блок-схемы к двум программам. program Project1; uses crt; const D=; M=10;...

Блок-схемы
помогите составить блок-схемы к этим программам! uses crt; var i,j,n,k,l:integer; a:array of...

Блок схемы
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и...

6
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
14.01.2010, 15:02 2
держите,лишнее если что удалите.
1
Вложения
Тип файла: rar ро.rar (10.0 Кб, 22 просмотров)
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
14.01.2010, 15:13 3
не верно сделаны.
Вот правильный вариант
1
Вложения
Тип файла: rar Рабочий стол.rar (11.0 Кб, 20 просмотров)
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
14.01.2010, 15:44  [ТС] 4
а можно еще решить одну прогу!!!! ПЛИЗ!!!!
Даны предложения. Вывести все его слова в порядке уменьшения их длин.
ЗАРАНЕЕ СПАСИБО
0
3306 / 1368 / 110
Регистрация: 28.04.2009
Сообщений: 4,822
14.01.2010, 15:57 5
чем слова разделены?
пример вот https://www.cyberforum.ru/pasc... post166422
1
119 / 119 / 41
Регистрация: 21.12.2009
Сообщений: 194
14.01.2010, 16:18 6
Цитата Сообщение от Rom@ Посмотреть сообщение
а можно еще решить одну прогу!!!! ПЛИЗ!!!!
Даны предложения. Вывести все его слова в порядке уменьшения их длин.
ЗАРАНЕЕ СПАСИБО
За основу взял что в строке между словами должен быть 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
36
37
38
39
program VaD;
uses
    crt;
var
   s,s1,temp:string;
   a:array[1..255] of string;
   len,i,j,kol:byte;
begin
 clrscr;
 writeln('Stroka otdelyaemaya probelami: ');
 readln(s);
 s1:=s+'  ';
 while pos('  ',s1)<>0 do
  begin
   delete(s1,pos('  ',s1),1);
   if s1[1]=' ' then delete(s1,1,1);
  end;
 kol:=0;
 while pos(' ',s1)<>0 do
  begin
   kol:=kol+1;
   len:=pos(' ',s1);
   a[kol]:=copy(s1,1,len-1);
   delete(s1,1,len);
  end;
 writeln;
 for i:=1 to kol do
 for j:=i+1 to kol do
  if length(a[j])>length(a[i]) then
   begin
    temp:=a[j];
    a[j]:=a[i];
    a[i]:=temp;
   end;
 writeln('Sortirovka po ubivan.');
 for j:=1 to kol do
  writeln(a[j]);
 readln;
end.
1
23 / 23 / 12
Регистрация: 29.11.2009
Сообщений: 210
15.01.2010, 14:36  [ТС] 7
большое тя спасибо!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2010, 14:36

Блок схемы
Маленькая просьба, помогите с блок схемами к следующим задачам: 1) uses crt; type film=record...

Блок-схемы
Товарищи, помогите с блок-схемами, никак у меня не выходит их составлять. По идеи по блок-схеме...

блок-схемы
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы...

=( блок схемы
Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как...


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

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

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