Перевести Из Pascal В C++

Тема в разделе "C/C++/C#", создана пользователем Ластик, 26 ноя 2013.

  1. Ластик

    Ластик New Member

    Регистрация:
    26 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    Помогите, пожалуйста, перевести из Pascal в C++
    Прошлую ночь решала задачи в Паскале, решила, сегодня это же нужно в С++. Тут я вообще ничего не понимаю
    Вот задачи! Буду благодарна! (Хоть парочку, сама то и не одной не сделала в С++) ^_^


    Program nastya;
    uses crt;
    var A,B: integer;
    C:real;
    begin
    write('Число А: '); readln(A);
    write('Число B: '); readln(B);
    while B<>0 do begin
    C:=A/B;
    writeln ©;
    readln
    end;
    while B=0 do
    writeln ('Ошибка');
    readln
    end.



    Program nastya;
    uses crt;
    var A:integer;
    begin
    write('Введите число от 0 до 4: '); readln(A);
    case A of
    0 : writeln('Ноль');
    1 : writeln('Один');
    2 : writeln('Два');
    3 : writeln('Три');
    4 : writeln('Четыре');
    end;
    while A<0 do
    writeln ('Ошибка');
    readln;
    while A>4 do
    writeln ('Ошибка');
    readln
    end.


    Program stepen;
    uses crt;
    var A,B:real;
    N:integer;
    begin
    write('Введите число A: '); readln(A);
    write('Введите степень N(целое положительное число): '); readln(N);
    B:=Exp(Ln(A)*N);
    writeln(B);
    readln
    end.


    Program massiv;
    uses crt;
    const M=10;
    N=10;
    var
    matrix:array[1..M,1..N] of integer;
    k, i, j, p, sum: longint;
    begin
    p:=1;
    write('Введите число k: '); readln(k);
    for i:= 1 to N do
    begin
    for j:= 1 to M do
    begin
    matrix[i,j]:=random(10);
    write(matrix[i,j]:5);
    if j = k then begin inc(sum, matrix[i,j]); p := p * matrix[i,j]; end;
    end;
    writeln;
    end;
    writeln;
    writeln('Произведение ',k,' столбца : ',p);
    end.
     
  2. rrrFer

    rrrFer Well-Known Member
    Команда форума C\C++ Team

    Регистрация:
    6 сен 2011
    Сообщения:
    1.324
    Симпатии:
    36
    Тексты задач лучше дай, а так...ты ищешь не просто человека, знающего С++ и способного помочь, но еще и знающего паскаль (хоть-чуть).

    И еще, мне кажется, твои задачи вообще не надо было решать (они решались уже мильон раз), ты в гугле пробовала искать? -
    например гуглю "возведение в степень С++", одна из первых ссылок: http://kvodo.ru/funktsii-zadacha-4.html
    и это третья твоя задача.
     
  3. Ластик

    Ластик New Member

    Регистрация:
    26 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    НУжна только первая задача на С++
    Вот задание на 1 задачу.
    Введите 2 числа, А и В. Если В не равно 0, то А разделить на В, иначе выдать "Ошибка"
    Если поможете, я Вам буду очень благодарна)
     
  4. Ластик

    Ластик New Member

    Регистрация:
    26 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    уже не надо. спасибо)
     
Загрузка...
Похожие Темы - Перевести Из Pascal
  1. Dimkawshm
    Ответов:
    3
    Просмотров:
    1.244
  2. marik22222
    Ответов:
    1
    Просмотров:
    1.210
  3. GoldenYear
    Ответов:
    0
    Просмотров:
    1.191
  4. Реник
    Ответов:
    1
    Просмотров:
    1.238
  5. LeshikB
    Ответов:
    0
    Просмотров:
    1.639

Поделиться этой страницей