PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:PascalВыделить код
Объяснение:одномерного массива:
varимямассива: array [нижняяграница..верхняяграница] ofтипэлементов;
двумерного массива:
varимямассива: array [нижняяграница1..верхняяграница1,нижняяграница2..верхняяграница2] ofтипэлементов;
заполение массива:
одномерный массив: for i: =1 to5do readln(a[i]); {ввод с клавиатуры}
двумерный массив: for i: =1 to3do
for j: =1 to2do readln(a[i,j]);
вывод массива на экран:
в столбец: for i: =1 to5do writeln(a[i]);
в строку: for i: =1 to5do write(a[i],' ');
матрица двумерного массива:
for i: =1 to n do
for j: =1 to m do
write (a[i,j]: 4);
writeln;
end;
действия с одномерным массивом:
вычисление суммы элементов:
s: =0;
for i: =1 to n do s: =s+a[i];
подсчет элементов, удовлетворяющих условию:
k: =0;
for i: =1 tondo
if a[i] условиеотбора then k: =k+1;
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
var s:string;
len,i,n:integer;
begin
write ('Введите строку:'); readln (s);
write ('введите N:'); readln(n);
len:=length(s);
if len>n then s:=copy (s,len-n+1,len-n)
else if len<n then for i:=len+1 to n do insert('.',s,1);
writeln ('Итоговая строка: ');
write (s);
readln;
end.
Введите строку:qwertyuiopa
введите N:5
Итоговая строка:
uiopa
Введите строку:abrik
введите N:10
Итоговая строка:
Объяснение:одномерного массива:
varимямассива: array [нижняяграница..верхняяграница] ofтипэлементов;
двумерного массива:
varимямассива: array [нижняяграница1..верхняяграница1,нижняяграница2..верхняяграница2] ofтипэлементов;
заполение массива:
одномерный массив: for i: =1 to5do readln(a[i]); {ввод с клавиатуры}
двумерный массив: for i: =1 to3do
for j: =1 to2do readln(a[i,j]);
вывод массива на экран:
в столбец: for i: =1 to5do writeln(a[i]);
в строку: for i: =1 to5do write(a[i],' ');
матрица двумерного массива:
for i: =1 to n do
begin
for j: =1 to m do
write (a[i,j]: 4);
writeln;
end;
действия с одномерным массивом:
вычисление суммы элементов:
s: =0;
for i: =1 to n do s: =s+a[i];
подсчет элементов, удовлетворяющих условию:
k: =0;
for i: =1 tondo
if a[i] условиеотбора then k: =k+1;