Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Выводится только первый элемент списка https://www.cyberforum.ru/ turbo-pascal/ thread43311.html здравствуйте, посмотрите пожалуйста что не так в данно коде . Хоть убейте , не понимаю что не так . Программа создает список из 10 элементов и выводит их на экран . у меня же выводит только 1 элемент . program edit_spisok ; uses crt ; const n=9 ; type pt=^elem ; elem=record	Выяснить, является ли число простым Turbo Pascal Выяснить является ли действительное число n простым? program n_4_13; uses WinCRT; var n,i:real; begin Write('n='); Read(n); i:=1; repeat i:=i+1 until n mod i = 0; if n=i then WriteLn(n,' is simple') else
Turbo Pascal сортировка Подскажите почему сортировка не получается? uses crt; const n=10; type vector=array of integer; var mas:vector; i:integer; procedure puz(mass:vector;raz:integer); var j,m,c:integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread43090.html	Turbo Pascal Программа: клавишами управления курсором двигать фигуру по экрану Задать цвет фона розовый, цвет фигуры - серый, фигура в виде буквы Z. Клавишами управления курсором двигать фигуру по экрану. https://www.cyberforum.ru/ turbo-pascal/ thread42994.html
Turbo Pascal Создать типизированный файл, который содержит несколько целых чисел кто шарит файлы Создать типизированный файл, который содержит несколько целых чисел, после чего вывести эти целые числа из типизированного файла на экран монитора по одному байту.	Turbo Pascal Ошибка написал прогу а она ошибит Задаеться число А.найти все простые делители числа А в степени А число А-тип Integer program xz; function prime (n : longint) : boolean; var i, s1 : longint; s : boolean; begin if (n mod 2 = 0) and (n <> 2) then prime := false https://www.cyberforum.ru/ turbo-pascal/ thread42838.html
Turbo Pascal Paskal, проблемы с exe, анимация графики https://www.cyberforum.ru/ turbo-pascal/ thread42763.html Здравствуйте. После написании программы в паскале, которая должна была выводить на экран какой-либо движущийся объект, столкнулась со следующими проблемами. 1.Программа, сохраненная как exe-файл, отказывается работать в других директориях компа, запускается лишь в папке паскаля. 2.при запуске pas-файла вылетает следующая ошибка "84 unit expected", а вслед за нею "55 interface expected", "73...	Turbo Pascal Функции Даны вещественые числа a,b,c,d,e,.Найти площадь пятиугольника. (Определить функцию для расчета площади 5-угольника по трем его сторонам)
Turbo Pascal Множества Из множества целых чисел вводимых с клавиатуры в линейную таблицу из 10-ти элементов, выделить множество чисел кратных минимальному числу этой таблицы. Пожалуйста! Буду очень признателен! https://www.cyberforum.ru/ turbo-pascal/ thread42434.html	Turbo Pascal Список упорядоченных пар Помогите разобраться с программой. Множество А ввожу,а вот как список упорядоченных пар, задающий отношение R не пойму. Условие задачи во вложении! Program Mnojestva; uses crt; Type Simvol = set of 'a'..'z'; Var A:simvol; i:integer; x:char; https://www.cyberforum.ru/ turbo-pascal/ thread42300.html
Turbo Pascal Построение графика функции Построить график функции a^2*x^3-y^2=0 Очень надо! Заранее признателен Добавлено через 9 часов 48 минут 18 секунд Пожалуйста помогите!!!	Turbo Pascal Вычисление суммы ближайшей к числу n. :help: Например, рассмотрим лимит в 40 калорий и 6 пакетов с пищей с калорийностью 7, 13, 17, 19, 29, 31. Бесси может съесть 7 + 31 = 38 калорий, но она может съесть и больше, используя 3 пакета с пищей: 7 + 13 + 19 = 39 калорий. Не существует лучшей комбинации. Если не понятно то вот задача : Бесси - на диете, в соответствии с которой она может есть не более чем C (10 <= C <=... https://www.cyberforum.ru/ turbo-pascal/ thread42256.html

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

09.07.2009, 21:19

Из массива слов удалить слова, в которых нет повторяющихся букв - Turbo Pascal - Ответ 212632

09.07.2009, 21:19. Показов 2113. Ответов 2

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
function Good(m:string):boolean;
var i,j:byte;
begin
Good:=true;
for i:=1 to length(m)-1 do
for j:=i+1 to length(m) do
if m[i]=m[j] then
 begin
  Good:=false;
  break;
 end;
end;
var s:array[1..100] of string;
    n,i,k:integer;
begin
clrscr;
write('Количество слов n=');
readln(n);
writeln('Введите ',n,' слов:');
for i:=1 to n do
readln(s[i]);
clrscr;
writeln('Исходный масив слов:');
for i:=1 to n do
write(s[i],' ');
writeln;
writeln;
k:=0;
writeln('Слова, в которых есть повторяющиеся буквы:');
for i:=1 to n do
if not Good(s[i]) then
  begin
   k:=1;
   write(s[i],' ');
  end;
if k=0 then write('Слов с повторяющимися буквами нет!');
readln
end.

Вернуться к обсуждению:
Из массива слов удалить слова, в которых нет повторяющихся букв Turbo Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

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

Блог

09.07.2009, 21:19

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

Напечатать те слова последовательности, в которых нет повторяющихся букв
дана последовательность слов. напечатать те слова последовательности, которые отличны от первого...

Удалить слова, у которых нет повторяющихся букв
Дан текст. Удалить слова, у которых нет повторяющихся букв.

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

Множества: определить слова, в которых нет букв первого слова
Определить слова, в которых нет буквы первого слова, используя сможества.

	09.07.2009, 21:19

inter-admin

Эксперт

29715 / 6470 / 2152

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

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

Блог

09.07.2009, 21:19

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

Вывод слов, в которых нету букв первого слова
Дана строка состоящая из слов. Слова разделяются только пробелом. Нужно вывести на экран только те...

Удалить из слов ,длина которых больше двух букв, первую букву
Задана символьная последовательность из слов(символов) разделяющийся хотя бы одним пропуском....

Записать в итоговый файл слова, в записи которых нет одинаковых букв
Вводится текст из файла INPUT.TXT.Записать в файл с именем OUTPUT.TXT слова, в записи которых нет...

Удалить повторяющиеся слова из последовательности, которая содержит от 1 до 30 слов (от 1 до 5 букв в каждом)
Дана последовательность, которая содержит от 1 до 30 слов, в каждом из которых от 1 до 5 латинских...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх