Untitled Document

Character Arrays - String manipulations:

90. Convert pascal into Fortran (14.05.2010)

/*
Program# 90
date : 29-12-2008
Convert pascal into Fortran
*/

#include <stdio.h>
main(){
char a[100],b[100];
int i,j;

i=0;
scanf("%c",&a[i]);
while(a[i]!='$'){
i++;
scanf("%c",&a[i]);
}
a[i]='\0';

i=0;j=0;
while(a[i]!='\0'){
if(a[i]==':' || a[i]==';')
i++;
else{
b[j]=a[i];
j++;
i++;
}
}
b[j]='\0';
printf("\n %s\n %s",a,b);
}