Предмет:
ИнформатикаАвтор:
smudge9nl6Автор:
tristanreyesОбъяснение:
Код к задаче: «Заменить первую букву у слов, следующих за словами die, der, das на прописную - Pascal ABC»
1. {
2. die, der, das
3. }
4. program words;
5. uses crt;
6. var s: string;
7. str: array[1..3] of string;
8. stemp: string;
9. i,j,k: integer;
10. flag: boolean;
11. Begin
12. str[1]:='die';
13. str[2]:='der';
14. str[3]:='das';
15.
16. write('Enter your string: ');
17. readln(s);
18.
19. for i:=1 to length(s) do
20. begin
21.
22. flag:=true;
23. if (s[i]='d') then
24. begin
25. k:=1;
26. for j:=i to i+3 do
27. begin
28. if (s[j]=str[1][k]) or (s[j]=str[2][k]) or (s[j]=str[3][k]) then
29. begin
30. inc(k);
31. writeln(flag, ' j = ',j);
32. end
33. else
34. begin
35. flag:=false;
36. j:=i+4;
37 end;
38.
39.
40.
41. if (flag=true) then
42. begin
43. writeln('j+1=',j+1);
44. if (s[j+1]=' ') then
45. begin
46. if (s[j+2]>='A') and (s[j+2]<='Z') then begin s[j+2]:=chr(ord(s[j+2])+32); end;
47. end;
48. i:=i+3;
49. end;
50.
51. end;
52. end;
53. end;
54.
55. writeln('New string: '+s);
56. End.
Автор:
baker#include "iostream"
#include "string"
using namespace std;
int main()
{
string text, word;
getline(cin, text);
for ( int i=3; i<text.length(); i++)
{
if ( text[i]==' ' )
{
word=text.substr(i-3, 3);
if (word=="die" or word=="der" or word=="das")
{
if (int(text[i+1])>96)
{
text[i+1]=char(int(text[i+1])-32);
}
}
}
}
cout<<text;
}
Автор:
johanДобавить свой ответ
Предмет:
МатематикаАвтор:
emiliopearsonОтветов:
Смотреть
Предмет:
Английский языкАвтор:
santiago989Ответов:
Смотреть
Предмет:
МатематикаАвтор:
valintol1o9Ответов:
Смотреть