Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Составить программу для вычисления билинейной формы https://www.cyberforum.ru/ turbo-pascal/ thread1466453.html Составить программу для вычисления билинейной формы Помогите пожалуйста :с	Turbo Pascal Для заданной функции вычислить определенный интеграл методом левых, правых и средних прямоугольников Задача. Для данной функции вычислить определения интеграл методом левых, правых и средних прямоугольников. Сравнить результат вычисления. f(x)=arcsin\frac{1}{\sqrt{1.1+x}}\;;\;\left там где это отрезок интегрирования и само сабой Функцыя f(x)
Turbo Pascal Вычислить значение функции https://www.cyberforum.ru/ turbo-pascal/ thread1466412.html	Turbo Pascal Определить количество строк матрицы, элементы которых образуют арифметическую прогрессию https://www.cyberforum.ru/ turbo-pascal/ thread1466381.html В матрице А(nxn) определить количество строк, элементы которой образуют арифметическую прогрессию. Использовать подпрограмму проверки строки. Добавлено через 14 секунд program Project2; {$APPTYPE CONSOLE} const n=5; Var A:array of integer;
Сформируйте двухмерный массив и удалите из него все строки в которых встречается заданное число Turbo Pascal Сформируйте двухмерный массив и удалите из него все строки в которых встречается заданное число	Turbo Pascal При наличии цифр вывести их в конце строки в порядке убывания Дана строка. Поместить все буквы этой строки в порядке убывания в двунаправленный список, а потом напечатать эти буквы в порядке возрастания, чередуя гласные и согласные (начиная с гласной). При наличии цифр вывести их в конце строки в порядке убывания. Использовать процедуры. https://www.cyberforum.ru/ turbo-pascal/ thread1466362.html
Turbo Pascal Как откомпилировать программу https://www.cyberforum.ru/ turbo-pascal/ thread1466351.html Как в паскале написать приложение для командной строки? Базовые знания есть.	Получить самую длинную строку файла Turbo Pascal Дан текстовый файл f. Получить самую длинную строку файла. Если в файле имеется несколько строк с наибольшей длинной, то получить одну из них.
Turbo Pascal Табулирование функции, ошибка type missmatch https://www.cyberforum.ru/ turbo-pascal/ thread1466189.html Нужно протабулировать функцию y=\begin{cases} \sqrt{8-x^3}+5x-10 & \text{ , } x \le 2 \\ \frac{sin\,\left(x-5 \right)^2}{-x^2+10x-16} & \text{ , } x \gt 2 \end{cases} от 0 до 4, с шагом 0,12. Но выдает ошибка type missmatch. Помогите пофиксить пожалуйста. program tabul; uses crt,graph;	Turbo Pascal Вычислить значение выражения \sqrt{8-{x}^{3}}+5x-10 Подскажите как записать в паскале. https://www.cyberforum.ru/ turbo-pascal/ thread1466160.html
В тексте символ, следующий за каждой группой малых латинских букв, заменить точкой Turbo Pascal Помогите.Дан текст. Если в нем есть маленькие латинские буквы то каждый символ, что находится за каждой группой малых латинских букв, заменить точкой.	Turbo Pascal Вычислить значение. 1/n! (1 2 3..n) (1<n<10). Помогите пожалуйста. https://www.cyberforum.ru/ turbo-pascal/ thread1466060.html

Greamswile

0 / 0 / 0

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

Сообщений: 2

14.06.2015, 23:04

Создать линейный список, и проверить наличие в данном списке заданного элемента - Turbo Pascal - Ответ 7762097

14.06.2015, 23:04. Показов 1598. Ответов 3

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

Ответ

А не так? Вариант выше не захотел работать. В функции поиска нашел небольшую ошибочку.
Кому не сложно , допишите комментарии

Pascal

type
List = ^Spisok;
Spisok = Record
next: List;
info: integer;
end;
 
var
p, q, q1: List;
i, m, n: integer;
k: boolean;
 
begin
repeat
write('Количество элементов: ');
readln(n);
until (n > 0);
 
writeln('Введите ', n, ' элементов');
for i := 1 to n do begin
read(m);
if q = nil then begin
new(q);
p := q;
p^.Next := nil;
q^.info := m;
end
else begin
new(p^.Next);
p := p^.Next;
P^.Info := m;
p^.Next := nil;
end;
end;
 
write('Введите заданный элемент: ');
readln(m);
p := q;
k := false;
 
while (p <> nil) and not(k) do begin
if p^.info = m then begin
k := true;
break;
end;
p := p^.next;
end;
 
if k then 
writeln('В списке элемент ', m, ' присутствует')
else 
writeln('В списке элемент ', m, ' отсутсвует');
 
p := q;
while p <> nil do begin
q1 := p;
p := p^.Next;
Dispose(q1);
end;
end.

Вернуться к обсуждению:
Создать линейный список, и проверить наличие в данном списке заданного элемента Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.06.2015, 23:04

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

Сформировать линейный список, и проверить его на наличие заданного элемента. Нужны комментарии
Ребятки , можете написать комментарии к этому чуду type List = ^Spisok; Spisok = Record next:...

Линейные списки: проверить наличие в списке двух одинаковых элементов
здравствуйте ребята прошу помогиTе Дан список L, состоящий из записей: первое поле –...

Создать список позиций заданного элемента в исходном списке
VISUAL PROLOG 5.2. Вроде все сделал, только возникает ошибка компиляции, не могу понять в чем...

Проверить наличие в списке заданного числа с помощью рекурсивной и нерекурсивной функций
Помогите с кодом к данной задаче Проверить наличие в списке заданного числа с помощью рекурсивной...

	14.06.2015, 23:04

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.06.2015, 23:04

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

Проверить наличие в списке заданного числа, используя рекурсивную и нерекурсивную функцию
Нужен код для этой задачи : Проверить наличие в списке заданного числа с помощью рекурсивной и...

Вставка элемента в линейный односвязный список после заданного
Я составила программу, но возникла проблема с реализацией вставки элемента после указанного...

Задали односвязный линейный список с целыми числами. Создать новый список, который содержит элементы заданного списка в обратном порядке
Задали односвязный линейный список с целыми числами. Создать новый список, который содержит...

Сформировать список из позиций элемента, заданного параметром X, в списке L
Добрый день! Подскажите, пожалуйста, как правильно описать условие, чтобы в "цикле" пройти все...

Наверх