Студопедия

КАТЕГОРИИ:


Архитектура-(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;

<== предыдущая лекция | следующая лекция ==>
Цепочка. Такой цикл повторяется до тех пор, пока условие ложно | Case (Month) Of
Поделиться с друзьями:


Дата добавления: 2014-01-06; Просмотров: 276; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.007 сек.