Linguagem c

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (258 palavras )
  • Download(s) : 0
  • Publicado : 24 de junho de 2012
Ler documento completo
Amostra do texto
1-)Program Naturais

use crt;

var

A: Integer

Begin

A:=0;

Repeat

A:=A+1;

Until A= 100;

write( ‘valor’,A);

Readkey

End.



2-) ProgramMultiplos de sete



use crt;

var

M7,D: Integer



Begin



Repeat

M7:=M7+1;

D:= 0;

write ('M7');

until M7;=200;

End.



3-) Program Divisiveis porquatro



use crt;

var

D4,M : Integer;



Begin



Repeat

D4:= D4+1;

M:=0;

write ('D4');

until D4=100;

End.



4-) Program Divisores de um numeroqualquer



use crt;

var

DNQ,V,M : Integer;



Begin



Write(' digite um valor');

Repeat



DNQ:=DNQ+1;

M:=DNQ*V;

if M:=0;

write (' DNQ');

End.5-) Program Turma qualquer



use crt;

var

A,B, C,M : Integer



Begin

M:= (A+B+C)/3;

write (' a média é', média);

Readkey

End.



6-) ProgramFatorial



use crt;

var

FV,AV :Integer ;



Begin



Repeat



write (' digite um valor');

FV!:= FV!-1;

F:=FV!*AV;

Write ('FV!');

End.



7-) ProgramMedidor



use crt;

var

L,X, : Integer



Begin



Repeat



write('digite um valor L');

Read( L);

X=X+1;

if L>X;

write (' o menor numero inteiropositivoé', X);

End.



8-) Program Tabuada do quatro



use crt;

var

T4,M : Integer ;



Begin



Repeat

T4=:T4+1;

M:= T4*4;

if M:= 0;

write ('T4');End.



9-) Program Tabuada



use crt;

var

TNQ,VQ, M : Integer



Begin



Repeat



write (' digite um valor');

TNQ:=TNQ+1

M:=TNQ* VQ

if M:= 0

write(' TNQ');

End





10-) Program Media aritmedica



use crt;

var

NP,13: Integer;





Begin



NP:= 13+1;

if NP/2;

write ('NP');

until NP
tracking img