Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Вычислить сумму ряда вычислить число е ряд е=2+1/2!+1/3!+1/4!+... pascal ABC помогите пожалуста https://www.cyberforum.ru/ pascalabc/ thread1340958.html Вычислить сумму положительных элементов массива и их количество Pascal ABC
в одномерном массиве состоящем из 25 вещественных элементов вычислить:сумму положительных элементов и их кол
Pascal ABC Вычислить значение многочлена https://www.cyberforum.ru/ pascalabc/ thread1340801.html
Вычислить значение многочлена 2x^3-6x^2+9x+11 для a=1,2,5 . . . n
Pascal ABC Решить неравенство https://www.cyberforum.ru/ pascalabc/ thread1340799.html
Решить неравенство 5x^2-25 > 0
Pascal ABC Определите значение целочисленной переменной х после выполнения следующего фрагмента
В ручную в тетради, определите значение целочисленной переменной х после выполнения следующего фрагмента программы: вот
Pascal ABC Создать типизированный файл, элементами которого являются сведения о студентах Требования к программе: Создается модуль, который в качестве ресурсов содержит описание ком-бинированного типа в соответствии с заданием и подпрограммы, реализующие опе-рации с базой данных (см. задание). Используя ресурсы данного модуля, решить поставленную задачу. Рекомендуется сначала отладить подпрограмму, а затем вставлять в мо-дуль! Создать типизированный файл, элементами которого... https://www.cyberforum.ru/ pascalabc/ thread1340706.html
Pascal ABC Дана строка. Подсчитать самую длинную последовательность подряд идущих букв a Требования к программам: Все отдельные операции оформлять через подпрограммы. 5.1 Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод". Программа должна определить длину введенной строки L, и, если длина L >6, то выделяется подстрока в { } скобках. 5.2 Дана строка. Подсчитать самую длинную последовательность подряд иду-щих букв a. https://www.cyberforum.ru/ pascalabc/ thread1340704.html Найти удвоенную сумму положительных элементов массива Pascal ABC
Задание 3. Одномерные массивы Требования к программам: - Исходный массив должен быть выведен на экран. - Все отдельные операции оформлять через подпрограммы. - Все преобразования производить с исходным массивом. - После каждого преобразования на экране должно быть представлено название преобразования и преобразованный массив или значения указанных вели-чин, или соответствующее сообщение....
Pascal ABC Найти две первые цифры числа https://www.cyberforum.ru/ pascalabc/ thread1340699.html
Простые типы данных 2.1 Дано натуральное число: − найти две первые цифры числа; − верно ли, что первая цифра данного числа - четная. 2.2 Найти все трехзначные числа, которые состоят из разных цифр, а их сумма равна А (А вводится с клавиатуры).
Pascal ABC Составить программу для определения значения функции https://www.cyberforum.ru/ pascalabc/ thread1340697.html
Составить программу для определения значения функции у(x). Предусмотреть вывод сообщения о том, по какой ветви происходило вычисление значения аргумента функции х. Указание: z– неявный параметр функции y(x) считается входным данным где
Pascal ABC Сортировка однонаправленного списка вставками
помогите реализовать сорртировку вставками в однонаправленном линейном списке
Pascal ABC Система предварительной продажи билетов https://www.cyberforum.ru/ pascalabc/ thread1340651.html
Задача Небольшая авиакомпания приобрела компьютер для новой автоматизированной системы предварительной продажи билетов. Президент компании попросил вас написать программное обеспечение для новой системы. Вы должны составить программу для бронирования мест на каждом рейсе единственного самолета авиакомпании (его вместимость: 10 мест). Ваша программа должна отображать на экране следующее меню...
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
25.12.2014, 15:39 0

Исправить недочеты в коде - Pascal ABC - Ответ 7036348

25.12.2014, 15:39. Показов 521. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function F(x, y1, y2, y3: real; n:byte):real;
begin
case n of
1: f:=-(55+y3)*y1+65*y2;
2: f:=0.0785*(y1-y2);
3: f:=0.1*y1;
end;
end;
var T : Text;
    a, b, h, x: real;
    y1, y2, y3: real;
begin
assign(T, 'euler.txt');//файл в папке с програмой
rewrite(T);
a:=0;
b:=0.1;
h:=0.01;
y1:=1.0;
y2:=1.0;
y3:=0;
x:=a;
while x<b+h/2 do
 begin
  writeln(T, x:10:5, y1:10:5, y2:10:5, y3:10:5);
  y1:=y1+h*f(x, y1, y2, y3, 1);
  y2:=y2+h*f(x, y1, y2, y3, 2);
  y3:=y3+h*f(x, y1, y2, y3, 3);
  x:=x+h;
 end;
close(T);
end.


Вернуться к обсуждению:
Исправить недочеты в коде Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2014, 15:39
Готовые ответы и решения:

Калейдоскоп - исправить недочеты в коде
Всем доброго времени суток, дамы и господа :) Возникла у меня такая вот проблема, вернее у...

Реализовать класс Bank (найти и исправить ошибки и недочёты в коде)
Что тут не так? Подскажите пж! 2 дня сижу и не понимаю как сделать этот чёртов банк! #include...

Программа из учебника Прата. Структуры в многофайловом приложении. Исправить недочеты в коде
Посмотрите, пожалуйста, что где исправить. int fill()-для заполнения массива all-для вывода суммы...

ошибки и недочеты в коде
Добрый день уважаемые программисты! Прошу вас помочь в достаточно несложном деле. Есть два...

1
25.12.2014, 15:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2014, 15:39
Помогаю со студенческими работами здесь

Исправить недочёты в вёрстке
&lt;html&gt; &lt;head&gt; &lt;title&gt;Rock Music&lt;/title&gt; &lt;/head&gt; &lt;body background=&quot;background.jpg&quot;&gt; ...

Создание БД. Найти недочеты в коде
Доброго времени суток уважаемые программисты, подскажите решение моей проблемы, я пытаюсь через...

Исправить недочеты в программе (лаба №4)
Вот прога работы с деком. Там есть меню с некоторыми операциями над деком. Она работает. Но есть...

Как исправить недочёты в Калькуляторе?
Помогите мне пожалуйста исправить!!! 1.Убрать ноль в начале чисел должно быть 8 а не 008. Сделано...

Разность множеств: найти недочеты в коде
Помогите разобраться с ошибкой в коде. Требуется сделать разность двух множеств: множество1 -...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru