Сделать программы на паскале. ! 1. найти наибольшее из двух чисел, используя конструкцию case. 2. используя, оператор case, решить . с клавиатуры ввести год рождения, а выдается в год кого вы родились. (год лошади, свиньи и т.д.)
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array[1..1000,1..1000] of integer; i,j,k,n,u:integer; begin; randomize; readln(n); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(10)-10; write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
1)var a:array[1..3,1..3] of integer; b:array[1..3,1..3] of integer; c:array[1..3,1..3] of integer; i,j:integer; begin; writeln('A array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; a[i,j]:=random(-10,10); write(a[i,j]:4); end; end; writeln; writeln('B array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; b[i,j]:=random(-10,10); write(b[i,j]:4); end; end; writeln; writeln('C array:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; c[i,j]:=a[i,j]*b[i,j]; write(c[i,j]:4); end; end; end. 2)var a:array of array of integer; i,j,k,n,u:integer; begin; randomize; readln(n); setlength(a,n+1); for i:=1 to n do setlength(a[i],n+1); writeln('A array:'); for i:=1 to n do begin; writeln; for j:=1 to n do begin; a[i,j]:=random(-10,10); write(a[i,j]:4); end; end; for i:=1 to n do begin; for j:=1 to n do u+=a[i,j]; if u<0 then inc(k); u:=0; end; writeln; write('Result:',k); end.
var
a, b, n: integer;
begin
readln(a, b);
n := a - b;
case n of
1..65536: writeln('a>b');
0: writeln('a=b');
else writeln( 'a<b');
end;
end.
Задание №2
var a: integer;
begin
writeln('Введите год рождения'); readln(a);
write('Вы родились в ');
case a mod 12 of
0: writeln('год Обезьяны.');
1: writeln('год Петуха.');
2: writeln('год Собаки.');
3: writeln('год Свиньи.');
4: writeln('год Крысы.');
5: writeln('год Быка.');
6: writeln('год Тигра.');
7: writeln('год Кролика.');
8: writeln('год Дракона.');
9: writeln('год Змеи.');
10: writeln('год Лошади.');
11: writeln('год Козы.');
end;
end.