Алгоритм решения задач на персональном компьютере

циклический и ветвления
Ссылки: Введение
Управляющие кнопки:

Начало

для продолжения нажмите Пробел

Алгоритмизация процесса решения
4. Программирование
5. Тестирование и отладка программы
6. Компилирование и

требуется найти, то есть необходимо четко определить полный набор исходных

2.Вычислить периметр прямоугольника P, если известны различные значения двух его сторон:

Примеры: 1. Вычислить площадь прямоугольника S, если известны две его стороны: a=4 см., b=5 см. S=?

1.Постановка задачи

формул, уравнений, отношений, то есть получение соответствующей математической модели описания

a

b

(S)

2. Формализация решения задачи

Пример: Для вычисления периметра Р и площади S прямоугольника необходимо использовать формулы:

P

P=2*(a+b)

S=a*b

Начало

решения какой-либо задачи
Начало
Способы записи алгоритмов: словесный и в виде блок-схемы
3.

Виды алгоритмов: линейный, циклический, ветвления.

Словесный способ - все действия представлены в виде перечня команд

Блок-схема - это набор геометрических фигур, каждая из которых обозначает определенную функцию.

записи команд – язык программирования
4. Программирование решения задач
Языки программирования

Начало

программ с целью выявления ошибок допущенных при программировании
Отладка- устранение ошибок

синтаксических и семантических ошибок
Трансляция - переход от программы, записанной на

Начало

уровня
Начало

a,
Введите значение стороны b,
Вычислите площадь прямоугольника по формуле: S=a*b,
Выведите на

Начало

Блок-схема

последовательно друг за другом
Начало

со сторонами a и b.
S=?
a
b
Начало

выполняет-ся многократно, каждый раз при новых значениях параметров

Начало

которых не превышает 100
Пример:
S=0+12+22

Начало

S = 0
k = 0

S<=100

S = S+k*k
K=k+1

Конец

нет

да

Виды

Начало

по одной из параллельных ветвей, в зависимости от выполнения условий

Начало

Ввод X
X

Пример:
при х1=2, у1=4
при х2=13, у2=11

у=

Требуется переобучение программистов при переходе на новый ПК
3. Невозможность применения

Достоинства:
Учитывает возможности конкретного ПК.
Процесс решения осуществляется с максимальной скорость.

Начало

– Кобол экономических
1964 г. – Бейсик для начинающих
1967 г. –

Начало

первого в мире автоматического устройства, позволяющего складывать числа.

Разработчик – Никлас

Начало

программу на выбранном языке программирования.

Алфавит языка Turbo Pascal включает:

1) 26

Начало

var a,b,P,S - задание типов переменных
integer –

Начало

S по сторонам а, в прямоугольника
Program Prim;
var а,b,P,S: integer;
BEGIN

S=?

a

b

Начало

-123, 25; +45, - 333
REAL - значениями являются элементы множества

Начало

деление с действительным результатом (25/5=5)
DIV деление с целочисленным результатом

Начало

их значения, т.е. переменная a должна получить значение b, а

Начало

Ввод a,b

DOP:=a
a:=b
b:=DOP

Вывод a,b

Конец

Program Primer_1;
Var а, b, Dор: integer;
BEGIN
writeln(а,b);
readln(a,b);

Dор := а;
а := b;
b:=Dор;


writeln(а,b);
readln;

END.

Начало

k:=0;
while S

Начало

S = 0
k = 0

S<=100

S = S+k*k
k=k+1

Конец

нет

да

Задача: Вычислить количество натуральных чисел, сумма квадратов которых не превышает 100

Начало

else y:=x-2; writeln(y); readln; END.
при

Пример программы ВП

(S1)

(S2)

при x > 10

Ввод x

x<10

S1

S2

Вывод y

Начало

Конец

да

нет

Вычислить y=

одномерном массиве:

подсчёт элементов, обладающих заданным свойством;
поиск максимального и

с оценками 10
учеников по информатике. Требуется посчитать, сколько из них
имеет

Основной блок этой задачи имеет вид:
…
s:=0; {Подсчёт элементов}
for i:=1 to 10 do {равных данному(5)}
if a[ i ]=5 then s:=s+1;
…

] содержит числа – рост 10
учеников в сантиметрах. Требуется найти

Основной блок этой задачи имеет вид:
…
s:=A[ 1 ]; {Поиск}
for i:=2 to 10 do {максимального элемента}
if a[ i ]>s then s:=A [ i ];
…

] содержит оценки по информатике
10 учеников. Требуется выяснить, имеется ли

Основной блок этой задачи имеет вид:
…
i:=1; {Поиск элементов}
while (i<=10) and a([ i ]<>3)
do i:=i+1; {равных данному(3)}
if i>10
then writeln (‘3 нет’)
else writeln (‘первая 3 имеет индекс ’, i);
…

вращающуюся стрелку.
Имитацию стрелки можно запрограммировать, используя массив состоящий из четырёх

Program twirl;
uses Dos, Crt;
procedure rot (j, k: Integer; color, speed: Word);
const
line: array [0..3] of Char = (‘|’, ‘\’, ‘-’, ‘/’);
var
m: Integer;
BEGIN
TextColor(color);
m:=0;
repeat
GotoXY(j, k);
write(line[m]);
GotoXY(1, 1);
Delay(speed);
m:= (m+1) mod 4;
until KeyPressed;
TextColor(LightGray);
end;
begin
rot(40, 30, Yellow, 100);
END.

m=3;
type mas=array[1..n,1..m] of integer;
Var B,С : mas; i:

Задача: составить программу для удвоения значений вводимой матрицы.

Разработка программ с применением двумерных
массивов