A practical introduction to Pascal programming language - GIARA

More documents

Recommendations

Info

Data structureswrite(’Please input the string of, at most, ’,N,’ chars: ’);readln(str);(* Writing the matrix *)for i:=ceil(length(str)/2) downto 1 dobegin(* Write the leftmost blank spaces + first char *)for j:=1 to min(i-1,length(str)-i) dowrite(’ ’);write(str[i]);(* Write the middle *)for j:=1 to abs( (i-1)-(length(str)-i))-1 dowrite(’ ’);(* Depending on the length, and whether its even or odds, last row *)(* might have one single char *)if (abs( (i-1)-(length(str)-i))-1)>=0 thenwriteln(str[length(str)-i+1])elsewritelnendend.⊡Exercise 4.25. Create a program that reads a string and draws it twice with cross diagonals. Forexample, the word computer must look like:croemtpu□This exercise is tackled here as a combination of the previous two. Note that, in orderto produce a more compact solution, we write everything inside the same for. Hence, somesmall changes have to be performed in the definition of the limits of each of the for iterativeconstructions.Program 106: Exercise 4.25program c04e25;uses math;constN=15;varstr:STRING[N];i,j:integer;begin(* Reading the text *)write(’Please input the string of, at most, ’,N,’ chars: ’);readln(str);(* Writing the matrix *)for i:=1 to length(str) dobeginfor j:=1 to min(i-1,length(str)-i) dowrite(’ ’);pumtoecr89
A Practical Introduction to Pascal Programming Languagewrite(str[i]);for j:=1 to abs((i-1)-(length(str)-i))-1 dowrite(’ ’);if (abs((i-1)-(length(str)-i))-1>=1) thenwriteln(str[i])elsewritelnendend.⊡90
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:
Page 15 and 16:
Page 17 and 18:
Page 19 and 20:
Page 21 and 22:
Page 23 and 24:
Page 25 and 26:
Page 27 and 28:
Page 29 and 30:
Page 31 and 32:
Page 33 and 34:
Page 35 and 36:
Page 37 and 38:
Page 39 and 40: A Practical Introduction to Pascal
Page 89: A Practical Introduction to Pascal
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?