|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.05.2012, 13:26 | #1 |
Регистрация: 05.05.2012
Сообщений: 5
|
сОтавлении блок-схем
помогите составить блок-схемы укрупленного алгоритма реализации всего задания с меню для вызова процедур без детализации алгоритмов отдельных задач.сами задачи готовы.
НИЖЕ В ФАЙЛЕ ПРИМЕР КАК ДОЛЖНО БЫТЬ Задание 1. Дана вещественная матрица nxm. Упорядочить ее строки по возрастанию суммы их элементов. Задание 2. В вводимой строке заменить самое часто встречаемое слово на обратное. Задание 3. Вычеркнуть из слова Х согласные буквы, стоящие на нечетных местах. Задание 4. При поступлении на музыкально-педагогический факультет на абитуриентов собираются сведения: фамилия, музыкальный инструмент. Для поступления необходимо сдать экзамен по специальности. Составить списки для данного экзамена, в зависимости от специальности. 1. const nmax=100; var i,j,n,m,q: integer; a: array[1..nmax,1..nmax] of real; b: array[1..nmax] of real; sum,tmp: real; begin randomize; write('Введите размеры матрицы n и m: '); readln(n,m); writeln('Исходная матрица'); for i:=1 to n do begin sum:=0; for j:=1 to m do begin a[i,j]:=random(99)+random; {random дает случайное число от 0 до 1} write(a[i,j]:7:2); {здесь задаем формат вывода на экран} sum:=sum+a[i,j]; end; b[i]:=sum; {и здесь задаем формат вывода на экран} write(' Сумма элементов ряда = ',sum:7:2); writeln; end; writeln; for i:=2 to n do for j:=n downto i do if b[j-1]>b[j] then begin for q:=1 to m do begin tmp:=a[j-1,q]; a[j-1,q]:=a[j,q]; a[j,q]:=tmp; end; tmp:=b[j-1]; b[j-1]:=b[j]; b[j]:=tmp; end; writeln('Отсортированная по возрасстанию сумм строк матрица:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:7:2); {и здесь задаем формат вывода на экран} writeln; end; 2. var s,s1: string; i,n: byte; c: char; slovo,maxslovo:string; k,maxk:integer; function fw(s:string;var w:string):boolean; const c=['а'..'я','А'..'Я'];//['a'..'z','A'..'Z']; var i:integer; begin while (not (s[1] in c)) and (length(s)>0) do delete(s,1,1); if length(s)>0 then begin s:=s+' '; i:=1; while (s[i] in c) do inc(i); w:=copy(s,1,i-1); fw:=true; end else begin w:=''; fw:=false; end; end; begin write('Введите строку: '); readln(s); s1:=s; maxk:=0; maxslovo:=''; while fw(s1,slovo) do begin k:=0; while pos(slovo,s1)>0 do begin inc(k); delete(s1,pos(slovo,s1),length(slov o)); end; if k>maxk then begin maxslovo:=slovo; maxk:=k; end; end; s:=maxslovo; n := length(s) div 2; for i := 1 to n do begin c := s[i]; s[i] := s[length(s)-i+1]; s[length(s)-i+1] := c; end; write('Самое часто встречаемое слово:', ' '); writeln(maxslovo); write('Перевернутое слово:',' '); writeln(s); end. 3. var str: string; i: integer; sogl : set of char; begin sogl :=['Б'..'Д','б'..'д','Ж','ж','З','з',' К'..'Н','к'..'н','П'..'Т', 'п'..'т','Ф'..'Щ','ф'..'щ','Ъ','ъ', 'Ь','ь']; write('Введите слово: '); readln(str); for i:=length(str) downto 1 do if (str[i] in sogl)and(i mod 2<>0) then delete(str,i,1); write('Полученное слово: '); writeln(str); end. 4. const nmax=100; type muz=record name: string[20]; inst: string[15]; end; var a: array[1..nmax] of muz; i,n,k: integer; str: string; begin write('Сколько абитуриентов поступает в училище?: '); readln(n); writeln('Введите данные об абитуриентах'); for i:=1 to n do begin with a[i] do begin write(i,' Фамилия : '); readln(name); write(' Музыкальный инструмент: '); readln(inst); end; end; write('Введите наименование музыкального инструмента: '); readln(str); writeln('Список абитуриентов, сдающих экзамен "',str,'"'); for i:=1 to n do with a[i] do if a[i].inst=str then begin inc(k); writeln(k,'. ',a[i].name); end; end. readln; end. |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составитель блок-схем C# | NeoX_2011 | Помощь студентам | 0 | 26.02.2012 17:55 |
Рисовальщик блок-схем! | Linker88 | Софт | 2 | 07.07.2009 10:17 |
Составление Блок-схем | petrovk | Помощь студентам | 1 | 08.01.2009 09:53 |
Создание блок-схем | Format C: | Помощь студентам | 13 | 26.04.2008 14:10 |