|
|
|
| Другие темы раздела | |
|
Pascal Майнкрафтия
https://www.cyberforum.ru/ pascal/ thread2355195.html Мы попали в Майнкрафтию, в которой все состоит из блоков размером 1 * 1 * 1. Вся страна поделена на одинаковые чанки, по одному Чанка для каждого жителя. Чанк представляет собой параллелепипед размером n * m * k блоков. Автор задачи живет в одном из таких чанков. Некоторые блоки этого Чанка пустые и через них можно пройти, а некоторые заставлены камнем, то есть непроходимыми. Автор сейчас... |
Найти разность элементов массива Pascal Есть такое задание: Программа на Pascal которая заполняет массив из 10 случайных целых чисел на промежутке от -10 до 5 вычисляет разность элементов массива. Правильно я сделал? Диапазон я верно указал? uses crt; var // создаем массив massiv:array of integer; raznost,i:integer; begin clrscr; |
|
Pascal Для n точек плоскости найти расстояние от начала координат до каждой из них
https://www.cyberforum.ru/ pascal/ thread2355009.html Разработать алгоритм и программу с единственным циклом для обработки одномерных массивов. При заданных координатах X1,X2,...Xn; Y1,Y2,..Yn для n точек плоскости XOY найти Rk от начала координат до каждой из них (координатами k-й точки являются Xk, Yk). |
Pascal Считая т текстовым файлом, ответить на следующие Считая t текстовым файлом, ответить на следующие вопр: а) эквивалентны ли типы text и fail of char; б) Кроме текстовых файлов, какие еще файлы могут делиться на строки? Обязательно ли все строки файла должны быть одинаковой длины? Могут ли в файле быть пустые строки в) Если при записи в t надо закончить строку, то как это сделать? Какие действия влечет за собой выполнение оператора... https://www.cyberforum.ru/ pascal/ thread2354940.html |
|
Определить содержимое файла f, после выполнения следующих операторов: Pascal Var f: file of integer; i: integer; Определить содержимое файла f, после выполнения следующих операторов: а) rewrite(f); if eof(f) then write(f,1) else write(f,2); if eof(f) then write(f,3) else write(f,4); б) rewrite(f); for i:=3 downto 1 do write(f,sqr(i)); |
Pascal Найти сумму n первых четных по номеру членов геометрической прогрессии с первым членом b и знаменателем q Найти сумму n первых парных по номеру членов геометрической прогрессии с первым членом b и знаменателем q. Помогите пожалуйста, буду благодарен. https://www.cyberforum.ru/ pascal/ thread2354840.html |
| Pascal Заменить каждую первую букву в слове заглавной. Запросить у пользователя строку S, содержащую несколько слов, разделенных символом пробела. Сформировать из нее строку S1, заменив каждую первую букву в слове заглавной. Вывести на чистый экран строки S и S1, рядом их длину. https://www.cyberforum.ru/ pascal/ thread2354830.html |
Pascal Метод наименьших квадратов (МНК) Здравствуйте, прошу вашей помощи, нужно составить алгоритм решения задачи для аппроксимации точек степенной функцией (полиномом) произвольной степени m. составить программу на языке Pascal, содержащую: ввод исходных точек из файла данных, формирование матрицы Грамма, решение системы линейных алгебраических уравнений методом Гаусса, вывод результатов и проверку. program kvadrat; uses... |
|
Pascal Программа на турбо паскале
https://www.cyberforum.ru/ pascal/ thread2354573.html Ребят, помогите написать программу на турбо паскале. Не разбираюсь в массивах. Желательно уже полностью с началом и с концом |
Pascal Массив из больших чисел
https://www.cyberforum.ru/ pascal/ thread2354571.html Добрый const n = 5;var p: boolean; var a:array of longint; index : integer; {$I-} procedure generate (l,r:integer); var i,v:integer; |
|
Pascal Напишите программу, вычисляющую функцию 1+x+x^2+x^3.+x^n Подскажите пожалуйста, никак не могу догадаться как сделать такую программу, с помощью цикла for 1+x+x^2+x^3...+x^n |
Pascal Решение системы линейных алгебраических уравнений методом Гаусса
https://www.cyberforum.ru/ pascal/ thread2354497.html Здравствуйте, прошу помощи в решении в паскале методом Гаусса 13x1 + x2 + 0.4x3 + 0.6x4 + 0.11x5 = 7.6 3x1 + 10x2 - 0.6x3 + 3x5 = 8.7 x1 - 2.1x2 + 4.9x3 + 2.8x4 = 9.2 1.1x1 - x2 + 18x4 - 3x5 = 5.5 x1 + x2 + x3 + x4 + 5x5 = 4.2 |
|
Модератор
10053 / 5396 / 3352
Регистрация: 17.08.2012
Сообщений: 16,506
|
||||||
| 21.11.2018, 22:40 | 0 | |||||
Найти число, отличающееся от других чисел - Pascal - Ответ 1308278421.11.2018, 22:40. Показов 2972. Ответов 9
Метки (Все метки)
 Сообщение было отмечено chdanil как решение
Решение
Лучше знать несколько языков программирования, причём полностью. А то у Вас как-то нелогично получается: питон знаю, поэтому он хороший, а паскаль не знаю, и это ещё одна причина ненавидеть паскаль.
Перевод на паскаль:
О, пока писал, уже ответили... Mikstereo, форматирование кода у Вас такое, что ни дать, ни взять - питон. Надо было бы и мне такое же форматирование применить... Для ясности. Вернуться к обсуждению: Найти число, отличающееся от других чисел Pascal
1
|
||||||
| 21.11.2018, 22:40 | |
|
Готовые ответы и решения:
9
Найти число, которое отлично от трех других, равных между собой Нужно найти 3 число отличное от двух других |
| 21.11.2018, 22:40 | |
| 21.11.2018, 22:40 | |
|
Помогаю со студенческими работами здесь
0
Составить восьмизначное число из цифр 8 других восьмизначных чисел
Найти число отличное от трех других |
Наверх