Задача (строковые величины) - Паскаль, Turbo Pascal, PascalABC.NET

xakmen · 03.04.2009, 20:29

Помогите пожалуйста в составлении программ данной тематики.. до меня вообще не доходит как её делать

ЗАДАЧА.
дан список слов, разделенных между собой пробелами. Составить программу:
а) поиска всех слов, в которых ровно два раза встречается заданная буква;
б) поиска количества слов, у которых первая и последняя буквы совпадают между собой;
в) вывода на экран строки, составленной из 'n' первых букв всех слов;
г) вывода на экран строки, составленной из 'n' последних букв всех слов.

xakmen · 04.04.2009, 14:42

помогите пожалуйста

puporev · 04.04.2009, 16:34

Код:

uses crt;
var s,s1,s2,s3,s4:string;
    n,k,i,ks:byte;
    c:char;
begin
clrscr;
writeln('Vvedite stroku:');
readln(s);
s:=s+' ';{добавим пробел в конец строки}
write('Vvedite bukvu dlya poiska c=');
readln(c);
write('Vvedite kolichestvo pervyh=poslednyh bukv v slve n=');
readln(n);
s2:='';s3:='';s4:='';{сначала строки пустые}
ks:=0;
while pos(' ',s)>0 do{пока есть пробелы}
  begin
   s1:=copy(s,1,pos(' ',s)-1);{копируем первое слово}
   k:=0;
   for i:=1 to length(s1) do{смотрим его}
   if s1[i]=c then k:=k+1;{если в нем есть заданная буква, считаем}
   if k=2 then s2:=s2+s1+' ';{если их 2, записываем в строку S2}
   if s1[1]=s1[length(s1)] then ks:=ks+1;{если первая буква=последней, считаем слово}
   s3:=s3+copy(s1,1,n);{составляем строку из первых n букв}
   s4:=s4+copy(s1,length(s1)-n+1,n);{то же из последних}
   delete(s,1,pos(' ',s));{удаляем просмотренное слово с пробелом}
 end;
writeln('Slova s 2 bukvami ',c,':');
writeln(s2);
writeln('Kolihestvo slov s odinakovoj 1-j i poslednej bukvami=',ks);
writeln('Stroka iz pervyh ',n,' bukv slov:');
writeln(s3);
writeln('Stroka iz poslednyh ',n,' bukv slov:');
writeln(s4);
readln
end.

xakmen · 04.04.2009, 21:31

Цитата:

Сообщение от puporev

Код:

uses crt;
var s,s1,s2,s3,s4:string;
    n,k,i,ks:byte;
    c:char;
begin
...
end.

СПАСИБО ОГРОМНЕЙШЕЕ!!

ОЧЕНЬ ВЫРУЧИЛ !

p.s.: даже немного разобрался в этой теме.

annya77 · 04.04.2009, 22:49

<html>

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

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

Задача 1:
--------
Вывести график функция и в виде таблицы значения аргумента Xi,
значение функция Yi (i = 1,2,3,4 ...), max, min функция:

Y= - SINXi + COSXi -1

диапазон изменения аргумента:, количество точек графика 40

Задача 2:
--------
Выполнить задание 2 с применением возможностей Турбо Паскаль (record).

Создайте файл, который содержит:
- Название государства,
- Столицу,
- Количество населения,
- Площадь.
Напечатать данные о 10 государств с наибольшей плотностью населения. Вывести всю информацию о государстве X.

Задача 3:
--------
Написать программу, розвьязуe данную задачу с применением пiдпрограм типа FUNCTION, PROCEDURE:
решить уравнение:
ax=b
a-следует матрицы А (5,5).
b-следует матрицы B (7,7).
Матрицы А, В-распечатать в общепринятом виде

Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...

благодарю вас за вашу помощь ^^

</html>

anastasiya1511 · 19.05.2011, 22:34

Здравствуйте, помогите пожалуйста исправить ошибки или чем - то дополнить программу.. Дан список слов, разделенных между собой пробелами. Составить программу:

а) вывода на экран строки, составленной из n первых букв всех слов;
б) вывода на экран строки, составленной из n последних букв всех слов.

Она на С++:
#include <iostream.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>

void main()
{
clrscr();
int symbol = 0, word = 0;
int i, j;
char s[100], b[10][10];
cout << "string = ";
gets(s);
for (i = 0; i < 10; i++)
for (j = 0; j < 10; j++)
b[i][j] = '\0';
for (i = 0; s[i] != '\0'; i++)
{
if(s[i] != ' ')
{
b[word][symbol] = s[i];
symbol++;
}
else
{
b[word][symbol] = '\0';
word++;
symbol = 0;
}
}

for (i=1;i<10;i++)
{if (string (i)==' ')
b(i)=b(i+1);
cout<<count;
getch();
cin.get();
for (i=0; i<s10; i++)
{
if(stroka(i)==' ')
b2(i)=(string(i-1));
if b(i)==strlen string
b2(i)=b(i);
}

tatka1 · 25.05.2011, 23:13

помогите с задачей

Дана литерная величина s. Подсчитать наибольшее количество подряд идущих символов, значение которых совпадает со значением переменной X.
1) группы символов, разделенные пробелами (одним или не-сколькими) и не содержащие пробелов внутри себя, назы-ваются СЛОВАМИ;
2) между словами в тексте может быть любое количество пробелов;
3) предусмотреть корректную обработку пустого текста;
4) предусмотреть корректную обработку текста со словами, состоящими из одного символа;

03.04.2009, 20:29	#1
xakmen Регистрация: 25.03.2009 Сообщений: 3	Задача (строковые величины) Помогите пожалуйста в составлении программ данной тематики.. до меня вообще не доходит как её делать ЗАДАЧА. дан список слов, разделенных между собой пробелами. Составить программу: а) поиска всех слов, в которых ровно два раза встречается заданная буква; б) поиска количества слов, у которых первая и последняя буквы совпадают между собой; в) вывода на экран строки, составленной из 'n' первых букв всех слов; г) вывода на экран строки, составленной из 'n' последних букв всех слов.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Строковые переменные	NightFire	Помощь студентам	1	23.03.2009 06:20
Задача на строковые функции в Delphi...	Leprechaun	Помощь студентам	2	24.12.2008 18:01
Найти количество строк, среднее арифметическое элементов которых меньше заданной величины	Sergeo_89	Паскаль, Turbo Pascal, PascalABC.NET	3	05.12.2008 21:25

04.04.2009, 14:42	#2
xakmen Регистрация: 25.03.2009 Сообщений: 3	помогите пожалуйста

04.04.2009, 22:49	#5
annya77 Заблокирован Регистрация: 04.04.2009 Сообщений: 14	<html> приветик! мальчик, как дела? что вы делате???? Пожалуйста, помогите мне .. Пожалуйста, помогите мне решить упражнения. слишком важна для меня, пожалуйста Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ... Задача 1: -------- Вывести график функция и в виде таблицы значения аргумента Xi, значение функция Yi (i = 1,2,3,4 ...), max, min функция: Y= - SINXi + COSXi -1 диапазон изменения аргумента:, количество точек графика 40 Задача 2: -------- Выполнить задание 2 с применением возможностей Турбо Паскаль (record). Создайте файл, который содержит: - Название государства, - Столицу, - Количество населения, - Площадь. Напечатать данные о 10 государств с наибольшей плотностью населения. Вывести всю информацию о государстве X. Задача 3: -------- Написать программу, розвьязуe данную задачу с применением пiдпрограм типа FUNCTION, PROCEDURE: решить уравнение: ax=b a-следует матрицы А (5,5). b-следует матрицы B (7,7). Матрицы А, В-распечатать в общепринятом виде Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ... благодарю вас за вашу помощь ^^ </html>

19.05.2011, 22:34	#6
anastasiya1511 Новичок Джуниор Регистрация: 19.05.2011 Сообщений: 2	Здравствуйте, помогите пожалуйста исправить ошибки или чем - то дополнить программу.. Дан список слов, разделенных между собой пробелами. Составить программу: а) вывода на экран строки, составленной из n первых букв всех слов; б) вывода на экран строки, составленной из n последних букв всех слов. Она на С++: #include <iostream.h> #include <string.h> #include <stdlib.h> #include <stdio.h> #include <conio.h> void main() { clrscr(); int symbol = 0, word = 0; int i, j; char s[100], b[10][10]; cout << "string = "; gets(s); for (i = 0; i < 10; i++) for (j = 0; j < 10; j++) b[i][j] = '\0'; for (i = 0; s[i] != '\0'; i++) { if(s[i] != ' ') { b[word][symbol] = s[i]; symbol++; } else { b[word][symbol] = '\0'; word++; symbol = 0; } } for (i=1;i<10;i++) {if (string (i)==' ') b(i)=b(i+1); cout<<count; getch(); cin.get(); for (i=0; i<s10; i++) { if(stroka(i)==' ') b2(i)=(string(i-1)); if b(i)==strlen string b2(i)=b(i); }

25.05.2011, 23:13	#7
tatka1 Регистрация: 25.05.2011 Сообщений: 3	помогите с задачей Дана литерная величина s. Подсчитать наибольшее количество подряд идущих символов, значение которых совпадает со значением переменной X. 1) группы символов, разделенные пробелами (одним или не-сколькими) и не содержащие пробелов внутри себя, назы-ваются СЛОВАМИ; 2) между словами в тексте может быть любое количество пробелов; 3) предусмотреть корректную обработку пустого текста; 4) предусмотреть корректную обработку текста со словами, состоящими из одного символа;