programação

Questão 7

Program contas; uses wincrt; var a,b,c,soma,media,produto:real; begin writeln('Informe um valor qualquer'); readln(a); writeln('Informe o segundo valor qualquer'); readln(b); writeln('Informe o terceiro valor qualquer'); readln(c); soma:=a+b+c; writeln('O valor da soma é', soma:3:2); produto:=a*b*c; writeln('O valor do produto é', produto:3:2); media:=a+b+c/3; writeln('O valor da media é', media:3:2); end. Questão 13

Program nadador; uses wincrt; var idade:integer; begin writeln ('Informe a sua idade para saber qual a sua categoria'); readln(idade); if(idade>=5) and (idade=8) and (idade=12) and (idade=14) and (idade=18) then writeln('Adulto'); end.

Questão 15

Program poligono; uses wincrt; var lado,base,H,area,P,a,b,c:real; begin writeln('Informe o numero de lados de um poligono de 3 até 5'); readln(lado); if (lado=3) then begin writeln('Informe três valores quaisquer'); readln(a); readln(b); readln(c); P:=a+b+c; writeln('É triangulo', P:3:2); end else if (lado=4) then begin writeln('Informe um valor para base e outro para altura'); readln(base); readln(H); area:=base*H; writeln('É um retangulo', area:3:2); end else if (lado=5) then writeln ('É um pentagono'); end. 65. Escrever um algoritmo/programa em Pascal que lê uma matriz M(10,10) e a escreve. Troque, a seguir:

- a linha 2 com a linha 8.

- a coluna 4 com a coluna 10

- a diagonal principal com a secundária

- a linha 5 com a coluna 10

Escreva a matriz assim modificada.

program ex65;

uses crt;

var

m: array[1..10,1..10] of integer;

aux, i, j: integer;

begin

clrscr;

writeln('Informe a matriz: ');

for i:= 1 to 10 do

begin

for j:= 1 to 10 do

begin

gotoxy(j*6,i+1);

{readln(m[i,j]);}

m[i,j]:=(i-1)*10+j;

end;

end;

clrscr;

writeln('Matriz: ');

for i:= 1 to 10 do