Информатика Лекция 3

План лекции Процедуры ввода - вывода Примеры ввода - вывода данных Структурированные операторы ( выбора )

Процедуры ввода - вывода Операторы ввода : 1) Read ( ) – последовательный ввод переменных из списка ; 2) Readln ( ) – то же, что и оператор Read, только после ввода данных происходит переход на новую строку, т. е. ввод осуществляется каждый раз с новой строки ; 3) Readln – происходит переход на новую строку без ввода данных.

Процедуры ввода - вывода Значения вводимых переменных должны соответствовать типам переменных из списка ввода. В Турбо – Паскале допускается вводить значения следующих данных : целых (integer), вещественных (real), символьных (char), строковых (string).

Процедуры ввода - вывода Пример. Требуется ввести значения следующих переменных : А =2.5; S=7.42; P= –0.34E–01; M=10; N=15; C1='B'; C2='K'; C3='E' var A,S,P:real; M,N:integer; C1,C2,C3:char; Readln(A,S,P); Read(M,N,C1,C2,C3); Значения переменных вводятся следующим образом : –0.34 Е – ВКЕ ( без апострофов ) или –0.34 Е – ВК E

Процедуры ввода - вывода Операторы вывода. Оператор вывода данных имеет три формы записи : 1) Write ( ) – выводит последовательно значения переменных из списка ; 2) Writeln ( ) – то же, что и оператор Write, но после вывода переменных осуществляется переход на новую строку ( следующий оператор вывода будет выводить данные с начала новой строки ); 3) Writeln – осуществляет переход на новую строку без вывода данных. В Турбо – Паскале допустим вывод значений данных следующих типов : целых, вещественных, символьных, логических и строковых.

Пример. Пусть в результате выполнения программы переменные получили следующие значения : K= –7; P=8.74; S='+'; C=True. Выведем их на печать : var K: integer; P: real; S: char; C: boolean; Begin Writeln (' Пример '); Writeln ('K=',K,' P=',P); Writeln ('S=',S); Write ('C=',C); End. Информация будет выведена в следующем виде : Пример К =–7 Р = Е S=+ C=True

Пример 3. Используем форматный вывод для следующих переменных : K= –7; P=8.74; X=3.524; X1= 0.264*10 –5 ; S='+'; C=True. Writeln ('K=',K:3,' P=',P:5:2); Writeln ('X=',X:10, X1=,X1:10); Writeln ('S=',S:2,',, C=',C:6); В результате вывода получим : K= –7 P= 8.74 X= E+00 X1=0.2640E-05; S= +, C= True

Оператор выбора CASE Оператор CASE предназначен для программирования алгоритмов с большим числом разветвлений. Общий вид оператора CASE: case of : оператор 1; : оператор 2;..... : оператор n; else end; Замечание. Метки оператора CASE не описываются в разделе label, и на них нельзя переходить оператором GOTO. Метки внутри одного оператора выбора должны быть различными.

Пример. Вычислить значение теплоемкости химических веществ и соединений по выражениям : Cp = a + b·T;( Ι ) Cp = a + b·T + c·T 2 ;( Ι I) Cp = a + b·T + c/T 2 ;( ΙΙ I) Cp = a + b·T + c·T 2 + d/T 2 ;( Ι V) Программа Program Tepl; Var T,Cp,a,b,c,d:real; n,i:integer; Begin writeln(' введи Т,a,b,c,d='); readln(T,a,b,c,d); writeln(' введи номер формулы n='); readln(n); Case n of 1:Cp:=a + b ٭ T; 2:Cp:=a + b ٭ T+c ٭ T 2 ; 3:Cp:=a + b ٭ T+c/T 2 ; 4:Cp:=a + b ٭ T+ c ٭ T 2 +d/T 2 ; end; writeln(' Для n=n:2, Cp=',Cp:7:2); End.