turbo pascal ??????????

Question

On se propose d'écrire un programme qui saisit un entier naturel n suivi de n réels à mettre dans un tableau T puis affiche successivement les éléments de rangs pairs suivis de ceux de rangs impairs.traduire en pascal .

Answer 1

Caml power.

Je te l'écris en Caml light, ta traduction en pascal sera facile.

let affiche n t =
let fin = (n-1)/2;
for j = 0 to fin do
print_float (t.[2 * j]);
done;
for j = 0 to fin do
print_float (t.[2 * j+1]);
done;;

Answer 2

pour CocoExp : oui, tous ceux qui utilisent DelphiStudio2007 ou Navision, faut sortir de temps en temps...

sinon, teste ça :

program ExercisedEcole;
var
n,i:integer;
t:array[1..1000] of real;
begin
write('n ? ');
readln(n);
for i:=1 to n do
begin
write('T[',i,']');
readln(t[i]);
end;
for i:=1 to n do if (i mod 2)=0 then
writeln('T[',i,']=',t[i]);
for i:=1 to n do if (i mod 2)<>0 then
writeln('T[',i,']=',t[i]);
end.

Answer 3

heu je croisque tu dois faire une boucle for.
pour le reste c'est à toi de jouer désolée

Answer 4

Attend, y a encore des gens qui programme en Pascal ?
Ha la bonne blague !