это быстро и бесплатно
Оформите заказ сейчас и получите скидку 100 руб.!
Ознакомительный фрагмент работы:
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
........................................
Кафедра «Прикладная математика и информатика»
ОТЧЕТ
ПО ЛАБОРАТОРНОЙ РАБОТЕ № ___
Дисциплина «Информатика»
Тема: «Организация циклов в системе Паскаль»
Выполнила:
Студентка группы:
Преподаватель:
Цель: научиться организовывать циклы трех видов в системе Паскаль
Задание: составить блок-схему алгоритма и программу на языке Паскаль вычисление значения функции Ү=F(x) для аргумента x изменяющегося от x до xс шагом изменения H.
Program Z_1;
USES CRT;
VAR XN,XK,X,Y,H,a,b:real;
I,K:integer;
BEGIN
clrscr;
writeln('Vvedite XN,XK,H,a,b');
readln(XN,XK,H,a,b);
K:=trunc((XK-XN)/H+1);
X:=XN;
FOR I:=1 to K do begin
if x>=0.5 then y:=a*x+sqrt(2*x+b)
else begin
if(x>=-6.3) and (x<0.5) then y:=sqrt(a*x)/(b*x+3)
else y:=x+0.7*a
end;
writeln('x=',x:8:2,'Y=',Y:8:2);
x:=x+H
end;
readln;
end.
Vvedite XN,XK,H,a,b
-7 1 0.5 -5 11
x= -7.00Y= -10.50
x= -6.50Y= -10.00
x= -6.00Y= -0.09
x= -5.50Y= -0.09
x= -5.00Y= -0.10
x= -4.50Y= -0.10
x= -4.00Y= -0.11
x= -3.50Y= -0.12
x= -3.00Y= -0.13
x= -2.50Y= -0.14
x= -2.00Y= -0.17
x= -1.50Y= -0.20
x= -1.00Y= -0.28
x= -0.50Y= -0.63
x= 0.00Y= 0.00
x= 0.50Y= 0.96
x= 1.00Y= -1.39
|
|
|
Program Z2;
Uses crt;
Var Xn,Xk,X,Y,H:real;
i,k: integer;
Begin
Clrscr;
Writeln ('vvedite Xn,Xk,H');
Readln (Xn,Xk,H);
K:=trunc((XK-XN)/H+1);
X:=Xn;
repeat
IF X<0 then y:=2*exp(x)+LN(abs(sqr(x)*x-5))
Else begin
If x>=6 then y:=5.3*x+x+4*sin(2*x*x)
Else y:=3*sqrt(x*x+abs(x-5));
End;
Writeln ('X=',X:8:2,'Y=',Y:8:2);
X:=X+H;
Until X>Xk;
Readln;
End.
Program A1;
Uses crt;
Var Xn,Xk,X,Y,H:real;
i,k: integer;
Begin
Clrscr;
Writeln ('vvedite Xn,Xk,H');
Readln (Xn,Xk,H);
K:=trunc((XK-XN)/H+1);
X:=Xn;
For I:=1 to K do begin
IF X<0 then y:=2*exp(x)+LN(abs(sqr(x)*x-5))
Else begin
If x>=6 then y:=5.3*x+x+4*sin(2*x*x)
Else y:=3*sqrt(x*x+abs(x-5));
End;
Writeln ('X=',X:8:2,'Y=',Y:8:2);
X:=X+H;
End;
Readln;
End.
Сделайте индивидуальный заказ на нашем сервисе. Там эксперты помогают с учебой без посредников 
Разместите задание – сайт бесплатно отправит его исполнителя, и они предложат цены.
Цены ниже, чем в агентствах и у конкурентов
Вы работаете с экспертами напрямую. Поэтому стоимость работ приятно вас удивит
Бесплатные доработки и консультации
Исполнитель внесет нужные правки в работу по вашему требованию без доплат. Корректировки в максимально короткие сроки
Гарантируем возврат
Если работа вас не устроит – мы вернем 100% суммы заказа
Техподдержка 7 дней в неделю
Наши менеджеры всегда на связи и оперативно решат любую проблему
Строгий отбор экспертов
К работе допускаются только проверенные специалисты с высшим образованием. Проверяем диплом на оценки «хорошо» и «отлично»
Работы выполняют эксперты в своём деле. Они ценят свою репутацию, поэтому результат выполненной работы гарантирован 
Ежедневно эксперты готовы работать над 1000 заданиями. Контролируйте процесс написания работы в режиме онлайн 
Требуется разобрать ст. 135 Налогового кодекса по составу напогового...
Решение задач, Налоговое право
Срок сдачи к 5 дек.
Школьный кабинет химии и его роль в химико-образовательном процессе
Курсовая, Методика преподавания химии
Срок сдачи к 26 дек.
Реферат по теме «общественное мнение как объект манипулятивного воздействий. интерпретация общественного мнения по п. бурдьё»
Реферат, Социология
Срок сдачи к 9 дек.
Выполнить курсовую работу. Образовательные стандарты и программы. Е-01220
Курсовая, Английский язык
Срок сдачи к 10 дек.
Изложение темы: экзистенциализм. основные идеи с. кьеркегора.
Реферат, Философия
Срок сдачи к 12 дек.
«Всё сдал!» — безопасный онлайн-сервис с проверенными экспертами
Используя «Свежую базу РГСР», вы принимаете пользовательское соглашение
и политику обработки персональных данных
Сайт работает по московскому времени:
Принимаем к оплате
© 2011—2025 Всё сдал!
Заполните форму и узнайте цену на индивидуальную работу!
Мы ВКонтакте 
Трейлер о сайте