Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal ABC Получить матрицу Получить матрицу (помогите, необходимо на контрольную) https://www.cyberforum.ru/ pascalabc/ thread398902.html Для каждого столбца матрицы найти произведение его элементов Pascal ABC
пожалуйста помогите..))))) дана матрица размера M*N. для каждого столбца матрицы найти произведение его элементов.))
Pascal ABC Посчитать кол-во символов Дан текст. Посчитать количество цифр (по отдельности), символов А и В, а также строк, начинающихся с цифр (по отдельности), символов А и В. https://www.cyberforum.ru/ pascalabc/ thread398846.html Pascal ABC программа по графике https://www.cyberforum.ru/ pascalabc/ thread398813.html
нарисовать прямоугольник вращающийся вокруг своей оси.
Pascal ABC Сколько понадобится квадратных ковриков со стороной 1х1 метр, чтобы полностью покрыть пол комнаты
Малыш и Карлсон живут в прямоугольной комнате. Как им подсчитать, сколько понадобится квадратных ковриков со стороной 1х1 метр, чтобы полностью покрыть пол комнаты (ни Малыш, ни Карлсон не умеют ни делить, ни умножать). 		Pascal ABC Определить, через сколько лет лов рыбы должен быть прекращен? В водоеме 100 т рыбы. Каждый год рыболовецкая бригада вылавливает 15 т. Воспроизводство рыбы 5 % в год. Для сохранения воспроизводства необходимо прекращать лов, когда в водоеме ее остается менее 5 т. Через сколько лет лов рыбы должен быть прекращен? https://www.cyberforum.ru/ pascalabc/ thread398806.html
Pascal ABC Мистер Пипкин и Мистер Липкин одновременно внесли в свои банки одинаковые вклады по V долларов. Банк мистера Пипкина начисляет своим клиентам 10% г Мистер Пипкин и Мистер Липкин одновременно внесли в свои банки одинаковые вклады по V долларов. Банк мистера Пипкина начисляет своим клиентам 10% годовых, а банк мистера Липкина – 7%. Во сколько раз больше денег окажется через 10 лет на счете у мистера Пипкина, чем у мистера Липкина? https://www.cyberforum.ru/ pascalabc/ thread398804.html Дружественные числа Pascal ABC
не работает программа в чем дело? uses crt; var a,b,i,i1,d,x,y,s:integer; begin for i:=2 to 50000 do begin d:=0; for i1:=2 to i div 2 do begin if (i mod i1=0) then d:=d+i1; end; for a:=2 to 50000 do begin
Pascal ABC Построить график функции y=x^3 Исправьте график пожалуйста: uses GraphABC; var I,K,N,X0,Y0,X,Y,X1,Y1:integer; begin cls; N:=40;K:=6; cls; Line(320,2,620,410);Line(2,220,620,220); FloodFill(320,2,clFuchsia);FloodFill(2,220,clFuchsia); TextOut(210,10,'Y');TextOut(615,225,'X'); X0:=0;Y0:=220; for I:=0 to K*N do begin X:=X0+I; Y:=Y0-Round(x*x*x); https://www.cyberforum.ru/ pascalabc/ thread398764.html Pascal ABC Ввести одномерный массив , вывести его. На место минимального элемента массива записать сумму последних трёх ненулевых элементов массива https://www.cyberforum.ru/ pascalabc/ thread398747.html
1.Ввести одномерный массив , вывести его. На место минимального элемента массива записать сумму последних трёх ненулевых элементов массива. На экран вывести массив после преобразования, или сообщение о невозможности модификации. 2.Дан массив K(N) (N<=50). Преобразовать его, упорядочив по убыванию все его элементы, стоящие после второго нулевого элемента. Выдать на печать исходный и...
РГР по ИКТ Pascal ABC
Помогите пожалусто решить задачи 1) Дано натуральное число.Определить, образуют ли цифы числа симметричную последовательность, то есть читаются они одинаково слева направо и справа налево. Пример:012210 2) Определить является ли заданная строка палиндромом.Палиндромом называется слово, фраза или стих, одинаково читающиеся слева направо и справо налево("искать такси","а роза упала на лапу... 		Pascal ABC Типизированные файлы Дан файл, содержащий записи имен и возрастов некоторой группы людей. Напечатать имена людей, имеющий наименьший возраст. https://www.cyberforum.ru/ pascalabc/ thread398700.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.12.2011, 10:40 0

Напечатать слова, которые встречаются в предложениях только 1 раз - Pascal ABC - Ответ 2248395

05.12.2011, 10:40. Показов 2401. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ну вот, на свежую голову... извини, в PascalABC
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

uses crt;
var a: array [1..100] of string;
    b: array [1..100] of integer;
    i,j,k,l: integer;
    s,sl: string;
begin
write('s=');
readln(s);
j:=1;
sl:='';
if s[length(s)]<>'.' then s:=s+'.';
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.')
       then sl:=sl+s[i] else
            begin
            a[j]:=sl;
            sl:='';
            inc(j);
            end;
k:=j;
for j:=1 to k do
    write(a[j],' ');
for j:=1 to k do
    b[j]:=0;
writeln;
writeln('не повторяются: ');
for j:=1 to k do
    for l:=1 to k do
        if a[j]=a[l] then
           inc(b[j]);
for j:=1 to k do
    if b[j]=1 then write(a[j],' ');
end.


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

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

Напечатать те слова, которые встречаются в тексте один раз
дано предложение.напечатать те слова которые встречаются в нем один раз. Добавлено через 12...

Вывести слова, которые встречаются в последовательности только один раз
Вообщем задача такая. В строке состоящей из символов слова вместо пробела разделены запятой,...

Дана последовательность слов в строке,напечатать все слова последовательности,которые встречаются 1 раз
Помогите разобраться в программе,распишите что она делает подробно пожалуйста!!!! var a:string;...

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

Вывести на экран все слова, которые встречаются в последовательности только один раз
У тексті поміж словами розташована кома, за останнім словом - крапка. Вивести на екран усі слова,...

Напечатать слова, которые встречаются в двух предложениях только один раз (Pascal -> C++)
Задание если понадобится: Даны два предложения. Напечатать слова, которые встречаются в двух...

Даны два предложения. Напечатать слова, которые встречаются в двух предложениях только один раз. В C#
Здравствуйте, помогите пожалуйста. буду очень вам признателен. нужно написать программу: Даны два...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru