Отчет РК
.docЛабораторная работа №7
Задание 1.
Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении x,которое вводится с клавиатуры. Результат вывести с тремя знаками после запятой. Варианты заданий приведены в таблице 7.1.
program primer1;
Const a=2.71; b=1.63; c=0.81;
Var x ,y :real;
Begin
Writeln('Введите x=');
Readln (x);
y:=sqrt((a*exp(3*ln(x))+arctan(x))/(c*x+b*abs(ln(x))));
Writeln('Значение y',y:5:3);
End.
Задание 2.
Составить программу на языке Pascal в соответствии с заданием варианта. Рекомендуемый вид экрана приведен в конце каждой задачи.Значения, вводимые с клавиатуры, выделены полужирным шрифтом.
program primer2;
Var R1,R2,s1,s2,s3 :real;
Begin
Writeln('Введите R1=,R2=');
Readln( R1, R2);
S1:=pi*r1*r1 ;
S2:=pi*r2*r2;
S3:= s2-s1;
Writeln(S1,S2,S3);
End.
Задание 3.
Составить программу на языке Pascal для вычисления значения функции y=f(x) при заданном значении x,которое вводится с клавиатуры. Запустив программу дважды, получить ответ для каждого из заданных значений x. Результат вывести с тремя знаками после запятой. Варианты заданий приведены в таблице 7.2.
program primer3;
Const a=9.5;b=3.8;
Var x ,y :real;
Begin
Writeln ('Введите x=' );
Readln (x);
If x<=-1 then y:=a*sin(x*x)/cos(x*x) else y:=b+sqr(x)/sqr(x)+a;
Writeln ('Значение y=',y:5:3);
End.
Задание 4.
Составить программу на языке Pascal в соответствии с заданием варианта. Рекомендуемый вид экрана приведен в конце каждой задачи. Значения, вводимые с клавиатуры, выделены полужирным шрифтом.
program primer4;
Var a,b,c :real;
Begin
Writeln ('Введите a=Введите b= Введите c=');
Readln (a,b,c);
if (a>=1) and (a<=3) then writeln('a=',a);
if (b>=1) and (b<=3) then writeln('b=',b);
if (c>=1) and (c<=3) then writeln('c=',c);
End.
Лабораторная работа №8
Задание 1.
Составить программу, которая выводит на экран счетчик, а также вашу фамилию и имя 10 раз:
1.Иванов Иван
2.Иванов Иван
…..
10.Иванов Иван
program primer1;
var i:integer;
Begin
For i:=1 to 10 do
writeln(' Слипченко Таня');
end.
Задание 2.
Дано целое положительное число N. С использованием цикла FOR составить программу, которая выводит на экран таблицу значений функции y при целых значениях аргумента x от 1 до N.
program primer2;
var x:integer;
y:real;
Begin
writeln ('Введите x=');
Readln(x);
For x:=1 to 10 do
Begin
y:=cos(x);
writeln(y);
end;
end.
Задание 3.
С использованием цикла WHILE составить программу, выполняющую табулирование функции y=f(x) на отрезке [x1, xn] с шагом h. Результат вывести с четырьмя знаками после запятой. Варианты заданий приведены в таблице 8.1.
program primer3;
const a=1.5; b=4.8;
var x,y,x1,xn,h:real;
begin
writeln('Введите x1,xn,h');
read(x1,xn,h);
x:=x1;
writeln(' x',' ','y');
while x<xn do
begin
if x<0 then writeln('корней нет') else if b*ln(a*sqr(x))+b*(ln(x)*ln(x))<0 then
writeln('корней нет')
else
begin
y:=a*(b/x-ln(a*x)/b*b);
x:=x+h;
end;
end;
end.
Задание 4.
С использованием цикла REPEAT составить программу, вычисляющую сумму введенных целых положительных чисел. Числа вводятся пользователем с клавиатуры до тех пор, пока их сумма не превысит значение 100. На каждом шаге цикла организовать вывод промежуточного значения суммы.
program primer4;
var x,y,x1:real;
const x2=100;
begin
x:=0;
repeat
writeln('Введите x1');
read(x1);
x:=x+x1;
writeln('Сумма =',x);
until x>=x2;
writeln('Сумма =100. Программа завершена');
end.
Лабораторная работа №9
Задание 1.
Написать программу, которая обрабатывает результаты экзамена. Для каждой оценки программа должна вычислить процент от общего количества оценок.
program primer1;
var i,s:integer; x:real;
t: array [1..5]of integer;
begin
writeln ('введите пятерок=' );
readln (T[1]);
writeln('введите четверок=');
readln (T[2]);
writeln('введите троек=');
readln (T[3]);
writeln('введите двоек=');
readln (T[4]);
s:=s+T[1]+T[2]+T[3]+T[4];
for i:=1 to 4 do
begin
x:=(t[i]/s)*100;
writeln (x:3:3,'%');
end;
end.
Задание 2.
Написать программу, которая определяет количество учеников в классе, чей рост превышает средний.
program primer2;
const b=172.6;
var i,n:integer; x,r:real;
mark: array[1..100] of real;
begin
x:=0; n:=5;
For i:=1 to n do begin Writeln ('Ðîñò ' ,i);
read (mark[i]);
r:=r+mark[i];
end;
r:=r/n;
for i:=1 to n do begin if mark[i]>r then x:=x+1; end;
writeln ('y ' , x , ' человек рост выше среднего ',r);
End.
Задание 3.
Дан массив из десяти целых чисел:{2;-3;5;0;7;-4;1;-1;-6;9;}
program primer3;
Var a:array[1..10] of real;
Var i:integer;
Var s:real;
Begin
For i:=1 to 10 do
Begin
Writeln('Введите a[',i,']');
Read(a[i]);
end;
s:=0;
For i:=1 to 10 do
If (a[i]>0) and( a[i]<=7) then s:=s+a[i];
writeln('s=',s)
End.
Cамарский Государственный Технический Университет
Министерство Образования и науки российской Федерации
Федеральное агентство по образованию Государственного образовательное учреждение
Высшего профессионального образования
Кафедра прикладной математики и информатики
Отчет по лабораторным работам по информатике
Вариант №6
Выполнил :студент 1-ФТФ-6
Меженин Я.
Проверила: Егорова Г.Ф
Самара 2012