Задача 2 Урок 23
Primary tabs
Есть исходный код:
var s:string; i, n: Integer; a: array[1..8] of char; begin writeln('Vvedite stroku'); readln(s); n := 1; while(n<10) do // 1-8 begin for i:=1 to Length(s) do if (s[i]>='0')and(s[i]<='9') then begin a[n]:=s[i]; inc(n); end; end; for i:=low(a) to high(a) do write(a[i],' '); // выводим массив readln(); end.
Задача:Определить, что делает эта программа (добавьте текстовое описание)
В ней есть лишние конструкции -- перепишите код оптимальным образом
Решение:
Эта программа записывает в массив из 8 ячеек числа,
выделяя их из строки, полученной от пользователя. Перепишем так :
var s:string; i, n: Integer; a: array[1..8] of char; begin writeln('Vvedite stroku'); readln(s); n := 1; for i:=1 to Length(s) do if (s[i]>='0')and(s[i]<='9') then begin a[n]:=s[i]; inc(n); end; for i:=low(a) to high(a) do write(a[i],' '); // выводим массив readln(); end.
- Log in to post comments
- 125 reads