0 / 0 / 0
Регистрация: 03.11.2015
Сообщений: 13
1

Нужно перевести из Паскаля на С/С++

17.11.2015, 15:14. Показов 379. Ответов 0
Метки нет (Все метки)

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Program pyat;
uses crt;
var
    s: string;
    i,iMin,lMin,l,a: byte;
begin
    clrscr;
    writeln('Введите предложение: ');
    readln(s);
    a:=length(s);
 
    lMin := 255;
    iMin := 1;
    l := 0;
    s[length(s)] := ' ';
    for i := 1 to a do
    begin
        if (s[i] <> ' ')
        then
            inc(l)
        else
            if ((l <> 0) and (l <= lMin))
            then
            begin
                lMin:=l;
                iMin:=i-l;
            
                l:=0;
            
            end
            else
              begin
               
                l:=0;
                end;
    end;
    s[Length(s)] := '.';
    insert(copy(s, iMin, lMin) + ' ', s, iMin);
    write(s);
    readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2015, 15:14
Ответы с готовыми решениями:

нужно перевести с паскаля на с++
uses crt; var E,x,p,t:real; k:integer; { Возведение х в степень к } function...

нужно перевести с Паскаля на С++
Найти в массиве: 1) сумму элементов с нечётными номерами 2) Сумму элементов между первым и...

Нужно перевести программу из Паскаля в С++
Помогите пожалуйста перевести. Из Паскаля в С++ Код программы Паскаля: program Hello; var...

Нужно перевести программу с Паскаля на c++
var i,j: byte; begin for i:=1 to 9 do // i - десятки, j - единицы for j:=0 to 9 do ...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.11.2015, 15:14
Помогаю со студенческими работами здесь

Нужно перевести программу из Паскаля в С++
К сожалению С++ только начали изучать, а программ задали много Delphi знаю хорошо Задача...

Нужно перевести программу с Паскаля на С++
Var a:integer; begin WriteLn('Введите чтсло'); readln(a); Write('В записи этого числа ');...

Нужно перевести коды программ с паскаля, в С++!
Если целое число M делится нацело на целое число N, то вывести на экран частное от деления, в...

Нужно перевести из паскаля в Си. Определить сумму положительных элементов
uses crt; const nmax=20; var a:array of integer; b,ab:array of integer; m,n,i,j,k:byte;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru