MOJAB 24

برنامه نویسی در پاسکال که امکانات زیر را فراهم می کند: - ورود مقادیر متغیرها از صفحه کلید - ثابت - 1000، ثابت تایپ شده - 18.96، بازه مقادیر متغیر - 'p'... 'z'، مقادیر ممکن متغیر - Kol، Kol1، Kol2؛ I = -3456؛ J = 254؛ K = -123؛ X = 1234.56؛ Y = -11.22؛ b1 = TRUE؛ Ch = False؛ S = Session؛ - نمایش مقادیر این متغیرها در صفحه نمایش و فایل متنی با اشاره به نام متغیرها. تعیین نوع داده هایی که نمی توان از صفحه کلید وارد کرد. تعیین نوع داده هایی که نمی توان در صفحه نمایش نمایش داد.

program Variables;

var Kol, Kol1, Kol2: string; I: integer; J: integer; K: integer; X: real; Y: real; b1: boolean; Ch: boolean; S: string;

const Const1 = 1000; Const2 = 18.96;

begin // Input values from keyboard write('Enter Kol: '); readln(Kol);

write('Enter Kol1: '); readln(Kol1);

write('Enter Kol2: '); readln(Kol2);

write('Enter I: '); readln(I);

write('Enter J: '); readln(J);

write('Enter K: '); readln(K);

write('Enter X: '); readln(X);

write('Enter Y: '); readln(Y);

write('Enter b1 (TRUE/FALSE): '); readln(b1);

write('Enter Ch (TRUE/FALSE): '); readln(Ch);

write('Enter S: '); readln(S);

// Display values on screen writeln('Kol: ', Kol); writeln('Kol1: ', Kol1); writeln('Kol2: ', Kol2); writeln('I: ', I); writeln('J: ', J); writeln('K: ', K); writeln('X: ', X:0:2); writeln('Y: ', Y:0:2); writeln('b1: ', b1); writeln('Ch: ', Ch); writeln('S: ', S);

// Write values to text file assign(output, 'variables.txt'); rewrite(output); writeln(output, 'Kol: ', Kol); writeln(output, 'Kol1: ', Kol1); writeln(output, 'Kol2: ', Kol2); writeln(output, 'I: ', I); writeln(output, 'J: ', J); writeln(output, 'K: ', K); writeln(output, 'X: ', X:0:2); writeln(output, 'Y: ', Y:0:2); writeln(output, 'b1: ', b1); writeln(output, 'Ch: ', Ch); writeln(output, 'S: ', S); close(output);

// Data types that cannot be entered from keyboard // - Constant values // - Strings

// Data types that cannot be displayed on screen // - Strings end.