0
write() will just be a line of text and writeln() will be a line of text that puts the next writeln() on another line
Wiki User
∙ 15y ago
Add your answer:
Earn +20 pts
What is the difference between write and writeln in pascal?
'ln' -- it means 'new line' after writing
How can you start the program 'read in the lengths of the sides of a triangle and determine whether the triangle is an isosceles triangle two sides are equal an equilateral triangle three sides are'?
This would depend on what programming language you wanted to write it in. For example, in Pascal, the code might look like this: Program Isosceles; Var A, B, C : Real; Begin WriteLn('Input side A.'); ReadLn(A); WriteLn('Input side B.'); ReadLn(B); WriteLn('Input side C.'); ReadLn(C); If A = B Then Begin If B = C Then Begin WriteLn('This triangle is equilateral.'); End Else Begin WriteLn('This triangle is isosceles.'); And so on.
What is the code for creating a menu on pascal?
Well if you want to create a menu, you may use CASE.This is the programprogram Menu;var menu:integer;beginwriteln('Menu');writeln('1. XXXXXXX');writeln('2. XXXXXXX'); {unlimited option you want}writeln; {just to make it pretty :)}write('Mode you want to choose');readln(menu);CASE menu OF1: {program if I choose 1 from the menu};2: {program if I choose 2 from the menu};end; {end of case}readln;end.
What is the difference between a readline statement and a writeline statement?
The readline statement method of programming will allow for the next statement in the sequence to be read. The writeline method of programming only allows for the current statement or sequence to be read after determining the end of the last line.
What is the correct JavaScript syntax to write Hello World?
document.write("hello world");
What is the difference between write and writeln in pascal?
'ln' -- it means 'new line' after writing
What is the difference between Javascript and Jquery?
JavaScript is a scripting language that is mainly used within a web browser. Jquery is a library of javascript code that can be used together with your javascript program. A set of functions that can preform common tasks is provided, which will reduce the amount of code that you have to write yourself.
How do you write a javascript?
go to notepad and write Javascript code and save it as .js and then import it into a page with a src tag
How can you start the program 'read in the lengths of the sides of a triangle and determine whether the triangle is an isosceles triangle two sides are equal an equilateral triangle three sides are'?
This would depend on what programming language you wanted to write it in. For example, in Pascal, the code might look like this: Program Isosceles; Var A, B, C : Real; Begin WriteLn('Input side A.'); ReadLn(A); WriteLn('Input side B.'); ReadLn(B); WriteLn('Input side C.'); ReadLn(C); If A = B Then Begin If B = C Then Begin WriteLn('This triangle is equilateral.'); End Else Begin WriteLn('This triangle is isosceles.'); And so on.
Write a pascal program that compute an area of a triangle?
{A program to compute the area of a triangle} {by Ogboin W. Meshach} Var; b,h:real; BEGIN Writeln('Triangle'); Write('Base: '); Readln(base); Write('Height: '); Readln(height); area:=0.5*base*height; Writeln('Area: ', area :0:2); End.
How do you write HTML codes and javascript events together in your HTML kit?
You need to write the HTML code in the tag format. If you want to write JavaScript put it in <script> tag.
How to use Javascript to write to the local filesystem?
For security reasons, regular JavaScript scripts in web pages are not allowed to write to the local file system.
What languages can you write a Google Apps script on?
JavaScript
How does write statement differ from writeln statement?
I think you mean written statement. What you are asking about write statement you are confusing with written statement, the same with write in statement. A written statement is simply putting your words, or your version of events in writing.
What is the difference between wright And write?
Type your answer here... WHAT IS DIFFERENCE BETWEEN WRIGHT AND RIGHT
Example code in pascal that will convert numbers into words?
function conv2(x:integer):string;forward; function conv3(x:integer):string;forward; {***********Fonction_1*************} function conv1(x:integer):string; var temp:string; begin if (x>19) and (x<100) then conv2(x) else if (x>100) then conv3(x) else begin case x of 1:temp:='un '; 2:temp:='deux '; 3:temp:='trois '; 4:temp:='quatre '; 5:temp:='cinq '; 6:temp:='six '; 7:temp:='sept '; 8:temp:='huit '; 9:temp:='neuf '; 10:temp:='dix '; 11:temp:='onze '; 12:temp:='douze '; 13:temp:='treize '; 14:temp:='quatorze '; 15:temp:='quinze '; 16:temp:='seize '; 17:temp:='dix sept '; 18:temp:='dix huit '; 19:temp:='dix neuf '; end; conv1:=temp; end; end; {*************Fonction_2******************} function conv2(x:integer):string; var temp:string; z,y:integer; begin if (x<20) then conv1(x) else if (x>100)then conv3(x) else begin z:=x div 10; {= pour garder la partie gauche de x [4]5} y:=x mod 10; {= pour garder la partie droite de x 4[5]} if y=0 then begin case z of 2:temp:='vingt '; 3:temp:='trente '; 4:temp:='quarante '; 5:temp:='cinquante '; 6:temp:='soixante '; 7:temp:='soixante diz '; 8:temp:='quatre vingt '; 9:temp:='quatre vingt dix '; end; end else if y=1 then begin case z of 2:temp:='vingt et un '; 3:temp:='trente et un '; 4:temp:='quarante et un '; 5:temp:='cinquante et un '; 6:temp:='soixante et un '; 7:temp:='soixante et onze '; 8:temp:='quatre vingt et un '; 9:temp:='quatre vingt et onze '; end; end else begin case z of 2:temp:='vingt '+conv1(y); 3:temp:='trente '+conv1(y); 4:temp:='quarante '+conv1(y); 5:temp:='cinquante '+conv1(y); 6:temp:='soixante '+conv1(y); 7:temp:='soixante '+conv1(10+y); 8:temp:='quatre vingt '+conv1(y); 9:temp:='quatre vingt '+conv1(10+y); end; end; conv2:=temp; end; end; {****************fonction_3*******************} function conv3(x:integer):string; var temp:string; z,y:integer; begin if (x>19) and (x<100) then conv3:=conv2(x) else if (x<20)then conv3:=conv1(x) else begin z:=x div 100; {= pour garder la partie gauche de x [1]45} y:=x mod 100; {= pour garder la partie droite de x 1[45]} case z of 1:temp:='cent '; 2..9:temp:=conv1(z)+'cents '; end; case y of 1..19: temp:=temp+conv1(y); 20..99:temp:=temp+conv2(y); end; conv3:=temp; end; end; {**********Fin des fonctions de la conversion***********} Begin {----# Initialisation #-------} debut: ClrScr; i:=1; bool:=true; {-----# Selection de type du produit #------} while bool=true do begin clrscr; New(tab[i]); writeln;writeln; Writeln(' le type du produit '); writeln(' 1.Aliment/Détergent'); writeln(' 2.Electromenager'); writeln(' 3.Meuble'); writeln(' 4.Autre'); write(' FAITES VOTRE CHOIX : '); readln(c); case c of '1':tab[i]^.TVA:=(5/100); '2':tab[i]^.TVA:=(15/100); '3':tab[i]^.TVA:=(20/100); '4':tab[i]^.TVA:=(10/100) else goto debut; {-------- si c () 1..4 retour au debut } end; {------# Lire les attributs de chaque produit #-------} writeln; writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³Numero de Produit ³ ³'); writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³Designation ³ ³'); writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³PrixUnitaire ³ ³'); writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³Quantite ³ ³'); writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'); writeln; with tab[i]^ do begin gotoxy(38,13); writeln(i); num:=i; gotoxy(38,16); readln(design); gotoxy(38,19); readln(prixU); gotoxy(38,22); readln(Qt); end; writeln; writeln(' ³Y a t-il d''autre produit?o/n ³ ³'); gotoxy(49,23); c:=readkey; if c='o' then begin bool:=true; i:=i+1; end else bool:=false; end; {-------# Calculer les prixHT et TTC de chaque produit #-------} for j:=1 to i do begin with tab[j]^ do begin prixHT:=prixU*Qt; prixTTC:=prixHT+prixHT*TVA; end; end; {----# Calculer le total HT et TTC de la facture #----} totalHT:=0; totalTTC:=0; for j:=1 to i do begin with tab[j]^ do begin totalHT:=totalHT+prixHT; totalTTC:=totalTTC+prixTTC; end; end; {-------------------# Affichage de la facture #---------------------} writeln;writeln; textcolor(2); writeln(' ÚÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÂÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³Num³Designation³Prix Unitaire³QUANTITE³TVA %³ PrixHT ³ PrixTTC ³'); writeln(' ÃÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÅÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄ´'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ³ÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛ³ÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛÛ³ÛÛÛÛÛÛÛÛÛÛ³'); writeln(' ÀÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ'); writeln(' ÚÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿'); writeln(' ³TOTAL HT ³ ³'); writeln(' ÃÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄ´'); writeln(' ³TOTAL TTC ³ ³'); writeln(' ÀÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ'); textbackground(blue); textcolor(14); for j:=1 to i do begin with tab[j]^ do begin gotoxy(12,j+3); writeln(num:2); gotoxy(16,j+3); writeln(design); gotoxy(29,j+3); writeln(PrixU:2:2); gotoxy(45,j+3); writeln(Qt:0:0); gotoxy(53,j+3); writeln(TVA*100:0:0); gotoxy(58,j+3); writeln(PrixHT:2:2); gotoxy(70,j+3); writeln(PrixTTC:2:2); end; end; gotoxy(69,21); writeln(totalHT:2:2,' DA'); gotoxy(69,23); writeln(totalTTC:2:2,' DA'); {-------#conversion#--------} milles:=''; cents:=''; a:=trunc(totalTTC); b:=frac(totalTTC); d:=trunc(b*100); x:=a div 1000; if x=0 then milles:='' else if x=1 then milles:='mille ' else milles:=conv3(x)+'milles '; y:=a mod 1000; if y=0 then cents:='' else cents:=conv3(y); resultat:=milles+cents; gotoxy(1,24); writeln('Arrèt la facture à la somme :'); write(resultat,'DA '); if d=0 then writeln('') else if d=1 then writeln('et un centime') else writeln('et ',conv3(d),'centimes'); readln; end.
What is the code for creating a menu on pascal?
Well if you want to create a menu, you may use CASE.This is the programprogram Menu;var menu:integer;beginwriteln('Menu');writeln('1. XXXXXXX');writeln('2. XXXXXXX'); {unlimited option you want}writeln; {just to make it pretty :)}write('Mode you want to choose');readln(menu);CASE menu OF1: {program if I choose 1 from the menu};2: {program if I choose 2 from the menu};end; {end of case}readln;end.
