Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 23 стр.

UptoLike

ВУЗ: 

КамчатГТУ | Петропавловск-Камчатский

Составители: 

Рубрика: 

с клавиатуры символ X и присваивает его переменной А1, затем считывает
второй символ – Y и заносит его в переменную А2. Третий символ – Z соот-
ветственно считывается в переменную А3 .
Вывод значений осуществляется вами с помощью процедуры WriteLn в
одну строку.
Задача 3
Необходимо ввести и вывести на печать два целых числа и два вещест-
венных числа:
1) 5;
2) 317;
3) 45,399;
4) 700 000.
Program Lab2_3;
Var
с1, с2 : Integer;
с3, с4 : Real;
Begin
WriteLn (‘Введи число 1-е’);
ReadLn (с1);
WriteLn (‘Введи число 2-е’);
ReadLn (с2);
WriteLn (‘Введи число 3-е’);
ReadLn (с3);
WriteLn (‘Введи число 4-е’);
ReadLn (с4);
WriteLn (‘РЕЗУЛЬТАТ: ’);
WriteLn (‘Мы ввели 1-е число: ’, c1);
WriteLn (‘Мы ввели 2-е число: ’, c2);
WriteLn (‘Мы ввели 3-е число: ’, c3);
WriteLn (‘Мы ввели 4-е число: ’, c4);
End.
После запуска программы на исполнение мы видим на экране монитора:
Введи число 1-е
5
Введи число 2-е
317
Введи число 3-е
45.6
Введи число 4-е
500000
Результат:
Мы ввели 1-е число: 5
Мы ввели 2-е число: 317
23
с клавиатуры символ X и присваивает его переменной А1, затем считывает
второй символ – Y и заносит его в переменную А2. Третий символ – Z соот-
ветственно считывается в переменную А3 .
     Вывод значений осуществляется вами с помощью процедуры WriteLn в
одну строку.

    Задача 3
    Необходимо ввести и вывести на печать два целых числа и два вещест-
венных числа:
    1) 5;
    2) 317;
    3) 45,399;
    4) 700 000.

    Program Lab2_3;
    Var
        с1, с2 : Integer;
        с3, с4 : Real;
    Begin
    WriteLn (‘Введи число 1-е’);
    ReadLn (с1);
    WriteLn (‘Введи число 2-е’);
    ReadLn (с2);
    WriteLn (‘Введи число 3-е’);
    ReadLn (с3);
    WriteLn (‘Введи число 4-е’);
    ReadLn (с4);
    WriteLn (‘РЕЗУЛЬТАТ: ’);
    WriteLn (‘Мы ввели 1-е число: ’, c1);
    WriteLn (‘Мы ввели 2-е число: ’, c2);
    WriteLn (‘Мы ввели 3-е число: ’, c3);
    WriteLn (‘Мы ввели 4-е число: ’, c4);
    End.
    После запуска программы на исполнение мы видим на экране монитора:
    Введи число 1-е
    5
    Введи число 2-е
    317
    Введи число 3-е
    45.6
    Введи число 4-е
    500000
    Результат:
    Мы ввели 1-е число: 5
    Мы ввели 2-е число: 317
                                  23

Страницы