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

турбо паскаль

Номер заказа
122592
Создан
5 апреля 2014
Выполнен
2 января 1970
Стоимость работы
1000
Проблема по информатике. Срочно закажу контрольную работу по информатике. Есть буквально 1 день. Тема работы «турбо паскаль».
Всего было
18 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу
Или вы можете купить эту работу...
Страниц: 25
Оригинальность: Неизвестно
1000
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

Составить программу вычисления значения по формулам
решение СЛАУ методом ГАУССА,КРАМЕРА.
1. Задание 4
1.1. Линейные алгоритмы 4
1.1.1. Простые вычисления по формулам 4
1.1.2. Логические выражения 4
1.2. Разветвление 4
1.2.1. Вычисление таблицы значений функции одного аргумента с выбором формулы 4
1.2.2. Проверка попадания точки в заданную область 4
1.3. Циклы 5
1.3.1. Алгоритм с единственным циклом 5
1.3.2. Накопление сумм и произведений 5
1.3.3. Нахождение экстремальных элементов в одномерных массивах 5
1.3.4. Алгоритмы с ветвлением в теле цикла 6
1.3.5. Табулирование функции одной переменной 6
1.3.6. Табулирование функции двух переменных 6
1.4. Подпрограммы 6
1.4.1. Вычисление выражения с использованием процедур 6
1.4.2. Использование массива как параметра функции 6
1.4.3. Решение нелиней Показать все
Немнюгин С.А. Turbo Pascal,учебник
Накопление сумм и произведенийProgram Z_1_3_2;uses crt; var sum,X,result:real; k,n:integer; BEGIN clrscr; Write('Vvedite X: '); Readln(X); Write('Vvedite n: '); Readln(n); sum:=0; for k:=1 to n do if cos(2*x/k)>0 then sum:=sum+Exp(1/k*Ln(exp(k+sqrt(x))*cos(2*x/k))); result:=sqrt(abs(x)+n)*sum; writeln(' result=',result ); readln; END.Нахождение экстремальных элементов в одномерных массивахProgram Z_1_4_3;uses crt; Var A:array[1..5] of integer; i,n:integer;Begin clrscr; For i:=1 to 5 do begin clrscr; write('Vvedite ',i,' element massiva X: '); readln(A[i] Показать все
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать контрольную работу