A practical introduction to Pascal programming language - GIARA

More documents

Recommendations

Info

Alternative constructionsExercise 2.7. Write a program that reads a real number from the keyboard. Then, if the numberis in the interval [−5, 5], it displays the message Within!. Otherwise, it displays the messageOutside.□The first of the options consists of checking that the number is greater than −5 and smallerthan 5.Program 23: Exercise 2.7 (Version A)program c02e07;varvalue:real;beginwrite(’Input a number: ’);readln(value);(* Basic double comparison*)if (-5
A Practical Introduction to Pascal Programming LanguageProgram 25: Exercise 2.8program c02e08;uses math;varaLow,bLow,aHigh,bHigh:integer;begin(* Reading the values*)write(’Please type the first interval: ’);read(aLow);readln(aHigh);write(’Please type the second interval: ’);read(bLow);readln(bHigh);(* Checking them up*)if ((aLow>=aHigh)or(bLow>=bHigh)) thenwriteln(’The intervals are inconsistent.’)else if ((bLow>aHigh) or (aLow>bHigh)) thenwriteln(’The intersection is null’)elsewriteln(’The intersection is [’,max(aLow,bLow),’,’,min(aHigh,bHigh),’]’)end.⊡Exercise 2.9. Write a program that reads 3 integers and displays the product of the greatest oneby the sum of the other two.□In this program we first aim at sorting the values so that n1 ≥ n2 ≥ n2. In order to do so,we sort the values 2-by-2, finally ensuring the order. Later on, we proceed for the mathematicaloperations on the data.Program 26: Exercise 2.9program c02e09;varn1,n2,n3:integer;begin(* Reading*)write(’Please type three integer splitted by spaces: ’);read(n1);read(n2);readln(n3);(* Comparing the values one-by-one*)if ((n1>=n2) and (n1>=n3)) thenwriteln(’The result is ’,n1*(n2+n3),’.’)else if (n2>=n3) thenwriteln(’The result is ’,n2*(n1+n3),’.’)elsewriteln(’The result is ’,n3*(n1+n2),’.’)end.⊡Exercise 2.10. Write a program that reads 3 reals and displays them sorted in decreasing order.□This exercise is very similar to the previous. Note how, after the first two if-then structureswe already know that the smallest value of the three is in n3.28
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 27: A Practical Introduction to Pascal
Page 79 and 80:
A Practical Introduction to Pascal
Page 81 and 82:
Page 83 and 84:
Page 85 and 86:
Page 87 and 88:
Page 89 and 90:
Page 91:
show all

A practical introduction to Pascal programming language - GIARA

Create successful ePaper yourself

Delete template?

Save as template?