Razdel_13_Osn_alg_i_i_progr_ya_11_05_10

Часть 13. Основы алгоритмизации и программирования

INPUT "Введите количество игроков команды Зенит : " ,

M

DIM Zenit(M)

PRINT "Введите роста игроков:"

FOR i = 1 TO M

PRINT i ; " игрок - " ; : INPUT Zenit(i) NEXT i

i = 1 : Flag = 0

WHILE (i <= N) AND (Flag = 0) 'цикл по игрокам Спар-

така

j = 1

WHILE (j <= M) AND (Flag = 0) 'цикл по игрокам Зе-

нита

IF Spart(i) = Zenit(j) THEN Flag = 1 ELSE j = j +

1

WEND

i = i + 1 WEND

PRINT "О т в е т : в командах Спартак и Зенит ";

IF Flag = 1 THEN PRINT "есть игроки "; ELSE PRINT "нет игроков ";

PRINT "одинакового роста."

END

Пример 4. Из партии шин отобрать две шины, диаметры которых отлича-

ются не более, чем на D см, а вес — не более, чем на W грамм.

Система тестов

171

Часть 13. Основы алгоритмизации и программирования

Школьный АЯ

алг МоиШины (арг цел N, арг вещ таб Диам[1 : N] ,

Вес[1 : N] ,

арг вещ ДопДиам, ДопВес, рез цел Шина1,

Шина2,

рез лит Otvet)

нач цел i, j, лит Flag i:=1; Flag:="Нет"

нц пока (i< =N-1) и (Flag="Нет") | цикл по первой шине из пары

j:=i+1

нц пока (j< =N) и (Flag="Нет") | цикл по второй шине из пары

если (abs(Диам[i] - Диам[j]) <= ДопДиам) |

условие соче-

172

Часть 13. Основы алгоритмизации и программирования

иначе j:=j+1

все

кц

i:=i+1

кц

если Flag="Да"

то Otvet := "По параметрам подходят друг другу " + Шина1 + "-ая и " + Шина2 + "-ая ши-

ны."

иначе Otvet := "Шин, подходящих друг другу, в

партии нет."

все

кон

173

Часть 13. Основы алгоритмизации и программирования

Turbo Pascal

Program MyTyres;

174

Часть 13. Основы алгоритмизации и программирования

Uses Crt;

Type Mas = Array [1..100] of Real;

Var

параметрам}

{----------------------------------------------------

---}

Procedure InputOutput; {описание процедуры ввода-

вывода данных}

Begin

ClrScr;

Write('Количество шин : '); ReadLn(Number); WriteLn('Параметры шин : ');

For i := 1 to Number do

begin

175

Часть 13. Основы алгоритмизации и программирования

For i := 1 to Number do

WriteLn(i:4, Diameter[i]:10:1, Weight[i]:10:1);

WriteLn

End; { of InputOutput } {----------------------------------------------------

------}

Procedure YesNo(Var First, Second : Integer; Var Flag

: Boolean);

Begin {описание процедуры поиска решения задачи} i:=1; Flag := FALSE;

While (i<=Number-1) and not Flag do {цикл по первой шине из пары}

begin

j := i+1;

While (j<=Number) and not Flag do {цикл по вто-

рой шине из пары}

If (Abs(Diameter[i]-Diameter[j]) <= D) and (Abs(Weight[i]-Weight[j]) <= W)

then begin Flag:=TRUE; First:=i; Second:=j

end

else j := j+1; i:=i+1

end;

End; {of YesNo } {----------------------------------------------------

------} BEGIN

InputOutput; {Вызов процедуры ввода-вывода исходных данных}

176

Часть 13. Основы алгоритмизации и программирования

YesNo(First, Second, Flag);{Вызов процедуры поиска решения задачи}

WriteLn('О т в е т :');

If Flag then WriteLn('По параметрам подходят друг другу ',

First, '-ая и ', Second, '-ая

шины.')

else WriteLn('Шин, подходящих друг другу, в

партии нет.');

ReadLn

END.

QBasic

CLS : INPUT "Количество шин : " , Number DIM Diam(Number), Weight(Number)

PRINT "Параметры шин :"

FOR i = 1 TO Number

PRINT i; "-ая шина: " ; : INPUT "Диаметр - " , Diam(i)

PRINT TAB(14);

INPUT " Вес - ", Weight(i)

NEXT i : PRINT

INPUT "Допуск по диаметру : " , D

INPUT "Допуск по весу : " , W

PRINT : PRINT TAB(11); "Пapаметры шин"

PRINT "N шины Диаметр Вес"

FOR i = 1 TO Number

PRINT TAB(3) ; i , Diam(i) , Weight(i) NEXT i : PRINT

177

Часть 13. Основы алгоритмизации и программирования

i = 1 : Flag = 0

WHILE (i <= Number-1) AND (Flag = 0) j = i + 1

WHILE (j <= Number) AND (Flag = 0)

IF (ABS(Diam(i)-Diam(j))<=D) AND (ABS(Weight(i)-

Weight(j))<=W) THEN

Flag = 1 : First = i : Second = j

ELSE j = j + 1

END IF

WEND

i = i + 1 WEND

PRINT : PRINT "О т в е т :"

IF Flag = 1 THEN

PRINT "По параметрам подходят друг другу ";

PRINT First; "-ая и "; Second; "-ая шины."

ELSE PRINT "Шин, подходящих друг другу, нет."

END IF

END

178

Часть 13. Основы алгоритмизации и программирования

9Алгоритмы, реализуемые с помощью комбинации циклов ти-

па ДЛЯ и ПОКА

Схема циклов типа пока / для

Схема циклов типа для / пока

нц для i от A до B

нц пока <условие>

тело внешнего цикла

тело внешнего цикла

. . . . . .

. . . . . .

нц пока <условие>

нц для i от A до B

тело внутреннего цикла

тело внутреннего цикла

кц

кц

. . . . . .

. . . . . .

кц

кц

Пример 1. В заданной целочисленной матрице A(N, M) найти количество строк, содержащих нули.

179

Часть 13. Основы алгоритмизации и программирования

Школьный АЯ

алг Строки с нулями (арг цел N, M,

арг цел таб A[1:N, 1:M], рез

цел K)

дано | N>0, M>0

нач цел i, j, лит Flag K := 0

нц для i от 1 до N | цикл по всем строкам

j:= 1; Flag := "Нет"

нц пока (j <= M) и (Flag = "Нет")

| цикл до нулевого эле-

мента строки

если A[i, j] = 0

то Flag:="Да"; K:=K+1

иначе j:=j+1

все

кц

кц

кон

Исполнение алгоритма

Обозначение проверяемого условия:

(j<=M) и (Flag = "Нет" ) => (1)

180