Презентация, доклад по информатике на тему Ввод-вывод данных(Pascal) (7 класс)

считывании данных переход на другую строку не делает.

Readln(список переменных))- при считывании данных происходит переход на другую строку

стандартном режиме выполняют два действия:

При использовании этих процедур необходимо помнить:
1) Они требуют обязательного ввода некоторой информа-
ции! Если Вы таковую не введете, а просто нажмете
Enter, то работа процедуры не закончится, она будет
снова и снова входить в режим ожидания!
2) При введении нескольких данных разделять их или
пробелами, или Enter, но не запятыми!

строку (друг за другом без пробелов и курсор остается в этой же строке).

Writeln - после вывода элементов в строку переводит курсор в начало следующей строки.

кол-во после запятой )

Например,
Write(а: 0: 3), число а=23,123456 выведет как
23.123, т.е. три знака после запятой

ный в апострафы. Аналогично Writeln.

2) если WRITE(числовое выражение),то выводится результат

3) если WRITE(имя), то выводится значение этой переменной

4) если WRITE(имя1,имя2), то выводятся подрят эти значения

5) если WRITE(алгебраическое выражение), то - его результат

6) если WRITE(текст,имя, текст,выражение), то на экран вы-
водится текст, значение переменной с именем имя1, опять
текст и затем результат выражения

Точно такие же действия для WRITELN!

d:=sqrt(sqr(b)-4*c);
writeln(‘x1=‘,(-b+d)/2,’ x2=‘, (-b-d)/2);
end.
если заданы числа 1.0 и -2.9?

read(x);
t:=x read(x);
t:=t and (x writeln(t);
end.
?

того, имеют три заданных целых числа одинаковую четность или нет.

4. Нарисовать расположение чисел, напечатанных следующей последовательностью процедур:
write(1); write(2,3); writeln(4); write(5,6);
writeln; writeln(7,8)

a:integer;
begin read(a,b);
writeln(a*b);
end.
задать в качестве исходных данных числа 5.0 и 6.2?

6. Что будет напечатано программой

Program Task6;
var a,b: integer;
begin read(a,b,a);
writeln(a,b,a);
end.
если для ввода заданы числа 1,2 и 3?

таблицу :

А
А3 А6
А6 А3 А

8. Найти ошибки в следующих программах:

Program TaskA;
сonst d=5;
begin d:=sqr(d);
writeln(d);
end.

Program taskB;
const k=true; var x: real;
begin read(x);writeln(ord(x)=k);
end.

Program TaskC;
var a,b,c:integer;
begin read(a,b);
writeln((a+b+c)/3);
end.

Program TaskD;
var x:real;
begin read(x);
y:=sqrt(x)+1; writeln(y);
end.

в обратном порядке цифр данного трехзначного числа.
Вычислить длину окружности и площадь круга ,если радиус равен стороне квадрата, площадь которого S.

Определить равна ли сумма двух первых цифр данного четырех-значного числа сумме двух его последних цифр.
Определить, есть ли среди цифр заданного трехзначного числа одинаковые.
Даны три произвольных числа. Можно ли построить треугольник с такими длинами сторон?

способов работы с файлами.
Алгоритм работы ввода данных:
Установим взаимосвязь с существующим файлом с именем, например, Input.txt. Для этого мы воспользуемся стандартной переменной INPUT и процедурой ASSIGN, записав в теле программы после слова BEGIN такую команду:
Assign(input, 'input.txt');
где input – стандартная переменная Pascal, ‘input.txt’- имя файла, из которого будут считываться данные.

этого после предыдущей процедуры запишем:
Reset(input);
Теперь можно считывать данные, с помощью процедуры Read(a), если данные записаны в строчку или Readln(a), если данные записаны в файле в столбик.

Output.txt. Для этого мы воспользуемся стандартной переменной OUTPUT и процедурой ASSIGN, записав в теле программы такую команду:
Assign(output, 'output.txt');
где output – стандартная переменная Pascal, ‘output.txt’- имя файла, который будет создан и в него будут записаны данные.
Откроем этот файл для записи процедурой REWRITE, для этого после предыдущей процедуры запишем:
Rewrite(output);
Теперь можно записывать данные, с помощью процедуры Write(a), если данные будем писать в строчку или Writeln(a), если данные вводим в столбик.