ПОДПРОГРАММЫ

подПрограммы

Задачи

№1  Составить программу с подпрограммой нахождения наименьшего общего кратного двух чисел, используя формулу:              НОК(А, В) = (А*В)/НОД(А, В)

№2  Даны две дроби a/b и c/d (a, b, c, d – натуральные числа).Составить программу умножения дроби на дробь. Результат получить в виде простой несократимой дроби e/f. Использовать подпрограмму алгоритма Евклида для определения НОД. Протестируйте её на значениях A=5, B=6, C=3, D=4.

№3   Даны две дроби a/b и c/d (a, b, c, d – натуральные числа).Составить программу деления дроби на дробь. Результат получить в виде простой несократимой дроби e/f. Использовать подпрограмму алгоритма Евклида для определения НОД. Протестируйте её на значениях A=5, B=6, C=3, D=4.

№4  Вычислить разность двух простых дробей:a/b-c/d (a, b, c, d – натуральные числа). Результат получить в виде простой несократимой дроби e/f. Использовать подпрограмму алгоритма Евклида для определения НОД. Протестируйте её на значениях A=5, B=6, C=3, D=4.

№5  Проверить, являются ли данные три числа взаимно простыми.

Задание по теме: «ОПЕРАТОР ПРИСВАИВАНИЯ, ВВОД И ВЫВОД ДАННЫХ»

Задание по теме:

«Оператор присваивания, ввод и вывод  данных»

Задание №1

Var y: real;

n: integer;

Определите какие из следующих операторов присваивания правильные, а какие – нет?

А) Y:=n+1; Б) N:=y-1 В) N:=4.0 Г) Y:=trunc(y)

Д)Y:=n div 2 Е) Y:=y div 2 Ж) N:=n/2 З) N:= sqr(sqrt(n))

Задание №2

Введите программу из примера 1:

}  Program Multiply;

}  vara, b, ab: integer;

}  Begin

}  write(‘A= ‘); Readln(A);

}  write(‘B= ‘); Readln(B);

}  AB:=A*B;

}  writeln ( A, ‘*’, B , ‘=‘, AB);

}  End.

Задание №3

Введите программу из примера 2:

}  ProgramSumCifr;

}  varx, Sum: integer;

}  Begin

}  write(‘Введите трехзначное число:  ‘); Readln(x);

}  Sum:=0

}      Sum:=Sum + X mod  10;

}      x:=x div 10;

}      Sum:=Sum + X mod  10;

}      x:=x div 10;

}      Sum:=Sum + X ;

}      write ( ‘Сумма цифр= ’, Sum);

}  End.

Протестируйте программу для чисел 368, 129, 427.

Дополните программу, чтобы она работала для пятизначных чисел.

Задание №4

Напишите программу на Паскале, которая:

1.      вычисляет длину окружности(С) и площадь круга (S) одного и того же радиуса R.

2.      Вычисляет расстояние между двумя точками А(х1,у1) и В(х2,у2) на плоскости.

Задание по теме: «МАССИВЫ»

Задание по теме:

«МАССИВЫ»

Ответить на вопросы:

1)      Что такое регулярный тип данных? Что такое массив?

2)      Какие типы допустимы для индексов массива?

3)      Как в Паскале трактуется многомерный массив?

4)      Какие действия можно выполнять над массивом как единым целым?

Задачи

•      Даны измерения температуры за декаду. Записать их в одномерный массив. Распечатать его в строчку. Найти наименьшее значение температуры за декаду.

•      Даны измерения температуры за две недели. Записать их в одномерный массив. Распечатать его в строчку. Найти среднее значение температуры за две недели.