Лаба 3
.docx
Лабораторная работа №3
Работу выполнил:
студент 1-ФПП-2
Ненашев Владимир
Задание 1.
Составить программу, которая выводит на экран счётчик, а так же вашу фамилию и имя 10 раз
Program Nen1;
var x:integer;
begin
for x:=1 to 10 do
begin
writeln (x,'. Ненашев Владимир');
end;
end.
Задание 2.
Дано целое положительное число N. С использованием цикла FOR составить программу которая выводит на экран таблицу значений функций y при целых значениях аргумента х от 1 до N.
Задание 3.
С использованием цикла WHILE составить программу, выполняющую табулирование функций y=f(х) на отрезке [x1,Xn] с шагом H. Результат вывести с четырьмя знаками после запятой.
x1 = 2; Xn = 5; h = 0,5; a = 1,5; b = 4,8
Задание 4.
С использованием цикла REPEAT составить программу, вычисляющую сумму введённых целых положительных чисел. Числа вводятся пользователем, до тех пор, пока их сумма не превысит значение 100.
Задание 5.
Спортсмен – лыжник начал тренировки, пробежав 1 день 10 км. Каждый следующий день он увеличивал длину пробега на Р км. По данному Р определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км.