close

Вход

Забыли?

вход по аккаунту

?

Отчет (3)

код для вставкиСкачать
Рязанский станкостроительный колледж РГРТУ
ОТЧЁТ
За первый семестр 2012г.
По дисциплине: Основы алгоритмизации и
программирования
студента гр. ИС-21
Морозова Александра Эдуардовича
Проверил преподаватель:
___ОА и П_______ О. И. Барсукова
«20» _
Рязань 2012
декабря____2012 г.
Задание №1
Дан массив А состоящий из N элементов. Элементы массива – произвольные
целые числа. Распечатать элементы в две строки: В первой строке элементы с
нечетными индексами, а во второй с четными индексами.
Программа на алгоритмическом языке
алг PR1
нач целочис n,I,j,k
массив А:[1..1000] целочис
массив В:[1..1000] целочис
массив С:[1..1000] целочис
Ввод n
Для i от 1 до 10 нач цикла
Ввод A[i]
Если i mod 2=0 тогда нач j:=j+1
B[i]:=A[i]
кон
Если i mod 2<>0 тогда нач k:=k+1
C[k]:=A[i]
Кон
Конец цикла
Для i от 1 до j исполнять
Вывод B[i] в строчку
Для I от 1 до k исполнять
Вывод C[i] в строчку
Кон.
Программа на Pascal
Program PR1;
Var A: Array[1..1000] of integer; B:Array[1..1000] of integer; C:Array[1..1000] of
integer;
n, I, j, k : integer;
Begin
Write(‘Vvedite kol-vo elementov’);
Read(n);
For i:=1 to 10 do begin
Write (‘vvedite elementi’);
Read(A[i]);
If i mod 2=0 then begin j:=j+1; B[j]:=A[i]; end;
If I mod 2<>0 then begin k:=k+1; C[k]:=A[i]; end;
End;
For i:=1 to j do
Write(B[i],’ ‘);
For i:=1 to k do
Write (C[i],’ ‘); End.
Блок-схема
Начало
Ввод n
i:=1 to n
Ввод
A[i]
НЕТ
ДА
I mod 2=0
J:=j+1
K:=k+1
B[j]:=A[i]
C[k]:=A[i]
i:=1 to 10
Вывод
B[i]
I:=1 to 10
Вывод
C[i]
Конец
Задание №2
Дан массив А состоящий из 45 элементов. Элементы массива произвольные
целые числа. Определить минимальный элемент массива и его индекс.
Программа на алгоритмическом языке
Алг PR2
Нач целочис I, min, mini
Массив A:[1..45] целочис
Для I от 1 до 45 нач цикла
A[i]:=Random(45)5
Вывод A[i]
Кон цикла
Min:=A[1]
Для I от 1 до 45 нач цикла
Если A[i]<=min тогда
Min:=A[i]
Mini:=i
Конец цикла
Вывод min
Вывод mini
Кон
Программа на Pascal
Program PR2;
Var A:Array[1..45] of integer; I, imin, min: integer;
Begin
For i:=1 to 45 do begin
A[i]:=Random(45)5;
Write(A[i]);
End;
min:=A[i];
For i:=1 to 45 do begin
If A[i]<=min then begin
min:=A[i]; imin:=i;
end;
end;
Write(‘Min=’,min);
Write(‘Index=’,imin);
End.
Блок-схема
Начало
i:=1 to 45
A[i]:=Random(45)5
Вывод A[1]
Min:=A[i]
I:=1 to 45
НЕТ
ДА
A[i]<=min
Min:=A[i]
Min:=A[1]
Mini:=i
Mini:=i
Вывод min
Вывод mini
Конец
Задание №3
Дан массив целых чисел состоящий из 10 элементов. Заполнить его с
клавиатуры. Найти:
- сумму отрицательных элементов;
- кол-во тех элементов, значения которых положительны и не превосходят
заданного числа А;
- номер последней пары соседних элементов с разными знаками.
Программа на алгоритмическом языке
Алг PR3
Нач целочис S, k, I, A, nomer, Y
Массив B:[1..10] целочис
S:=0
Для I от 1 до 10 нач цикла
Вывод «Введите элементы массива»
Ввод B[i]
Если B[i] <0 тогда S:=S+B[i]
Кон цикла
Вывод S
Вывод «Введите число А»
Ввод А
K:=0
Для I от 1 до 10 нач цикла
Если (B[i]>0) и (B[i]<A) тогда
K:=k+1
Кон цикла
Вывод k
Если S>0 тогда Вывод «Таких пар нет»
Для I от 1 до 10 нач цикла
Если B[i]*B[i-1]<0 тогда nomer:=i
Кон
Если S<0 тогда вывод «Пара с номером» Вывод nomer div 2
кон
Программа на Pascal
Program PR3;
Var B:Array[1..10] of integer;
S,k,I,A,nomer,Y: integer;
Begin
S:=0;
For i:=1 to 10 do begin
Write(‘Vvedite elementi massiva’);
Read(B[i]);
If B[i]<0 then S:=S+B[i];
End;
Write(‘S=’,S);
Write(‘Vvedite A’);
Read(A);
For i:=1 to 10 do begin
If (B[i]>0) and (B[i]<A) then
k:=k+1;
end;
Write(‘k=’,k);
If S>=0 then write(‘Takix par net’);
For i:=1 to 10 do begin
If B[i]*B[i-1]<0 then nomer:=I;
End;
If S<0 then Write(‘Para s nomerom’, nomer div 2’,’ ‘);
End;
End;
End.
Блок-схема
Начало
S:=0
K:=0
I:=1 to 10
Ввод B[i]
ДА
B[i]<0
S:=S+B[i]
НЕТ
Вывод S
Ввод А
i:=1 to 10
ДА
(B[i]>0) and
(B[i]<A)
K:=k+1
НЕТ
Вывод К
S>=0
Вывод
«Таких пар
нет»
i:=1 to 10
B[i]*B[i-1]<0
Nomer:=i
S<0
Вывод «Пара с
номером»
nomer div 2
Конец
Задание№4
Дан массив целых чисел, состоящий из N элементов. Элементы массива
произвольные целые числа. Определить сумму элементов расположенных до
максимального элемента массива.
Программа на алгоритмическом языке
Алг PR4
Нач целочис n, I, S, j, max, maxi;
Массив А:[1..1000] целочис
Массив B:[1..1000] целочис
Вывод «Ввудите размерность массива n »
Ввод n
Для I от 1 до n нач цикла
Вывод «Введите элементы массива»
Ввод A[i]
Кон цикла
Max:=A[i]
Для I от 1 до n нач цикла
Если A[i]>max тогда
Max:=A[i]
Maxi:=i
Кон цикла
Для I от 1 до n нач цикла
Если i<max тогда нач j:=j+1
B[i]:=A[i]
Кон цикла
S:=0
Для I от 1 до maxi нач цикла
S:=S+B[i]
Кон цикла
Вывод S
Кон
Программа на Pascal
Program PR4;
Var A:Array[1..1000] of integer;
B:Array[1..1000] of integer;
n, I, S, j, max, maxi: integer;
Begin
Write(‘Vvedite n’);
Read(n);
For i:=1 to n do begin
Write(‘Vvedite elementi massiva’);
Read(A[i]);
End;
Max:=A[i];
For i:=1 to n do begin
If A[i]>max then begin
Max:=A[i]; maxi:=I;
End;
End;
For i:=1 to n do begin
If i<maxi then begin j:=j+1; B[j]:=A[i]; end;
End;
S:=0;
For i:=1 to maxi do begin
S:=S+B[i];
End;
Write(‘S=’,S);
End.
Блок-схема
Начало
Ввод n
I:=1 to n
Ввод A[i]
Max:=A[1]
i:=1 to n
НЕТ
ДА
A[i]>max
Max:=A[i]
Max:=A[1]
Maxi:=i
Maxi:=1
I:=1 to n
ДА
I<maxi
J:=j+1
НЕТ
B[i]:=A[i]
S:=0
i:=1 to maxi
S:=S+B[i]
Вывод
S
Конец
Документ
Категория
Программирование, Базы данных
Просмотров
6
Размер файла
474 Кб
Теги
отчет
1/--страниц
Пожаловаться на содержимое документа