Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 72000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу

Программы Pascal

Номер заказа
35424
Создан
11 июня 2013
Выполнен
12 июня 2013
Стоимость работы
400
Помогите быстро выполнить контрольную работу по программированию. Есть буквально 1 день. Тема работы «Программы Pascal».
Всего было
18 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 72000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою Контрольную работу
Или вы можете купить эту работу...
Страниц: 8
Оригинальность: 58% (no etxt)
400
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

3 алгоритма и текста программы в Pascal
1 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y=x2 + Sin x.
2 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y={█(x^2+sin⁡x,x<[email protected]⁡〖x^2,x≥3〗 )┤.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.
1 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y=x2 + Sin x.
2 задание.
Задано вещественное значение аргумента х. Вычислить значение функции y={█(x^2+sin⁡x,x<[email protected]⁡〖x^2,x≥3〗 )┤.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.
1. Немнюгин С.А. Turbo Pascal : учеб. пособие для студентов вузов / С.А. Немнюгин. - СПб. ; М. : Питер, 2003. - 491 с.;
2. Фаронов В.Ф. Turbo Pascal 7.0. Начальный курс: учеб. пособие / В. В. Фаронов. - 7-е изд., перераб. - М. : Нолидж, 2001. - 571 с.;
3. Аляев Ю.А. Алгоритмизация и языки программирования Pascal, C++, Visual Basic [Текст] : учеб.-справ. пособие / Ю. А. Аляев. - М. : Финансы и статистика, 2002. - 319 с.;
4. Андреева Т.А. Программирование на языке Pascal: учеб. пособие / Т.А. Андреева. - М. : Интернет-Университет Информационных Технологий ; М. : БИНОМ. Лаборатория знаний, 2006. - 234 с.;
5. Голицына О.Л. Программирование на языках высокого уровня: учеб. пособие / О. Л. Голицына, И. И. Попов. - М. : Форум, 2009. - 496 с;
Writeln('Введите значение x'); Readln(x); {Вводим значение х}
If x<3 then {Проверяем условие}
y:=x*x+sin(x) {если выполняется, товычисляем значение у поформуле}
else {иначе}
y:=Ln(x*x); {если не выполняется, товычисляемподругой формуле}
Writeln('y=',y:10:10); {выводимзначение у}
Readln;
End.
3 задание.
Вычислить количество положительных значений cos(φ) на интервале [a,b] с заданным шагом.
Алгоритм решения задачи:
Программа в Turbo Pascal:
uses crt;
var a,b,h,x:real; {Описываем переменные}
k:integer;
begin
clrscr;
repeat {Проверяем правильно ли введены границы интервала}
writeln('Введитеграницы интервала, при условии что a<b');
readln(a,b);
until a<b;
repeat {Проверяем правильно ли введен шаг}
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
k:=0; { Показать все
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать контрольную работу