Форум программистов, компьютерный форум, киберфорум
Наши страницы
C для начинающих
Войти
Регистрация
Восстановить пароль
 
ostromir
11 / 8 / 3
Регистрация: 26.11.2010
Сообщений: 38
1

Перевести с Pascal на C

19.11.2012, 23:50. Просмотров 334. Ответов 1
Метки нет (Все метки)

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
var  
    i,x,k:integer; s:string;
    slog:array[1..10] of integer;
begin
  read(s);
      while length(s) <> 0 do
        begin
          k:=0;
          x:=pos(' ',s);
          if x<>0 then 
          begin
          for i:=1 to x-1 do 
            if s[i] in ['а', 'е', 'ё','и','о','у','э','ю','я','А', 'Е', 'Ё','И','О','У','Э','Ю','Я']  then k:=k+1;
          end
          else begin
            for i:=1 to length(s) do 
            if s[i] in ['а', 'е', 'ё','и','о','у','э','ю','я','А', 'Е', 'Ё','И','О','У','Э','Ю','Я']  then
              k:=k+1;
              end;
          if x<>0 then delete(s,1,x)
          else delete(s,1,length(s));
          slog[k]:=slog[k]+1;
        end;
  for i:=1 to 10 do
    writeln('с ',i, 'слогом ', slog[i], ' слов')
end.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2012, 23:50
Ответы с готовыми решениями:

Перевести с PASCAL
program pr9_2; type team = record n: string; c: real; k: integer; s:...

Перевести с PASCAL
program pr9_1; type team = record n: string; c: real; k: integer; s:...

Перевести из Pascal В СИ
Буду очень благодарен:) program sf; var s: string; i, l: integer; begin ...

Перевести Pascal в С (Си)
Мог бы и сам, но с 18 строки возникают непонятки... uses crt; var s1,s2:string; k,n:byte;...

Перевести код с Pascal
товарищи) нужна помощь))) из паскаля на си, плиииииз! uses crt; const n=4; type tel=record ...

1
Nameless One
Эксперт С++
5795 / 3444 / 356
Регистрация: 08.02.2010
Сообщений: 7,448
20.11.2012, 04:27 2
А само задание выложить не судьба?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2012, 04:27

Перевести код с Pascal
Program Zavdanya_3; Uses crt; Type masiv=arrayof Integer; Var F,f1:file of integer; ...

Перевести программу из Pascal в СИ
Перевести программу из Pascal в СИ: var s: string; i,count: integer; begin ReadLn(s);...

Перевести код с Pascal
Здравствуйте! Как написать такой код в си? program 1; var y:real; x:integer; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru