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

Схема алгоритма решения задачи

Читайте также:
  1. CИТУАЦИОННЫЕ ЗАДАЧИ
  2. CИТУАЦИОННЫЕ ЗАДАЧИ
  3. CИТУАЦИОННЫЕ ЗАДАЧИ
  4. CИТУАЦИОННЫЕ ЗАДАЧИ
  5. CИТУАЦИОННЫЕ ЗАДАЧИ
  6. CИТУАЦИОННЫЕ ЗАДАЧИ
  7. CИТУАЦИОННЫЕ ЗАДАЧИ

Текст программы:

program lab3;
const n=10; {количество элементов в массиве}

var
A:array [1..n] of real; {объявление массива А}
i:byte; {переменная для циклов}
b:boolean; {идентификатор роста}
begin
writeln('vvedite tselie chisla matrici A[',n,',',n,']');
for i:=1 to n do begin {циклвводавмассив}
write('A[',i,'] = ');
readln(A[i]);
end;
writeln;
writeln('matraca imeet vid: ');
for i:=1 to n do begin {циклвыводамассива}
write(A[i]:3:3,' ');
end;
writeln;
b := true;
for i:=1 to n-1 do {цикл определения роста}
if (A[i] > A[i+1]) then begin {если текущий больше следующего}
b := false; {значит масив невозростающий}
break;
end;
if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''')
else writeln('Masiv A - ne vozrostaushaya posledovatelnost''');
readln;
end.

Результат работы программы:

Просмотров: 5226

 


 

Задание

Дано 10 целых чисел. Определить количество положительных чисел, которые делятся без остатка на 3.

Выбор алгоритма решения задачи

В этой задаче нужно применять массив. И с помощью цикла, вносить 10 чисел. Потом поставить условие на определение положительных чисел и условия деления без остатка.

Описание решения задачи

Создадим массив из целых чисел (p:array [1..n] of integer). Вводим 10 чисел в этот массив. Проверяем положительное число (if p[i]>=0), проверяем деление без остатка (if p[i] mod 3 = 0). Если условия осуществляются, то: kol:=kol+1.

Блок-схема

Текст программы

program lab3;
const n=10;
var
p:array [1..n] of integer;
i:byte;
kol:byte;
begin
writeln('vvedite 10 tselih chisel');
for i:=1 to n do
readln(p[i]);
kol:=0;
for i:=1 to n do
if p[i]>0 then
if p[i] mod 3 = 0 then
kol:=kol+1;
writeln('kolichestvo = ',kol);
readln;
end.

Результат работы программы


 


Дата добавления: 2015-07-10; просмотров: 83 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Перевод числа из десятичной системы счисления в шестнадцатеричную систему счисления| Занятия аппликацией в детском саду З.А.Богатеева

mybiblioteka.su - 2015-2017 год. (0.006 сек.)