Programa C

Keno · 14 de julho de 2009

Alguem que possa ajudar a passar esse programa para pascal.

program trab;
uses crt;

var t,i,c,s,num:integer;

begin

clrscr;

write(´digite um numero:´);

readln(num)

t:=1;

for i:=1 to num do

begin

writeln;

for c:=1 to t do

begin

s:=c*i;

write(s,´ ´);

end;

t:=t+1;

end;

readln;

end.

Grato!

Keno · 14 de julho de 2009

Mas quero o programa em C!

Ele está no pascal.

Uma parte dele q fiz no C.

#include <stdio.h>
#include <conio.h>

int i,t,c,s,num;

void main()

{clrscr();

printf("digite um numero:");

scanf("%d",&num);

t=1;

for (i<1;i<=num;i++);

{for (c<1;c<=t;c=c+t)}

printf("s=c*i");

scanf("%d",&i);

printf(s,' ');

scanf("%d",&t);

getch()};

rorn · 15 de julho de 2009

hehe de pascal n entendo nada as vezes alguem te ajuda mas o melhor é você tentar arrumar o algoritmo do programa

dr4cker · 15 de julho de 2009

Keno poste o problema para que possamos ajudá-lo.

progArt · 15 de julho de 2009

Keno,

Saiba que só traduzi seu programa por curiosidade em saber o que ele faz, hehehe, e gostei do resultado, interessante, nunca tinha visto.

Segue ele em C:


#include<stdio.h>
#include<conio.h>
main()
{
      int t=1, i, c, s, num;

      printf("Digite um número...: ");
      scanf("%d",&num);

      for(i=1;i<=num;i++)
      {
           printf("\n");
           for(c=1;c<=t;c++)
           {
                s=c*i;
                printf("%d ",s);
           }
           t=t+1;
      }

      getche();
}