22.12.2012, 09:19 | #1 (permalink) |
Новичок
Регистрация: 22.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Построение блок схем по коду Pascal
Var A:array[1..100] of integer; i,n,m:byte; Function F(n:integer):integer; Var s:string; i,k:integer; Begin Str(n,s); For i:=Length(s) downto 1 do if s[i]=chr(ord('0')+m) then Delete(s,i,1); if s='' then F:=0 else Begin Val(s,n,k); F:=n; End; End; Begin write('Введите размерность массива: ');readln(n); writeln('Исходный'); For i:=1 to n do Begin A[i]:=random(31)-15; write(A[i]:4); End; writeln; write('Введите цифру M: ');readln(m); writeln('Преобразованный'); For i:=1 to n do Begin A[i]:=F(A[i]); write(A[i]:4); End; readln; End. |
22.12.2012, 09:19 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные темы скорее всего помогут вам разобраться в вашем вопроса Программа для схем Блок-схема по коду Pascal Помогите написать программу в Turbo Pascal и составить блок-схему DiamFC - программа для рисования блок-схем Построение последовательности |
22.12.2012, 14:55 | #2 (permalink) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Блок-схема:
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|