Блог 3. Задание 3.2.

7. Оператор присваивания
    Паскаль: <переменная>:=<выражение>
                     a:=c+16
     Бэйсик: <переменная>=<выражение>
                   d1=DateTime.Now

8. Операторы ветвления:
     Паскаль: if<логическое выражение>then<оператор1>else<оператор2>
                    if b<<a then a:=max else b:=max
     Бейсик: if условие then                    if b<<a
                   Серия1                               a=max
                   else                                     esle 
                   Серия2                               b=max
                   End if (Visial Basic)             End if


9. Операторы ввода-вывода (пример):
    Паскаль:

операторов ввода:

         var rV, rS: Real;
             iW, iJ: Integer;
             chC, chD: Char;
         ................
         Read(rV, rS, iW, iJ);
         Read(chC, chD);

операторов вывода:
        . . . . . . . . . . . .
        var rA, rB: Real;       iP,iQ:Integer;
            bR, bS: Boolean;    chT, chV, chU, chW: Char;
        . . . . . . . . . . . .
        WriteLn(rA, rB:10:2);
        WriteLn(iP, iQ:8);
        WriteLn(bR, bS:8);
        WriteLn(chT, chV, chU, chW);

    Бэйсик: A$= "КОТ" : GA= 6.5

B$= "СОБАКА" : GB= 15.3 PRINT USING "& ВЕСИТ #.#,\ \ ВЕСИТ ##.# КГ";A$,GA,B$,GB

10. Пример записи цикла на ЯП Паскаль:

                                итерационный цикл с постусловием 

repeat

      

WriteLn('Введите положительное число');
   ReadLn(x);
until x>0;

арифметический цикл:

for x:=2 to 10 do WriteLn(x*x);

итерационные циклы с предусловием

eps:=0.001;
while x > eps do x:=x/2;

11. Цикл с параметром на ЯП Бэйсик:

Задача
Гаусса. Вывести на экран календарь Пасхи. 
‘Календарь Пасхи 

INPUT ”Введите годы N1, N2”; N1, N2 

DEF FN(X, Y) = X – Y*INT(X / Y) 

FOR N=N1 TO N2 

A=FNF(N, 4) 

B=FNF(N, 7) 

C=FNF(N, 19) 

D=FNF(19*C+15, 30) 

E=FNF(2*A+4*B+6*D+6, 7) 

P=4 + D + E 

IF P<=30 THEN 

PRINT N;P – 30; “Мая” 

ELSE 

PRINT N; P; “Апреля” 

END IF 

NEXT N 

END