объяснение:
код к : «заменить первую букву у слов, следующих за словами 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.
Поделитесь своими знаниями, ответьте на вопрос:
Впишите пропущенные операции: фрагмент ↓ выделяется форматируется перемещается удаляется зарание ! : )
копируется, вставляется, редактируется.