<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
for var i:=0 to m-1 do
for var j:=0 to n-1 do
if a[i,j].IsEven then a[i,j]:=1;
Writeln('*** Результирующая матрица[',m,',',n,'] ***');
a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
23 -23 -25 38 40 38 50 45 -35
-41 31 2 30 37 -30 -9 -8 -28
-12 20 -20 32 29 7 19 23 46
-48 -21 -27 19 10 -17 -20 -27 -47
-39 -11 19 -23 9 6 29 -24 -14
2 -7 37 -22 38 23 5 -33 37
*** Результирующая матрица[6,9] ***
23 -23 -25 1 1 1 1 45 -35
-41 31 1 1 37 1 -9 1 1
1 1 1 1 29 7 19 23 1
1 -21 -27 19 1 -17 1 -27 -47
-39 -11 19 -23 9 1 29 1 1
1 -7 37 1 1 23 5 -33 37
Всего путей через город Ж, исключая город З совсем, 7.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,h):=(0.0,3*Pi,0.6);
var x:=a;
var (k,s):=(0,0.0);
while x<=b do begin
var y:=x*Sin(x);
Writeln(x:5:1,y:18:13);
if y>0 then k+=1 else s+=y;
x+=h
end;
Writeln('Положительных- ',k,', сумма отрицательных ',s)
end.
<u>Пример</u>
0.0 0.0000000000000
0.6 0.3387854840370
1.2 1.1184469031607
1.8 1.7529257355808
2.4 1.6211116333228
3.0 0.4233600241796
3.6 -1.5930735958615
4.2 -3.6606182441371
4.8 -4.7815901224120
5.4 -4.1729282328023
6.0 -1.6764929891936
6.6 2.0561729991883
7.2 5.7144086197139
7.8 7.7886380939219
8.4 7.1786308279416
9.0 3.7090663671758
Положительных- 10, сумма отрицательных -15.8847031844065
Точная задача по Техническому Заданию:
var x,y:integer;
begin
writeln('введите два числа');
readln(x);
readln(y);
if (x<1000000001) and (y<1000000001) and (x>0) and (y>0)
then writeln('сумма чисел =',x+y)
else writeln('диапазон чисел неверный');
end.
Если вдруг вам поверит учитель, можете перевыполнить поставленную задачу:
var x,y:integer;
s:string;
begin
randomize;
writeln('взять ли числа случайными? Ответ да или нет');
readln(s);
if (s='да') or (s='Да') or (s='ДА') or (s='дА') then begin
x:=random(1000000000);
y:=random(1000000000);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end
else begin
writeln('введите два числа');
readln(x);
readln(y);
writeln('сумма чисел =',x+y);
writeln('произведение чисел =',x*y);
end;
end.
1 задача:
program znan1;
uses crt;
var a:char;
begin
clrscr;
readln(a);
while a<>'.' do
begin
writeln(ord(a));
readln(a);
end;
<span>end.
2 задача:
program znan2;
uses crt;
var i,j:integer;
begin
for i:=1 to 16 do
begin
for j:=1 to 8 do
begin
write((i*j-1):5,'-',chr(i*j-1));
end;
writeln;
end;
readln;
<span>end.</span></span>