Pascal, блок-схемы, блок-схемы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Pascal, блок-схемы, блок-схемы |
зюня |
Сообщение
#1
|
Группа: Пользователи Сообщений: 1 Пол: Женский Реальное имя: Оксана Репутация: 0 |
Здравствуйте!Помогите пожалуйста!!!Не могу составить блок-схемы к задачам!Посмотрите кто нибудь может сможете помочь!!!Зоранее большое спасибо!!!
№1 Var X:array [1..20,1..20] of integer; N:integer; i,j:integer; S,T:integer; Flag:boolean; begin writeln('Проверка матрицы на "магический квадрат".'); write('Введите размерность квадратной матрицы: '); readln(N); writeln('Введите поочередно элементы таблицы:'); for i:=1 to N do for j:=1 to N do begin write('X[',i,',',j,']='); readln(X[i,j]); end; writeln; for i:=1 to N do begin for j:=1 to N do write (X[i,j]:5); writeln; end; S:=0; for i:=1 to N do S:=S+X[1,i]; Flag:=True; for i:=1 to N do begin T:=0; for j:=1 to N do T:=T+X[i,j]; if T<>S then Flag:=False; end; for j:=1 to N do begin T:=0; for i:=1 to N do T:=T+X[i,j]; if T<>S then Flag:=False; end; T:=0; for i:=1 to N do T:=T+X[i,i]; if T<>S then Flag:=False; T:=0; for i:=1 to N do T:=T+X[i,N-i+1]; if T<>S then Flag:=False; if (Flag:=True) then writeln('Матрица является "магическим квадратом".') else writeln('Матрица не является "магическим квадратом".'); readln; end. №2 program bykva; const Glas=['а','е','и','о','у','ы','э','ю','я','А','Е','И','О ','У','Ы','Э','Ю','Я']; var i,count: integer; s: string; begin ReadLn(s); count:=0; for i:=1 to length(S) do if s[i] in Glas then inc(count); writeLn(count); ReadLn; end. №3 program lab03; var a, b: string; k, i: integer; begin write('text:'); readln(a); write('slovo: '); readln(b); k := 0; while pos(b, a) > 0 do begin k := k + 1; delete(a, pos(b, a), length(b)); end; writeln(k); readln; end. |
Текстовая версия | 25.09.2024 20:02 |