A practical introduction to Pascal programming language - GIARA

More documents

Recommendations

Info

Iterative constructionsProgram 67: Exercise 3.27program c03e27;constMAX_INTEGER=32500;varn:integer;prevInt,prevPrevInt:integer;counter:integer;beginwriteln(’Please input the sequence of integers ended by zero (0): ’);prevInt:=MAX_INTEGER;prevPrevInt:=MAX_INTEGER;counter:=0;repeat(* 1- Reading the next value *)read(n);(* 2- Updating the other variables *)if ((prevPrevInt
A Practical Introduction to Pascal Programming LanguageExercise 3.29. Write a program that reads a sequence of integers and computes the number ofsubsequences of 3 positions so that their product would be a negative (stricly under zero) value.□⊡This problem is very similar to the one in the Exercise 3.26.Program 69: Exercise 3.29program c03e29;varn,prevInt,prevPrevInt:integer;counter:integer;beginwriteln(’Please input the sequence of integers ended by zero (0): ’);prevInt:=0;prevPrevInt:=0;counter:=0;repeat(* 1- Reading the next value *)read(n);(* 2- Updating the other variables *)if (prevPrevInt*n*prevInt=3*prevPrevReal*r) thencounter:=counter+1;prevPrevReal:=prevReal;prevReal:=runtil(r
Page 4:
A Practical Introduction to Pascal
Page 8:
ContentsIntroduction to this book 9
Page 11 and 12: Guidelines and structureThis book i
Page 13 and 14: A Practical Introduction to Pascal
Page 59: A Practical Introduction to Pascal
Page 91: A Practical Introduction to Pascal
show all

A practical introduction to Pascal programming language - GIARA

Create successful ePaper yourself

Delete template?

Save as template?