Регистрация
salhk
04.08.2021 01:53
Информатика
Есть ответ 👍

Контрольная работа по теме системы счисления

264
386
Посмотреть ответы 1

Ответы на вопрос:

олька9992
олька9992
4,8(89 оценок)

объяснение:

код к : «заменить первую букву у слов, следующих за словами 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.

Популярно: Информатика