Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Упражнения. 1 Перепишите алгоритмы, заменив команду повторения командой повторения с параметром.






1 Перепишите алгоритмы, заменив команду повторения командой повторения с параметром.

 

а) алг заполнение (вещ. таб. W[5: 9, 12: 14]) рез W начнат i, j i: =5 пока i< =9 нц j: =12 пока j< =14 нц если j+i> =20 то W[i, j]: =0 иначе W[i, j]: =j-i все j: =j+1 кц i: =i+1 кц кон  
б) алг разность (вещтаб Е[2: 6, 14: 17], к) арг Е рез к начнат i, j к: =0; i: =2 пока i< =6 нц j: =14 пока j< =17 нц если E[j, i]> 0 то k: =k-E[i, j] все j: =j+1 кц i: =i+1 кц кон
в) алг сумма (вещтаб L[2: 4, 8: 13], t) арг L рез t начнат i, j i: =2; t: =0 пока i< =4 нц j: =8 пока j< =13 нц если L[j, i]> =16 то t: =t иначе t: =t+L[i, j] все j: =j+1 кц i: =i+1 кц кон
д) алг произведение (вещтаб V[4: 8, 5: 9], g) арг V рез g начнат i, j i: =4; g: =1 пока i< =8 нц j: =5 пока j< =9 нц если V[j, i]< =15 то g: =g*V[i, j] все j: =j+1 кц i: =i+1 кц кон
е) aлг сумма (вещтаб S[7: 11, 0: 4], r, t) арг S рез r, t начнат i, j i: =7; t: =0; r: =0 пока i< =11 нц j: =0 пока j< =4 нц если S[j, i]> 30 то r: =r+S[i, j] иначе t: =t+S[i, j] все j: =j+1 кц i: =i+1 кц кон
ж) алг заполнение (вещ таб B[2: 7, 3: 6]) рез B начнат i, j i: =2 пока i< =7 нц j: =3 пока j< =6 нц если j< =i то B[i, j]: =10 иначе B[i, j]: =100 все j: =j+1 кц i: =i+1 кц кон
и) алг сумма (вещтаб N[2: 6, 8: 11], h) арг N рез h начнат i, j i: =2; h: =0 пока i< =6 нц j: =0 пока j< =8 нц если N[j, i]> =75 то h: =h иначе h: =h+N[i, j] все j: =j+1 кц i: =i+1 кц кон
к) алг разность (вещтаб R[12: 16, 4: 7], z) арг R рез z начнат i, j z: =500; i: =12 пока i< =16 нц j: =4 пока j< =7 нц если R[j, i]> 10 то z: =z-R[i, j] все j: =j+1 кц i: =i+1 кц кон
л) алг сумма (вещтаб S[10: 12, 3: 7], d) арг S рез d начнат i, j i: =10; d: =0 пока i< =12 нц j: =3 пока j< =7 нц если S[j, i]< 60 то d: =d+S[i, j] иначе d: =d все j: =j+1 кц i: =i+1 кц кон
м) алг сумма (вещтаб S[10: 12, 3: 7], d) арг S рез d начнат i, j i: =10; d: =0 пока i< =12 нц j: =3 пока j< =7 нц если S[j, i]< 60 то d: =d+S[i, j] иначе d: =d все j: =j+1 кц i: =i+1 кц кон

 

2 Составьте алгоритм для прибавления 1 к каждому элементу линейной таблицы.

3 Составьте алгоритм для заполнения таблицы квадратами двузначных чисел, если строки таблицы – первая цифра числа, столбцы – вторая цифра числа.

4 Составьте алгоритм определения количества воскресений в 1991 году, если первое воскресение было 6 января.

5 Составьте алгоритм для нахождения максимального элемента прямоугольной таблицы.

 

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

 

а) алг заполнение (вещ таб А[11: 18, 3: 6]) рез А начнат i: j для i от 11 до 18 нц для j от 3 до 6 нц если 3j> =i то А[i, j]: =i+j иначе А[i, j]: =50 все кц кц кон    
б) алг произведение (вещтаб С[4: 7, 13: 19], р) арг С рез p начнат i: j р: =1 для I от 4 до 7 нц для j от 13 до 19 нц если С[I, j]< =0 то р: =р*С[I, j] все кц кц кон    
в) алг сумма (вещтаб Т[10: 14, 3: 5], а) рез Т начнат i: j а: =0 для I от 10 до 14 нц для j от 3 до 5 нц если Т[I, j]< 45 то а: =а+Т[I, j] иначе а: =а все кц кц кон    
г) алг подсчет (вещтаб G[4: 8, 2: 9], цел x, z) арг G рез z начнат i, j z: =1; x: =0 для i от 4 до 8 нц для j от 2 до 9 нц если G[i, j]< 0 то z: =z+1 иначе x: =x+1 все кц кон

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал