11.11.2014, 19:05 | #1 (permalink) |
Member
Регистрация: 29.05.2014
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal, блок-схемы
№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.* |
11.11.2014, 19:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Данные посты могут вам помочь т.к. имеют сходства с вашим Нужны блок-схемы к данным задачкам Помогите составить блок схемы Задачки на блок-схемы Блок-схемы |
19.11.2014, 09:25 | #3 (permalink) |
Member
Регистрация: 29.05.2014
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо за совет!Но эта программа не очень корректно чертит, я пробовала))
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|