Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal создание счетчика https://www.cyberforum.ru/ pascal/ thread338489.html Добрый вечер уважаемые профессионалы! Подскажите пожалуйста: есть процедура сортировки массива слиянием. В каком месте нужно поставить счетчики, чтобы считалось количество сравнений элементов и количество перестановок. Пробовал поставить счетчики в разные места и всякий раз выдает совершенно разные результаты. Код процедуры следующий: Procedure sort_slij(var f:t; p,r:integer); {Процедура...	Почему не работает программа на паскале? Pascal VAR a,b,c, :integer; BEGIN writeln ('Вычисление стоимости покупки'); writeln ('Введите исходные данные:'); writeln ('Цена тетради (руб.)->'); readln a; writeln ('Цена обложки(руб.)->'); readln b; writeln ('Количество комплектов->'); readln c; write ('Стоимость покупки:', (a+b)*c) END.
Pascal как добавить вывод результата бегущей строкой? https://www.cyberforum.ru/ pascal/ thread337477.html Uses CRT; const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; {задаём строку для поиска в ней символов} var rez, s, s2, s3: string; t, cc, ind, cc2, k: integer;	Pascal Люди, нарисуйте блок схему пожалуйста Uses CRT; const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; {задаём строку для поиска в ней символов} var rez, s, s2, s3: string; t, cc, ind, cc2, k,i,temp: integer; https://www.cyberforum.ru/ pascal/ thread337476.html
Pascal Заморочки с графическим режимом Добрый вечер. Писал программу с использованием модуля graph, решил проверить. Программа компилируется, но линии почему-то не рисует. Попробовал скопировать GRAPH.TPU и EGAVGA.BGI в папку с рабочим PAS-файлом - не помогает. Перепрописал директории - Паскаль потерял GRAPH.TPU. Помогите пожалуйста. Вот фрагмент кода программы: ... clrscr; Driver:=Detect; InitGraph(Driver,Mode,'L:\Turbo Pascal...	Pascal нужно написать алгоритм к этой программе: https://www.cyberforum.ru/ pascal/ thread335833.html PROGRAM Boyer_Moore_2; { Алгоритм Бойера-Мура для определения вхождения подслова P в слово S } var Wrd1,Wrd2: String; j,i,k,i0: Integer; d : Array of Integer; S : Array of Char; P : Array of Char; N,M : Integer; ch : Char; BEGIN Write('Введите основное слово: ');
Pascal Интересная программа Есть матрица размером 2^n2^n.В ячейках матрицы блоки по m байт.Матрица разделили на блоки,с помощью Z(1,2,3,4 БЛОК),так делили и делили,пока каждая порядок не станет одной ячейкой. А у нас есть это файл(то есть строка). Задание:создать с помощью исходной строки матрицу и записать во второй файл строку,которая получилось обходом матрицы по строчкам. Пример.матрица 44 1.2.3.4 5.6.7.8... https://www.cyberforum.ru/ pascal/ thread335832.html	Pascal помогите дописать прогу по поиску подстроки в строке, т.к. возникли небольшие проблемы с типом переменных да и не запускается... program poick; var s,x: string; m,n,i,io,j: integer; d:array of integer; ch: char; begin writeln ('введите строку'); readln(s); writeln ('введите образ');
Pascal Заменить все нечетные элементы массива суммой второго и предпоследнего элементов Здравствуйте, помогите пожалуйста решить задачку. Ввести с экрана одномерный массив А целого типа. Заменить все нечетные элементы массива суммой второго и предпоследнего элементов. Полученный массив А распечатать на экране. https://www.cyberforum.ru/ pascal/ thread334704.html	Pascal выбрать наиболее крупного конкурента. https://www.cyberforum.ru/ pascal/ thread334483.html помогиет сделать а Паскале: фирма изучает конкурентов на рынке сбыта своего товара и имеет следующие сведения: названия фирм, их прибыль в % , захват сегмента рынка в %. выбрать наиболее крупного конкурента.
Pascal Построение блок схеммы Доброго времени суток, не могли бы знающие люди помочь в построении блок-схемы для процедуры: procedure search(var ii,jj,zz:integer); {начало процедуры с параметрами} var k,p,r,m,sh,s,sch1,sch2,sch3,sch4,s1,s2:integer; {иницилизация переменных для процелуры} begin {начало выполнения алгоритма процедуры} k:=0; ...	Pascal Вывести на экран фамилии и имена учащихся, сдавших экзамены только на 4 и 5 https://www.cyberforum.ru/ pascal/ thread334399.html На вход программе подаются сведения о сдаче экзаменов учениками 9-х классов некоторой средней школы. В первой строке сообщается количество учеников N, которое не меньше 10, но не превосходит 100, каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <оценки>, где <Фамилия>-строка, состоящая не более чем из 20 символов, <Имя>-строка,состоящая не более чем 15 символов, <оценки>-через...

Денис16

0 / 0 / 0

Регистрация: 01.07.2011

Сообщений: 24

03.08.2011, 22:07 [ТС]

Помогите найти и исправить ошибку - Pascal - Ответ 1886925

03.08.2011, 22:07. Показов 992. Ответов 8

Метки (Все метки)

Ответ

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

Вернуться к обсуждению:
Помогите найти и исправить ошибку Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

03.08.2011, 22:07

Готовые ответы и решения:

Помогите исправить ошибку
Привет всем. Столкнулась с проблемой, что не могу задать параметры при вводе с клавиатуры слова,...

Помогите исправить ошибку
Всем привет!Вот возник вопрос есть программ которая считает сумму между первым и вторым...

помогите, пожалуйста, исправить ошибку
Если задаётся строковая переменная "столбик"-выводить двадцать символов "*" в столбик,...

Одномерный массив. помогите исправить ошибку
Задача: Сформировать одномерный массив размерности, заданной с клавиатуры, в котором каждый элемент...

	03.08.2011, 22:07

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

03.08.2011, 22:07

Помогаю со студенческими работами здесь

Помогите исправить ошибку в логическом выражении
Нельзя преобразовать тип real к boolean. Как исправить ошибку. until (y1 = 0) or (b - a) < e(вот...

Помогите найти ошибку в программе и исправить ее
program laba5; uses wincrt; var t:string; w,max,i,n:byte; begin writeln('Vvodim stroku');...

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

Помогите найти ошибку в программе и исправить её
Program Monte_Carlo; uses crt; var n,i,j,alfa:integer;...

Помогите пожалуйста найти и исправить ошибку вывода и оператор "and"
Здравствуйте! Помогите пожалуйста найти и исправить ошибку вывода и оператор "and" !!! Не понимаю...

помогите исправить ошибку
uses crt; const epsilon=10; {$f+} type func=function(x:real):real; var z,y:real; function...

Новые блоги и статьи
[Golang] 121. Best Time to Buy and Sell Stock alhaos 28.01.2025 В этой задаче мы получаем слайс целых чисел, которые означают цену акции в разные моменты времени, и должны вернуть максимально возможную прибыль от купли продажи акции. / / . . .	Проектирование и моделирование hw_wired 28.01.2025 Введение в моделирование Моделирование представляет собой один из фундаментальных методов научного познания, который позволяет изучать объекты и явления через создание их упрощенных аналогов. В. . .	Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .
Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .

Наверх