хуйня. Program tilt var x,y real begin

• Название: Program tilt var x,y real begin
• Анкор: хуйня
• Дата: 24.05.2022
• Размер: 1.39 Mb.
• Имя файла: 444-----------.docx
• Тип: Отчет; #547127

Отчёт

Студента

Группы 11ИС

Швецов Александр

Задание 1

Используя цикл REPEAT составить таблицу значений функции.

program tilt;

var x,y: real;

begin

x:= 0.5;

repeat

x:=x+0.5;

y:= exp(x/3);

writeln('y= ', y:3:2, ' x= ', x:3:2);

until x>6;

end.

Задание 2

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= 0;

repeat

x:=x+0.2;

y:= (cos(x)-1)/2*x;

writeln('y= ', y:3:2, ' x= ', x:3:2);

until x>pi;

end.

Задание 3

Написать программу, пользователь вводит значение N, а программа выводит на экран таблицу умножения на N от 1 до 10.

program tilt;

var x,y,n: real;

begin

writeln('Введите n');

read(n);

x:= 1;

repeat

y:= n*x;

writeln('y= ', y:3:2);

x:=x+1;

until x>10;

end.

Задание 4

Написать программу, в которой пользователь вводит несколько чисел, программа выводит среднее арифметическое четных чисел.

program tilt;

var x, y, z, n, v :integer;

var s:real;

begin

write('Введите кол-во чисел: ');

readln(n);

x:=1;

repeat

writeln('Введите число ', x, ':');

readln(y);

if y mod 2 = 0 then

z:=z+y;

if y mod 2 = 0 then

v:=v+1;

x:=x+1;

until x>n;

s:=z/v;

write('s = ', s);

end.



Задание 5

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= 0;

repeat

y:= 3*x*x-1.8*x;

writeln('y= ', y:3:2, ' x= ', x:3:2);

x:=x+0.5;

until x>5;

end.



Задание 6

Написать программу, в которой пользователь вводит несколько чисел, программа выводит среднее арифметическое нечетных чисел.

program tilt;

var x, y, z, n, v :integer;

var s:real;

begin

write('Введите кол-во чисел: ');

readln(n);

x:=1;

repeat

writeln('Введите число ', x, ':');

readln(y);

if y mod 2 <> 0 then

z:=z+y;

if y mod 2 <> 0 then

v:=v+1;

x:=x+1;

until x>n;

s:=z/v;

write('s = ', s);

end.


Задание 7

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= 0.5;

repeat

y:= (6*sqr(x)-1)/(5*x-2);

writeln('y= ', y:3:2, ' x= ', x:3:2);

x:=x+0.2;

until x>3;

end.


Задание 8

Написать программу, в которой пользователь вводит несколько чисел, программа выводит количество положительных чисел.

program tilt;

var x, y, z, n, v :integer;

begin

write('Введите кол-во чисел: ');

readln(n);

x:=1;

repeat

writeln('Введите число ', x, ':');

readln(y);

if y > 0 then

z:= z+1;

x:=x+1;

until x>n;

write('z = ', z);

end.


Задание 9

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= -2;

repeat

y:= -2.4*sqr(x)+5*x-3;

writeln('y= ', y:3:2, ' x= ', x:3:2);

x:=x+0.5;

until x>2;

end.


Задание 10

Написать программу для решения следующей задачи: сумму S поместили в

банк под процент t. Необходимо выводить в течении 5 лет сумму, полученную в конце года.

program tilt;

var x,y,a: real;

begin

x:= 1;

writeln('Введите сумму вклада: ');

readln(y);

writeln('Введите процент вклада: ');

readln(a);

repeat

y:= y + y/100*a;

writeln('Сумма на конец: ',x,'года ровна', y:3:2);

x:=x+1;

until x>5;

end.


Задание 11

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= -3;

repeat

y:= sqr(x)-6*x+9;

writeln('y= ', y:3:2, ' x= ', x:3:2);

x:=x+0.5;

until x>2;

end.


Задание 12

Написать программу для решения следующей задачи: учебным заведением

был приобретен стол за S руб. Его амортизация составляет 12% в год. Определить, сколько он будет стоить через N лет.

program tilt;

var x, n :integer;

var y :real;

begin

write('Введите кол-во лет: ');

readln(n);

write('Введите Стоймость стола: ');

read(y);

x:=1;

repeat

y:= y - y/100*12;

writeln('Стоймость стола на конец: ',x,'-го года ровна ', y:3:2);

x:=x+1

until x>n;

end.


Задание 13

Используя цикл REPEAT составить таблицу значений функции

program tilt;

var x,y: real;

begin

x:= -1;

repeat

y:= 1/(x-3);

writeln('y= ', y:3:2, ' x= ', x:3:2);

x:=x+0.5;

until x>5;

end.



Задание 14

Ввести с клавиатуры несколько N чисел, найти из них наибольшее и вывести

его.

program tilt;

var x,a,n,b,y: real;

begin

write('Введите количество чисел: ');

read(n);

x:= 1;

repeat

write('Введите ',x,'-ое число: ');

read(b);

if b>a then y:=b;

a:=b;

x:=x+1;

until x>n;

writeln('Самое большое число ровно: ', y);

end.


Задание 15

Определить, является ли введенное число простым.