Все Цифры Каждого Элемента Массива Увеличить На 1, А 9 Заменить На 0

Тема в разделе "Pascal and Delphi", создана пользователем viktorija, 23 фев 2014.

  1. viktorija

    viktorija New Member

    Регистрация:
    23 фев 2014
    Сообщения:
    3
    Симпатии:
    0
    Здравствуйте! помогите записать программку с помощью процедур и функций или, если можно, совместить две программки.
    var
    s: string;
    i: integer;

    begin
    Readln(s);
    i := 1;
    while (i < length(s)) do
    begin
    if(s in ['0'..'9']) then
    if odd(i) then
    begin
    if s = '9' then
    s := '0'
    else
    Inc(s);
    end;
    inc(i);
    end;

    Writeln(s);
    end.


    Program Example;
    uses crt;
    Const n = 30;
    dd = 51;
    Type myarray = Array [1..n] Of Integer;
    Procedure Init2(var n1:integer;Var m : myarray );
    var i : Integer;
    begin
    repeat
    write('Размер массива от 1 до ',n,'=');
    readln(n1);
    until n1 in [1..n];
    for i:=1 to n1 do
    m:=random(dd);
    end;
    Procedure Print1(n1: Integer; m: myarray );
    Var i : Integer;
    Begin
    For i:=1 To n1 Do
    Write(m:4);
    Writeln;
    End;

    var A : myarray;
    n1 : Integer;
    Begin
    clrscr;
    Randomize;
    Init2(n1,A);
    Print1(n1,A);
    Print1 (n1,A);
    Readln;
    End.
     
Загрузка...

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