A practical introduction to Pascal programming language - GIARA

More documents

Recommendations

Info

Alternative constructionselsewriteln(’The expected result is: ’,abs(a-b):4:2)end.However, the previous code has some failing situations: those in which one value is 0 (whichwe consider positive). In such situations, we cannot distinguish whether both numbers arepositive or not using the multiplication, since the product of 0 with any other number willcollapse to 0. Hence, we must change the comparison operator ≥ by > and add a clause to thefirst if.⊡Program 15: Exercise 2.1 (Version C)program c02e01;vara,b:real;beginwrite(’Input the first number: ’);readln(a);write(’Input the second number: ’);readln(b);(* Testing whether both numbers have the same sign*)if ((a*b)>0) or ((a>=0) and (b>=0)) thenwriteln(’The expected result is: ’,a*b:4:2)elsewriteln(’The expected result is: ’,abs(a-b):4:2)end.Exercise 2.2. Write a program that reads three integers from the keyboard. Then, it displays theone whose value is in the middle of the other two (i.e. the second greatest value).□Our first strategy consists of first discarding one of the values by checking if it is smaller thanthe other two. Then, we select the smallest of the remaining two variables.Program 16: Exercise 2.2 (Version A)program c02e02;vara,b,c:integer;beginwrite(’Input the first number: ’);readln(a);write(’Input the second number: ’);readln(b);write(’Input the third number: ’);readln(c);(* Now we compare the values one-by-one*)if (a
A Practical Introduction to Pascal Programming Languageelseif (b
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 23: A Practical Introduction to Pascal
Page 75 and 76:
A Practical Introduction to Pascal
Page 77 and 78:
Page 79 and 80:
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

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?