4)Блок схема:
Начало
Ввод А1, В1, С1
Ввод А2, В2, С2
SortDec(A1,B1,C1)
Вывод 'A1,B1,C1: ', A1:3,B1:3,C1:3
SortDec(A2,B2,C2)
Вывод 'A2,B2,C2: ', A2:3,B2:3,C2:3
Конец
5) Трассировка:
6)Вывод : описала процедуру SortInc3(A, B, C), меняющую содержимое переменных A, B, C таким образом, чтобы их значения оказались упорядоченными по возрастанию (A, B, C - вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по возрастанию два данных набора из трех чисел: (A1, B1, C1) и (A2, B2, C2).
План отчета по алгоритмизации.
Отчет Петровой Ксении Викторовны
Группа 21115
Вариант е, номер задания 6(б).
1) Цель: Описать функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B - целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.
2) Сведения о численном методе.
Program ...
uses ...
var ... - описание глобальных переменных
Function name(xl[,xl1,...]:<type>):<type>;
var ... - описание локальных переменных
Begin
...
End;
Begin - основной блок программы
...
s:= name(xg[,xg1,...]); - вызов функции с глобальными параметрами
...
End.
xg и xl - глобальные и локальные переменные.
xg и xl могут иметь одинаковые имена.
3)Листинг программы:
program proc;
uses crt;
Var a,b,c,s1,s2: integer;
Function SumRange(a, b:integer):integer;
Var x,s:integer;
begin
S:=0;
for x:=a to b do
S:=S+x;
SumRange:=s;
end;
begin
writeln ('Vedite a');
readln(a);
writeln ('Vedite b');
readln(b);
writeln ('Vedite c');
readln(c);
writeln( 'Summa chisel ot A do B - ', SumRange(A, B));
writeln( 'Summa chisel ot B do C - ', SumRange(B, C));
Repeat Until keypressed
end.
4)Блок схема:
5) Трассировка:
6)Вывод : описала функцию SumRange(A, B) целого типа, находящую сумму всех целых чисел от A до B включительно (A и B - целые). Если A > B, то функция возвращает 0. С помощью этой функции найти суммы чисел от A до B и от B до C, если даны числа A, B, C.
План отчета по алгоритмизации.
Отчет Петровой Ксении Викторовны
Группа 21115
Вариант е, номер задания 7(а).
1) Цель: Дан целочисленный массив размера N, все элементы которого упорядочены (по возрастанию или по убыванию). Найти количество различных элементов в данном массиве.
2) Сведения о численном методе.
Основные функции работы со строками:
chr(i) - преобразует целое число i в символ кода ASCII (0-255)
Ord('<символ>') - возвращает порядковый номер (код ASCII) <символа>
-----
примеры:
write(chr(65)) - будет выведен символ 'A'
write(ord('A')) - будет выведен номер 65
Пример:
str : string - переменная типа "строка"
...
Pos(search_word,str)
Length(str)
Upcase(str) - преобразование символа из прописного в строчный
Copy
Insert
3)Листинг программы:
program zadacha;
var n,i,k:integer;
chusla:set of integer;
a:array[1..10] of integer;
begin
write('Введите размер массива');
readln(n);
chusla:='';
kol:=0;
for i:=1 to N-1 do
if a[i]<>a[i+1] then
begin
Inc(kol);
if i=N-1 then Inc(kol)
end;
end;
writeln('количество различных элементов',k);
readln;
end.