Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal помогите плиз решить 7 задач на Pascal Если есть люди умные, помогите плиз решить 7 задач на Pascal'e. - Пусть дан файл целых чисел. Определите, являются ли числа в файле упоря¬доченными по возрастанию. - Составьте программу, определяющую, является ли введенное слово числом. - Вычеркните из заданного слова все буквы, совпадающие с его последней буквой. - Составьте программу, определяющую, лежит ли точка с указанными... https://www.cyberforum.ru/ pascal/ thread8296.html	глобальные переменные Pascal Помогите пожалуйста избавиться от глобальных переменных! Заношу все в процедуры, программа не идет :(( завтра защита курсовой а мне не разобраться!
Pascal определить число сотен помогите с задачкой на паскаль вот условие Дано натуральное число n ( n> 99 ). Определить число сотен в нем. я пока еще не очень разбираюсь, почитал книги и попробовал сам но у меня получилось что программа выдает например если ввести 590 то получается либо 5.9 либо 6. вобщем помогите пожалуста https://www.cyberforum.ru/ pascal/ thread8288.html	Pascal Дан массив из восьми строк Дан массив из восьми строк. В строке "фамилия студента_оценка1_оценка2". Приписать к каждой строке средний балл. отсортировать по убыванию балла и распечатать. Задачу нужно решить без функций и процедур. Помогите разобраться и решить эту задачу плиз? Добавлено через 59 минут Вот мой код, тут вводяться элементы матрицы, и выводятся без всяких изменений. Нужно чтобы он складывал число после... https://www.cyberforum.ru/ pascal/ thread8284.html
ПОМОГИТЕ с комментариями Pascal прокомментируйте плиз прогу, я прост в паскале не силен......желательно подробно.....спс.... вот код type TreeLink = ^Tree; Tree = record Data: string; Left, Right: TreeLink; end; procedure InsTree(var t:TreeLink; Num, NumNode : integer; S:String); var PNum, LNum, k : integer; begin	Pascal Очень срочно, простая задача на матрицы! https://www.cyberforum.ru/ pascal/ thread8259.html Пожалуйста, выручите! На завтра нужна такая программка: даны 49 чисел (думаю логичнее всего рандомом заполнять), из них нужно составить матрицу по следующей схеме: http://mediapix.ru/pics/1cafd8aca506e00eb91ed7ab409f511b.jpg Очень-очень надо!
Pascal Подсчитать количество цифр, входящих в строку https://www.cyberforum.ru/ pascal/ thread8255.html Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.	Pascal Помогите Пожалуйста оч оч нужно! задачки Пожалуйста помогите решить несколько задачек,а то я нитё не понимаю Плиз плиз плиз! Я буду очень благодарна! Линейные алгоритмы: 1)Заданы два целых числа k и d. Используя только арифметические операции, найдите целую и дробную части от деления k на d. 2)Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a21 за шесть операций; ("21"-в...
Pascal Задача на строки, немогу разобраться https://www.cyberforum.ru/ pascal/ thread8243.html В строке заданы через двоеточие 2 оператора присваивания общего вида: "первый:=число1+число2:второй:=число3-число4" (например:"A:=3+4:B:=7-2"). Вычислить значения переменых и распечатать их. Вот решение задачи примерно такова типа только для знаков +,-,*,/ и выражения вида "первый:=число1 знак число2" program expression; var s:string;ss:string;si:Char;a1,a2,is,i,p1,p2:integer;res:real;...	Pascal Определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов https://www.cyberforum.ru/ pascal/ thread8205.html Дан символьный файл f Считая что количество символов в слове не превосходит 20 а)определить сколько в файле f слов состоящих из одного, двух, трех и т.д. символов б)сколько слов в файле вот я половину сделал, дальше не как, помогите пжалуста !!! Program alex; Uses crt; Var a:array of integer; f:text;
Матрицы. Найти сумму элементов главной и побочной диагонали. Pascal Дана матрица вещественых чисел P(7,7). Вычислить сумму элементов главной диагонали и симметричной ей. program qwesadf; uses crt; var p:array of real;i,n,j:integer;s1,s2:real; begin clrscr; writeln('vvedite razmer matrici'); readln(n); writeln('vvedite elementi matrici');	Pascal Старый добрый тетрис Помогите вывести текущий результат и следующую фигуру. Заранее благодарен. { Программа Тетрис} uses crt, graph; type tFigure=array of byte; tFigures=array of tFigure; tColors=record workbox:byte; figures:array of byte; https://www.cyberforum.ru/ pascal/ thread8184.html

фкешые

Помогите пожалуйста !!!!!!!! ужас не могу разобраться - Pascal - Ответ 36390

21.05.2008, 22:24. Показов 1146. Ответов 0

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

Студворк — интернет-сервис помощи студентам

Большие, большие проблемы а времени в обрез помогите кто чем может...
1) Описать процедуру, которая в списке L заменяет первое вхождение списка L1 (если есть такое) на список L2
2) Дана последовательность из не менее чем 2-х различных натуральных чисел, за которой следует 0. Напечатать в обратном порядке все числа между наибольшими и наименьшими числами этой последовательности.
3) Если в дереве встречается хотя бы четыре не кратных 5 элемента, то уменьшить нечетные элементы дерева в двое.
По 1) как оформить - идея такая

Pascal

 while l<>nil do begin
           r:=l; b:=true;
           if l^.info=l1^.info then begin l:=l^.next;
           l1:=l1^.next;
           end;
           else begin l:=l^.next; b:=false;
           if b=true then begin
           p:=r;
           p^.info:=l2^.info; p:=p^.next;
           l2:=l2^.next;
           end;

По 2) думка такая но опять же не могу оформить и заставить чтоб работала

Pascal

         min:=h^.info; max:=h^.info;
         pmin:=h; pmax:=h;
         whiule p<>h do begin
         if q^.info> max then max:=q^.info;
         pmax:=q;
         end;
        { для минимуна аналогично}
         p=pmax;
         while p<>pmin do begin
         writeln(p^.info);
         p:=p^.prev;
end.

3) нет мыслей

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

21.05.2008, 22:24

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

Помогите пожалуйста, не могу разобраться как сохранять файл, например в формате bmp?
Помогите пожалуйста, не могу разобраться как сохранять файл, например в формате bmp? uses ...

Помогите пожалуйста со сдвигами,не могу разобраться.
Люди,кто-нибудь помогите написать программу сдвигов в ассемблере,у меня есть код программы и когда...

Не могу разобраться с BIOS. Пожалуйста помогите!
Хотел поменять ОС. Нажимаю установка Windows XP...появляется сообщение "установка только из под...

Не могу установить Windows XP SP3, помогите пожалуйста разобраться
Доброго времяни суток! У меня появилась проблема такого характера: решил переустановить систему,...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

21.05.2008, 22:24

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

Помогите пожалуйста разобраться
Долго ломаю голову над ошибкой которую мне выдает JavaScript. Вот мой исходный самый простой код....

Помогите пожалуйста разобраться.
Нужно спроектировать базу данных "Банк" , база должна быть приведена к 3НФ и иметь следующие поля:...

помогите пожалуйста разобраться
Здравствуйте! Подскажите пожалуйста в чем может быть причина вылета из поиска яндекса? Сегодня...

Помогите Разобраться, Пожалуйста!
Начало проверки отчета по xsd-схеме: : Element content is invalid according to the DTD/Schema. ...

Помогите Разобраться, Пожалуйста (1с V8)
Файл 1.xml был выгружен через обработку MD82Exp.epf(стандартная обработка для КД). Потом создаю...

Помогите пожалуйста разобраться!!!
измерение скорости инета показало следующее...входящая скорость 5.78 мб/с,исходящая...

Наверх