Pascal, блок-схемы, блок-схемы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Pascal, блок-схемы, блок-схемы |
зюня |
12.11.2014 9:41
Сообщение
#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. |
Текстовая версия | 29.04.2024 0:21 |