|
|
| Другие темы раздела | |
| Pascal самое короткое слово, начинающееся на букву "Т" Помогите переделать. нужно что-бы программа искала самое короткое слово, начинающееся на букву "Т", а после это слово поменялось с первым словом. Вот что есть, программа не моя: uses crt; var Predlozhenie, Slovo, Slovomin: String; p: Integer; function Trim(const S: String): String; var https://www.cyberforum.ru/ pascal/ thread69136.html |
Pascal Блок схемы к программам Плиз спасайте через 8 часов начнётся пара на которой решится вопрос допуска меня до практики, а для допуска нужны лабы, проги я с горем пополам накатал а вот с блок-схемами беда... Спасите бедного студента... Проги вот: Program matrica; Uses crt; var b:array of integer; a:array of integer; i,j,n:integer; max:integer; begin |
| Pascal Подсчитать ординату центра веса плоскости квадрата со стороной A Люди помогите плиз на среду нужно принести в универ готовую лабу, а я вообще не представляю как ее написать, суть задачи такова: нужно подсчитать ординату центра веса плоскости квадрата со стороной A, в котором в правом нижнем углу сделанная дыра в форме круга с радиусом R = A/2. Процедуры и функцыи должны находиться в одном файле, а масив нужно инициализировать как константу. https://www.cyberforum.ru/ pascal/ thread69114.html | Pascal Массивы и сумма Задание вот какое, необходимо вычислить величину S по формуле http://ipicture.ru/Gallery/Viewfull/27924909.html Други, проверьте код, он похоже где-то очень даже неправильный? объясните, если возможно, а то что-то я косячу в задачах такого типа: program third; var x:array of real; i,j: integer; s,g:real; begin for i:=1 to 10 do https://www.cyberforum.ru/ pascal/ thread69110.html |
|
Pascal Транспонирование матрицы Задача такова : дана квадратная матрица, ее надо транспонировать (поменять столбцы на строки, а строки на стобцы) и первый столбец упорядочить по убывающей. Работает неправильно процедура упорядочения 1го столбца. Помогите пожалуйста написать грамотно/исправить ошибки program ff; const n=100; type matrica=array of integer; var i,j:integer; w:integer; a:matrica; |
Pascal обработка двумерного массива. ребят, беда с програмированием...!!если кто может помогите-буду бесконечно признателен!!!! %-) (матрицы не с фиксированными размерами, а c переменными: никаких 7, 11, 5*5 и т.д. только n, m, n*m или n*n) с выделением процедур/функций для решения задачи, расположенными в отдельном модуле; и с процедурами ввода (с анализом аномалий) и вывода массивов; с вводом данных из и выводом данных и... https://www.cyberforum.ru/ pascal/ thread69102.html |
|
Pascal случайные числа
https://www.cyberforum.ru/ pascal/ thread69095.html Хочу заполнить файл строками с разным количеством символов, но вот проблема с функцией random, как я понимаю выходной параметр этой функции не меняется после 1го ее использования, собственно подскажите по поводу программы, и если не затруднит, расскажите что есть сия функции и какие есть альтернативные методы нахождения случайных чисел. программа : const n=19; var nz:file of string; ... |
Процедура Pascal Составить процедуру, результатом работы которой является истинное значение, если символ, заданный при обращении к процедуре, - буква, и ложное значение в противном случае. помогите плиз ваще не понял как ето сделать,заранее спс |
|
Pascal Рекурсивная функция
https://www.cyberforum.ru/ pascal/ thread69089.html принцип програмы понятен единственное не могу что в функции писать для вычисления в: 1)x / (1 + x / (2 + x / (3 + x / (... /(N + x))...) 2)http://i070.***********/0911/2c/192cd402258f.jpg помогите плиз |
Pascal Фрактальная графика (помогите изменить прогу) Вот собсна код проги, которая реализует фрактальный листок и в которой нужно что-то изменить (например, место положение листка, повороты и т.д. думаю вам будет виднее что тут можно изменить) главное, чтоб смысл проги оставался тот самый... program FernIFS; uses GRAPH, CRT; const NUMIT = 128000; var a, b, c, d, e, f : array of real; (*********************************) procedure... https://www.cyberforum.ru/ pascal/ thread69086.html |
|
Переписать в конец выходного файла все знаки препинания исходного, и посчитать их количество Pascal создать файл произвольных символов (символы вводятся из клавы). проанализировав файл в программе, переписать в конец выходного файла все знаки препинания и посчитать их количевство. вывести на экран вместимость файлов . перестроить в программе вывод соответствующего сообщения, если нужных файлов в файле не найдено. program veter_v_pustine; var f:text; ib:integer; aa,b,t... |
Pascal игра "Кости", счетчик результата
https://www.cyberforum.ru/ pascal/ thread69079.html всем привет :) помогите пожалуйста разобраться с проблемой, я хочу чтобы программа приписывала для каждого хода игрока очки которые он заработал, но у меня получилось что прога пишет лишь конечный результат. вот код прогиProgram kosti; {$APPTYPE CONSOLE} uses SysUtils; var SumYour,SumComp,sum: integer; i,m,s,s1:integer; |
|
Платежеспособный зверь
8821 / 4248 / 1618
Регистрация: 28.10.2009
Сообщений: 11,388
|
|
| 01.12.2009, 14:35 | 0 |
Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот. - Pascal - Ответ 38814901.12.2009, 14:35. Показов 1588. Ответов 3
Метки (Все метки)
Ответ
Это уже не ко мне, с бинарными деревьями у нас напряженка
Вернуться к обсуждению: Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот. Pascal
1
|
|
|
|
| 01.12.2009, 14:35 | |
|
Готовые ответы и решения:
3
Переписать с сохранением порядка следования компоненты файла f1 в файл f2
Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1 |
| 01.12.2009, 14:35 | |
|
Помогаю со студенческими работами здесь
0
|