Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2012, 13:26   #1
yulka6464
 
Регистрация: 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.
Изображения
Тип файла: jpg пример.jpg (12.1 Кб, 141 просмотров)
yulka6464 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составитель блок-схем 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