Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить, больше ли минимальное значение первого файла, чем максимальное значение второго https://www.cyberforum.ru/ turbo-pascal/ thread273279.html
Даны два файла целых чисел. Определить, больше ли минимальное значение первого файла, чем максимальное значение второго. ___________________________ program z1; var f1,f2: text; min,max,n: integer; begin Assign(f1, '1.txt'); Reset(f1); min:=32000; While not Eof(f1) do begin
В одномерном массиве подсчитать количество чётных элементов Turbo Pascal
Помогите пожалуйста в решении задач! Задача 1 В одномерном массиве подсчитать количество чётных элементов Задача 2 В одномерном массиве вывести индексы нечётных элементов Задача 3 В двумерном массиве найти сумму элементов n-столбца, где n вводится с клавиатуры
Turbo Pascal найти все пары чисел, для которых их сумма равна произведению среди чисел 1<n<100 найти все пары чисел, для которых их сумма равна произведению https://www.cyberforum.ru/ turbo-pascal/ thread273248.html Turbo Pascal Найти все окружности, в которые вложена самая маленькая окружность {Даны n окружностей на плоскости, заданных координатами своих центров и радиусами. Найти все окружности, в которые вложена самая маленькая окружность. Использовать ЗАПИСИ. Исходные данные получить с помощью генератора случайных чисел. Решение проиллюстрировать графически. Все координаты вещественные!} program vosemnad; uses Graph,crt; const grScreen_Color=8;{fonovii cvet}... https://www.cyberforum.ru/ turbo-pascal/ thread273224.html
Получить две новые строки, одна из которых содержит только буквы, другая только цифры Turbo Pascal
добрый вечер! не могли бы вы помочь с двумя задачками? :) 1) Дана строка, состоящая из букв и цифр. Получить две новые строки, одна из которых содержит только буквы, другая только цифры. 2) Дан текст на русском языке. Напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово. заранее огромное спасибо :)
Turbo Pascal Записи https://www.cyberforum.ru/ turbo-pascal/ thread273221.html
Используя тип данных масив записей,составить программу,с помощью которой можна ввести в память компьютера данные о итогах зимней сессии студентов первого курса,Структура записи: 1)Фамилия 2)Номер группы. 3)Оценка 1 4)Оценка 2 5) Оценка 3. Вывести: - список студентов,которые имеют задолженности по всем предметам. Спасибо заранее огромное.Буду благодарен
Turbo Pascal Переписать элементы той строки матрицы, которая содержит минимальный элемент, в одномерный массив ПОМОГИТЕ!Задача:8. Ввести 2 двумерных массива . Переписать элементы той строки матрицы, которая содержит минимальный элемент, соответственно, в одномерные массивы . Обе матрицы и массивы вывести на экран. Вот мой вариант решения: program GlobaSubPr; const MaxRazm = 10; type T1m=array of integer; T2m=array of integer; TName=string; var A1,A2:T2m; B1,B2:T1m; ... https://www.cyberforum.ru/ turbo-pascal/ thread273210.html Turbo Pascal Найти вторую цифру в целом положительном числе
Дан массив В = }, i=1,10; j=1,10 ] необходимо написать алгоритм и программу в Турбо Паскаль 1) найти вторую цифру в челом положительном числе 2) С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавивтуре точки. Посчитать количество знаков препинания в этом тексте. ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО)))))
Turbo Pascal Найти даты по введенному месяцу https://www.cyberforum.ru/ turbo-pascal/ thread273201.html
Ребята! Помогите решить задачку... ПОЖАЛУЙСТА!!! В типизированном файле хранятся даты типа string. Нужно найти даты по введенному месяцу. Например: в файле находятся даты - 01.02.11 02.02.11 01.03.11 03.02.11 ввожу либо словом, либо числом месяц (без разницы как, лишь бы работало) - Februar или 02 Выводится список: 01.02.11 02.02.11 03.02.11
Turbo Pascal Вычислить среднее арифметическое всех положительных элементов массива Написати програму, що розташовує в динамічній області пам’яті одновимірний масив дійсних чисел розміром до 75 000 елементів та обчислює середнє арифметичне всіх позитивних елементів . Вхідні дані – розмір масиву та засіб ініціалізації; вихідні дані – число, що відповідає завданню. Програма повинна реалізовувати три засоби ініціалізації масиву: заповнення довільними значеннями (генерація),... https://www.cyberforum.ru/ turbo-pascal/ thread273190.html
Удалить из файла все числа, которые являются палиндромом Turbo Pascal
Дано файл, компоненти котрого – цілі шестизначні числа. Видалити з файлу всі числа, які є паліндромом (однаково читається в обох напрямках, наприклад, 123321).Вхідні дані – ім’я файлу з числами; вихідні дані – змінений файл та час роботи програми. Вимога щодо чисел – вони є паліндромом Програма повинна працювати з нетипізованим файлом, читати та писати дані блоками заданого розміру. Також...
Turbo Pascal Каша из файлов% https://www.cyberforum.ru/ turbo-pascal/ thread273187.html
1)Вычислить yi=2соs(хi)+b: здесь i=1.10. Массив х вводится из файла f1. b ме
Ritusia
10.04.2011, 12:41 0

Вывести на экран все слова короче определенной длины и удалить их из списка - Turbo Pascal - Ответ 1537279

10.04.2011, 12:41. Показов 1396. Ответов 2
Метки (Все метки)

Ответ

нужно через процедуры есле можно(вот то что я сделала
нужно немного доделать
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
program sp;
uses crt;
type
spisok=^elem;
elem=record
data:char;
next:spisok;
end;
var t:spisok;
procedure AddElem(var current:spisok;elem:char);
var x:spisok;
begin
new(x);
x^.data:=elem;
x^.next:=nil;
current^.next:=x;
current:=x;
end;
procedure St_spisok(var t:spisok);
var p:spisok; n:integer;
t:=nil;
writeln('vvedit spusok sliv.#-kine:');
readln(n);
while n<># do
begin
p:=t;
while p^.next<>nil do
p:=p^.next;
AddElem(p,n);
readln(n);
end;
end;
procedure Del_elem(var current:ptr);
var x:ptr;
begin
x:=current^.next;
current^.next:=current^.next^.next;
Dispose(x);
end;
procedure Vivod(var t:spisok);
var p:spisok;
begin
for i:=


Вернуться к обсуждению:
Вывести на экран все слова короче определенной длины и удалить их из списка Turbo Pascal
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2011, 12:41
Готовые ответы и решения:

Вывести на экран все слова, которые длиннее определенной заданной длины
Создать список слов.Вывести на экран все слова, которые длиннее определенной заданной длины, и...

В функции вывести на экран все слова строки длина которых больше длины первого слова
Вывести символьную строку. В функции вывести на экран все слова строки длина которых больше длины...

Вывести на экран все слова минимальной длины
как мне сделать,чтобы все короткие слова были показаны на консоли? import java.util.Scanner; ...

Удалить из текста все слова короче k символов
Дан текст, состоящий только из маленьких латинских букв и запятых. Последовательность подряд идущих...

2
10.04.2011, 12:41
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.04.2011, 12:41
Помогаю со студенческими работами здесь

Вывести на экран все слова строки данной длины
помогите!! на паскале

Удалить из текста слова определенной длины
Удалить из текста все слова короче 4 символов, а слова длиннее 7 символов заменить на указанное...

Строки. Вывести на экран все слова четной длины, у которых...
Дана последовательность символов, состоящая из слов четной длины. Вывести на экран все слова четной...

В тексте найти и вывести на экран все слова минимальной длины
В тексте найти и вывести на экран все слова минимальной длины.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru