паскаль 1) Дан целочисленный двумерный массив, размерности n х m, при n=4; m=8. Заменить все элементы на их квадраты. 2) Дан целочисленный двумерный массив, размерности n х m, при n=6; m=5. Заменить все элементы на их противоположные значения.
Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Вводите:'); var m:=s.Matches('\b\w{3}\b'); if m.Count>0 then m.Println else Writeln('Нет трехбуквенных слов') end.
Пример: Вводите: Как найти все слова, где букв - три? Как все где три
Var s,tmp:string; i,n:integer; flag,word:boolean; function letter (const let:char):boolean; begin if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true else letter:=false; end; begin readln (s); s:=s+' '; n:=length(s); flag:=false; for i:=1 to n do begin if (letter(s[i])) and (not flag) then begin flag:=true; tmp:=''; word:=false; end else if (not letter(s[i])) and (flag) then begin flag:=false; if (word) and (not (tmp='')) then writeln (tmp); end; if (flag) then begin tmp:=tmp+s[i]; if (s[i]='k') then word:=true; end; end; end.
Объяснение:
1) Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 4 do
For j:=1 to 8 do
read(m[i,j]);
For i:=1 to 4 do
For j:=1 to 8 do
Begin
m[i,j]:=m[i,j]*m[i,j];
end;
For i:=1 to 4 do
Begin
For j:=1 to 8 do
write(m[i,j],' ');
writeln
end;
end.
2)Var
m: array [1..10, 1..10] of integer;
i,j,c:integer;
Begin
For i:=1 to 6 do
For j:=1 to 5 do
read(m[i,j]);
For i:=1 to 6 do
For j:=1 to 5 do
Begin
m[i,j]:=-1*m[i,j];
end;
For i:=1 to 6 do
Begin
For j:=1 to 5 do
write(m[i,j],' ');
writeln
end;
end.