algoritimos

1 – Leia um número e exiba seu sucessor.

Algoritmo Número;
Declaração de variáveis x, n : real;
Início
Escreva (‘Digite um número’);
Leia (x);
N:=x+1;
Escreva (‘O sucessor do número digitado é:’, n);
Fim.

2 – Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias. Defina que todos os meses têm 30 dias. program CalculodeIdadeemDias;

uses Crt;

var idade, anos, mes,dia:integer; c: integer; i: integer;

//SubProcedimentos procedure desenhelinha; begin for i:=0 to 79 do write('-'); end;

procedure espaco; begin for i:=0 to 79 do write(' '); end;

//Programa Principal

desenhelinha; espaco;

writeln ('Seja Bem-Vindo ao programa de Calculo de Idade');

espaco;

writeln ('Digite sua idade em anos'); read(anos); writeln ('Digite sua Idade em meses'); read (mes); writeln ('Digite sua Idade em dias'); read (dia);

espaco;

Idade:=(anos*365)+(mes*30)+dia; writeln ('Sua idade total em dias e de ',idade,' dias');

espaco; desenhelinha; espaco; writeln ('Para Realizar um novo calculo tecle ENTER ...'); readkey; clrscr;

end.

3 – Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias. Defina que todos os meses têm 30 dias. inicio prog declare id,m,d,a,aa,an numerico {idade,mes,dia,ano,ano de nascimento ano atual} escreva "digite a idade:"leia id escreva"digite o ano de nascimento:"leia an escreva"digite o ano atual:"leia aa
A← aa-an
M← id*12
D←m*365
escreva"a sua idade em dias é=",D fim prog

4 – Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso