КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Программа
End Repeat Begin End. Repeat Begin ПОВТОРЯТЬ s = s + i; i = i + 1; ДО (i > 100); Программа: Program Gauss; Uses CRT; Var i, s: Word; ClrScr; s:= 0; i:= 1; s:= s + i; i:= i + 1; Until (i>100); WriteLn(‘s = ‘, s); ReadLn; 2. вычислить сумму s всех цифр заданного натурального числа n Пусть s – искомая сумма, i – очередная цифра числа. Тогда алгоритм решения задачи можно описать следующим образом: a. обнуляем сумму s, b. берем последнюю цифру числа, для чего определяем остаток от деления исходного числа на 10: i = n Mod 10, c. добавляем в сумму найденную цифру: s = s + i, d. уменьшаем число в 10 раз: n = n Div 10, e. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла. Схема алгоритма: Программа: Program Sum; Uses CRT; Var i, s, n: Word; ClrScr; Write(‘n= ‘); ReadLn(n); s:= 0; i:= n Mod 10; s:= s + i; n:= n Div 10; Until (n = 0); WriteLn(‘s = ‘, s); ReadLn; 3. ввести с клавиатуры по одному последовательность целых чисел (конец последовательности – число 0). Определить их сумму, максимальное и минимальное число, количество введенных чисел и их среднее арифметическое. Пусть s – искомая сумма, min, max – минимальное и максимальное из введенных чисел, count – количество введенных чисел, sred – среднее арифметическое, n – очередное число. Тогда алгоритм решения задачи можно описать следующим образом: a. обнуляем сумму s, b. вводим первое число n, c. если оно не равно нулю, то 1. принимаем его значение за min и max 2. количество введенных чисел count = 1 3. увеличиваем сумму на введенное число s = s + n 4. входим в цикл ввода: d. вводим очередное число n, e. если оно не равно нулю, то 1. количество введенных чисел увеличиваем на 1: count = count +1 2. увеличиваем сумму на введенное число s = s + n 3. если оно меньше min, то min = n, 4. если оно больше max, то max = n, f. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла. g. Создадим интерфейс этой задачи – взаимодействие программы с пользователем, то есть что должно выводиться на экран: Первое число: 3 Очередное число: 8 Очередное число: 1 Очередное число: -2 Очередное число: 0 Сумма = 10 Количество чисел = 4 Min = -2 Max = 8 Среднее арифметическое = 2.50 Схема алгоритма:
Program Posled; Uses CRT; Var n,min,max,s,count: Word; sred: Real;
Дата добавления: 2014-01-06; Просмотров: 276; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |