Форум программистов, компьютерный форум, киберфорум
Наши страницы

C для начинающих

Войти
Регистрация
Восстановить пароль
 
Insensatamente
0 / 0 / 0
Регистрация: 30.03.2017
Сообщений: 1
#1

Перевод из Паскаля в Си - C (СИ)

10.10.2017, 23:40. Просмотров 128. Ответов 2
Метки нет (Все метки)

Доброго времени суток. Помогите перевести программу из паскаля в СИ.


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
a,b:string;
begin
readln(a);
readln(b);
if length(a)<= length(b) then
writeln('error')
else
   begin
      a:=b+copy(a,length(b)+1,length(a)-length(b));
      writeln(a);
   end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2017, 23:40
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод из Паскаля в Си (C (СИ)):

Перевод из Паскаля в СИ. - C++
Доброго времени суток. Помогите перевести программу из паскаля в СИ. 1 программа: Program oblast; uses crt; var a,b,z:real;...

Перевод паскаля в с++ - C++ Builder
Кто разбирается в паскале помогите переделать на с++: KeyExpansion(byte key, word w, Nk) begin word temp i = 0; ...

Перевод с паскаля на С++ - C++
const BASE16 = 16; var HexValue : string; Ostatok: Integer; Chastnoe: Integer; begin HexValue := ''; write( 'Введите целое...

Перевод с Паскаля на C++ - C++
Помогите пожалуйста перевести это код на C++!!!!!! Uses crt,graph; label 2,3,4; Var dr,md,i,k:integer; d:char; procedure dogd; ...

Перевод с Паскаля в С++ - C++
uses crt; type prm=record {прямая с полями, коэффициентами} a,b,c:real; end; tch=record {точка с полями,...

Перевод с Паскаля на С++ - C++
Не могу ни как перевести полностью вот этот кусок кода на Паскале на си++ function h(var key: TKey): integer; {Вычисление хеш-функции} ...

2
MrGluck
Модератор
Эксперт CЭксперт С++
7491 / 4606 / 692
Регистрация: 29.11.2010
Сообщений: 12,591
11.10.2017, 11:03 #2
Что программа должна делать?
особенно интересует эта запись:
Цитата Сообщение от Insensatamente Посмотреть сообщение
Pascal
1
b+copy(a,length(b)+1,length(a)-length(b));
0
Megageorgio
50 / 57 / 23
Регистрация: 03.04.2017
Сообщений: 180
Завершенные тесты: 1
11.10.2017, 15:59 #3
C
1
2
3
4
5
6
7
8
9
10
#include <stdio.h>
#include <string.h>
int main() {
    char a[128], b[128];
    gets(a), gets(b);
    int l = strlen(b);
    if (l >= strlen(a)) puts("error");
    else strncpy(a, b, l), puts(a); 
    return 0;
}
C
1
2
3
4
5
6
7
8
9
#include <stdio.h>
int main() {
    unsigned char a[128], b[128], i = 0;
    gets(a), gets(b);
    while(b[i]) i++;
    sprintf(a, "%s%s", b, a+i);
    puts(a);
    return 0;
}
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2017, 15:59
Привет! Вот еще темы с ответами:

Перевод с Паскаля на С++ - C++
Кому не трудно. Помогите перевести пару задач несложных. 1 var a,b,c,tmp:real; begin write('Введите три числа A,B,C='); ...

Перевод с Паскаля на C# - C#
Я не могу разобраться с этими массивами. Что не так в моей первой части? program from; const n=5; var y:arrayof...

Перевод из паскаля в C# - C#
Переведите пожалуйста эту строчку for i:=a downto 2 do

Перевод с паскаля на С# - C#
Program for35; uses crt; var i, n:integer; s:longint; begin clrscr; write('Введите n: '); readln(n); s:=0;


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

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

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