0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 11
1

Нужны блок-схемы

20.06.2012, 06:20. Показов 818. Ответов 5
Метки нет (Все метки)

Приветствую.
нужны помощь построении блок схем....
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program z2;
var
  s:string;
  i,n,m:integer;
  a: string;
begin
  writeln('Введите текст (обязательно должно присутствовать двоеточие)');
  readln(s);{Ввод текста}
  for i:=1 to length(s) do
  if s[i]=':' then begin
  n:=i;
  break;
  end;
  for i:=n+1 to length(s) do
  if s[i]=':' then begin
  m:=i;
  break;
  end;
  for i:=n+1 to m-1 do a:=a+s[i];
  writeln(a);
end.
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 z3;
var a:array[1..200] of integer;
i,n,s,j,s1,s2:integer;
begin
     randomize;
     writeln;
     writeln('Колличество элементов в массиве?');
     readln(n);
     for i:=1 to n do begin
     a[i]:=random(100);
     write(a[i]:4);
     end;
     writeln;
 
     for i:=2 to n do begin
     j:=i;
     while a[j]<a[j-1] do begin
     s:=a[j];
     a[j]:=a[j-1];
     a[j-1]:=s;
     dec(j);
     if j=1 then break
     end;end;
     for i:=1 to n do write(a[i]:4);
     writeln;
     S1:=0;
     for i:=1 to n do
     if i mod 2=0 then S1:=S1+a[i];
     writeln('сумма четных = ',S1);
     S2:=0;
     for i:=1 to n do
     if i mod 2 <>0 then S2:=S2+a[i];
     writeln ('cумма не четных = ',S2);
     readln;
     end.
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
program z4;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
i,j,n,m,sum,max,k:integer;
begin
     randomize;
     for i:=1 to 6 do begin
     writeln;
     for j:=1 to 6 do begin
     a[i,j]:=random(50)-25;
     sum:=sum+a[i,j];
     write(a[i,j]:4);
     end;
     if sum>max then begin
     max:=sum;
     max:=i;
     end;
     b[i]:=sum;
     sum:=0;
     end;
     writeln; writeln;
     for i:=1 to 6 do
     writeln('a[',i,']= ',b[i]);
     writeln('Номер максимальной строки = ', max);
     end.
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
40
41
program z5;
Var f,g:file of integer;
    i,j,k,n,m:integer;
Begin
    write('Введите кол-во элементов для ввода: ');readln(n);
    Assign(f,'a.dat');Rewrite(f);
    For i:=1 to n do 
     Begin
      write('Введите ',i,'-ое число: ');readln(m);
      write(f,m);
     End;
    Reset(f);
    Assign(g,'a1.dat');Rewrite(g);
    i:=0;j:=0;k:=1;
    While not Eof(f) do
     Begin
      inc(i);
      if j=0 then 
       Begin
        read(f,m);
        write(g,m);
        j:=1;
       End
       else if k=1 then
        Begin
         Seek(f,n-1);
         read(f,m);
         write(g,m);
         dec(n);
         Seek(f,i-1);
         j:=0;
        End;
      End;
     Reset(g);
     While not Eof(g) do
      Begin
       read(g,m);
       write(m:3);
      End;
     Close(f);Close(g);
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2012, 06:20
Ответы с готовыми решениями:

блок схемы нужны))
привет помощь мне требуется)) нужно блок схемы на две задачки: №1 Данны два символьных массива....

Нужны блок-схемы
Здраствуйте. Нужны блок-схемы. Так как у меня нет возможности их сделать(отсуствует MS Visio)....

нужны программы и блок-схемы
1. задано nточек своими координатами. найти номера и координать точек, наиболее удаленных друг от...

Нужны блок-схемы к приложенному коду
Не получается сделать блок-схему по коду (2 способа - 2 схемы): uses crt; const nmax=100; var...

5
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 11
21.06.2012, 11:02  [ТС] 2
Ребят выручайте. Нужна только последняя блок-схема...
0
0 / 0 / 0
Регистрация: 13.06.2012
Сообщений: 6
21.06.2012, 11:30 3
Программой пробовал? В пятой задаче попробуй убрать русские символы.
0
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 11
21.06.2012, 12:19  [ТС] 4
перепробывал более 10 программ...везде строит неккоректно.по старым стандартам..нашёл одну хорошую..но увы.на 4-ую задачу ругается якобы она незарегистрированна, или содержит более 30 ";" таих символов... сократил ; до 27....(убирая лишние writeln и ; перед end)... выдаёт туже ошибку....
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
21.06.2012, 21:30 5
FCEditor пробовал?
Цитата Сообщение от Pingvin Посмотреть сообщение
якобы она незарегистрированна
а зарегистрировать не пробовал,стоит она чуть больше 100 р.
DiamFC называется.
0
0 / 0 / 0
Регистрация: 15.06.2012
Сообщений: 11
21.06.2012, 21:44  [ТС] 6
дело не в незарегистрированноой программе.... он ругается на незарегистрированный файл *.pas ... остальные задачи он мне перевёл в блок-схемы...а вот последнюю нехочет...

попробуйте вы запихнуть её в программу. и дать мне изображение. буду примного благодарен
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2012, 21:44
Помогаю со студенческими работами здесь

[Pascal] Нужны три Блок-Схемы по кодам
Просто помогите в очередной раз составить блок-схемы к уже переделанным кодам плз. program...

Нужны блок схемы (7- программ)
program altinwi; var i, diapazon: integer; a:array of integer; begin diapazon := 100; ...

Нужны блок схемы срочно....буду очень признателен
Program 3; Var n,l :integer ; Begin Writein (‘введите единицу длинны ‘); Writeln (‘введите...

Нужны различные блок-схемы, функциональные схемы жестких дисков и их работы.
Срочно нужны различные блок-схемы, функциональные схемы жестких дисков и их работы. Заранее большое...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru