|
|
| Другие темы раздела | |
| Turbo Pascal Вычислить сумму ряда S=1+3/6+3/11+3/16+3/21+3/26+.... Нужно написать циклический алгоритм для решения. Добавлено через 13 минут При этом записать надо с заданием параметра n, вывести самому общую формулу. Понятно, что числа в знаменателе увеличиваются на 5, но как это записать правильно в паскале? https://www.cyberforum.ru/ turbo-pascal/ thread2263194.html |
Turbo Pascal Разбить на подпрограммы Помогите разбить на подпрограммы, добавить файловый ввод-вывод, добавить динамическое выделение памяти для массивов. program matr; const kmax=50; lmax=35; var x:array of integer; k,l,i,j,max,imax,jmax,min,imin,jmin,z:integer; begin write('k=');readln(k); write('l=');readln(l); writeln('Matrix X:'); |
| Turbo Pascal Разбить на подпрограммы Помогите разбить на подпрограммы и добавить чтение из файла и запись в файл. program rekk; procedure Table_begin; begin writeln(' ----------------------------------------------------------------------------------'); writeln(' ¦ № ¦ X ¦ f(x) ¦ Номер члена ряда ¦'); writeln('... https://www.cyberforum.ru/ turbo-pascal/ thread2263166.html | Turbo Pascal Столбцовая диаграмма Помогите написать программу с использованием процедур и функций компьютерной графики из модуля Graph на языке программирования высокого уровня Pascal, выводящую на экран столбцовую диаграмму успеваемости учеников в классе, если известно количество отличников, хорошистов и т.д. https://www.cyberforum.ru/ turbo-pascal/ thread2263130.html |
|
Turbo Pascal Что не так? program calculator; uses crt; var i1, i2, n1, n2, ir: integer; rr: real; c: char; begin |
Turbo Pascal Дан файл в котором записаны числа, найти количество чисел кратных 5
https://www.cyberforum.ru/ turbo-pascal/ thread2263071.html Дан файл в котором записаны числа, найти количество чисел кратных 5. Паскаль |
| Turbo Pascal Разделить граф программу на подпрограммы Помогите добавить процедур в программу с графикой uses Graph; { Подключаем модуль } var Gd, Gm, x0, y0, x, y, xLeft, yLeft, xRight, yRight, n: integer; a, b, fmin, fmax, x1, y1, mx, my, dx, dy, num: real; c0,c1,c2,c3,c4,c5:real; i: byte; s: string; https://www.cyberforum.ru/ turbo-pascal/ thread2263020.html |
Выход из процедуры Turbo Pascal Задание: вывести на экран таблицу значений функции в виде разложения в ряд. Я задание сделал, но мне препод дал доп задание 1. Чтобы я вынес в процедуру вывода открытие файла на запись. 2. Проверять существование файла на запись и на чтение. Первое задание я сделал, но со вторым у меня проблема файл input программа у меня проверяет правильно, но вот с файлом output беда, так как он находится в... |
| Turbo Pascal Модули Процедурный тип и относящиеся к нему подпрограммы должны быть описаны в отдельном модуле. В другом модуле должна быть описана основная подпрограмма. Методом перебора с шагом 0.05 определить минимумы функций f(x)= e^x − x^3 на отрезке и g(x)=x^3 − 10x + 2 на отрезке . https://www.cyberforum.ru/ turbo-pascal/ thread2262800.html | Turbo Pascal Арифметическое переполнение Всем привет. Делаю задачу из учебника Лукина. Известны дата и время (месяц, день, час, минута) отплытия теплохода летом этого года из Москвы в Астрахань. Известно время в пути (в днях, часах и минутах). Оно не превышает 20 суток. Определить дату и время прибытия теплохода в Астрахань. Использовать диапазоны. Вариант 1: Для простоты предположим, что путешествие начинается между 1 и 10 июня.... https://www.cyberforum.ru/ turbo-pascal/ thread2262690.html |
|
Счетчик правильных ответов Turbo Pascal Доброго времени суток! Такая проблема: необходимо добавить механизм оценки ответов(за правильный +10 баллов/ неправильный -10 баллов) и в конце перед выходом чтобы отображался итоговый результат. Помогите пожалуйста такое организовать!:help: program VerbalCounting; uses crt; var a,b : integer; res,us : real; op : byte; |
Turbo Pascal После слова с указанным номером вставить его номер
https://www.cyberforum.ru/ turbo-pascal/ thread2262467.html После слова с указанным номером вставить его номер. Если слов в строке меньше - вставить указанный номер между первым и вторым словом. Помогите пожалуйста! |
|
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
|
|||||||||||
| 13.06.2018, 15:42 | 0 | ||||||||||
Вывести на экран такие трехзначные числа, у которых разность третей и первой цифры равна второй цифре - Turbo Pascal - Ответ 1247327613.06.2018, 15:42. Показов 1546. Ответов 2
Метки (Все метки)
 Сообщение было отмечено ya_student как решение
Решение
Если разница 1 и 3 цифр, (|1-3|)
Вернуться к обсуждению: Вывести на экран такие трехзначные числа, у которых разность третей и первой цифры равна второй цифре Turbo Pascal
0
|
|||||||||||
|
|
| 13.06.2018, 15:42 | |
|
Готовые ответы и решения:
2
Вывести трехзначные числа, у которых разность 3-ей и 1-ой цифр равна 2-ой цифре Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры. Вывести на экран все трехзначные числа, сумма первой и третьей цифры которых больше второй цифры. |
| 13.06.2018, 15:42 | |
|
Помогаю со студенческими работами здесь
0
Вывести на экран в строку через пробел такие трёхзначные числа, у которых произведение 1 и 3 равно квадрату второй цифры Найти все трехзначные числа,средняя цифра которых равна сумме первой и второй цифры Посчитать количество чисел, в которых сумма первой цифры и третьей цифры равна второй цифре |