Лаба 3

Лабораторная работа №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 км.