Задачи на составление логических выражений. Написать программы, проверяющие следующие условия

Задание 1.

Порядок подключения текстового файла для ввода информации из текстового файла:

● создать с помощью текстового редактора и сохранить текстовый файл с данными,

● затем в программе обратиться к нему (порядок подключения файла к программе описан в учебнике, §2.2.4).

Необходимо обратить внимание на корректность представления в файле числовых данных: целая часть отделяется от дробной части символом ‘.’, межу числами обязательно должен стоять 1 или несколько пробелов.

Практическая часть урока. В качестве примера можно рассмотреть программу решения следующей задачи:

В двух строках текстового файла находится по два действительного числа. Найти сумму этих чисел. Результат вывести на экран.

Текст программы:

Program one;

Var a,b,c,d,S: real;

F: text;

Begin

Assign (F, 'c:\temp\abc.txt');

Reset (F);

Readln (F, a, b);

Readln (F, c, d);

S:=a+b+c+d;

writeln('сумма=',S);

Close (F);

End.

При содержимом файла:

-1.5 3.5

6.5 4

Результат программы:

сумма=12.5

Для контроля прочитанных из файла значений желательно добавлять в программу следующую команду: writeln(‘из файла прочитаны значения: a=’, a,’ b=’,b, ‘ c=’,c, ‘ d=’, d).

Выполнить программу, скриншоты поместить в этот документ

2. Практическая часть урока (20 минут) – закрепление навыков чтения данных из файла. Задание: Написать программы для решения следующих задач таким образом, чтобы ввод данных осуществлялся не с клавиатуры, а из файла. Обязательно выводить прочитанные из файла данные на экран.

Задача 1. Заданы координаты трех вершин треугольника (х 1, y 1), (х 2, y 2), (х 3, y 3). Найти его периметр и площадь. Найти длины сторон и по формуле Герона вычислить площадь

Фо́рмула Герона позволяет вычислить площадь треугольника (S) по его сторонам a, b, c:

где p — полупериметр треугольника:

Задача 2. Найти произведение всех цифр заданного четырехзначного числа

Урок 2. Тема занятия: Вывод данных в текстовый файл. (1 час).

Цель занятия: Знакомство с операцией вывода данных в файл; закрепление навыков чтения из файла, использования стандартных функций языка Паскаль.

ход занятия:

2. Объяснение нового материала (20 минут). Команды, порядок их выполнения, проверить работу программы записи в текстовый файл таблицы умножения.

Кроме того, целесообразно пояснить особенности работы команды Rewrite(f) – каждый вызов операции стирает содержимое файла, запись будет осуществляться «с нуля». Если необходимо добавить данные в конец непустого текстового файла, то надо вызвать команду Append (f)-открыть текстовый файл для «дозаписи».

Также можно более подробно остановиться на особенностях форматов вывода для целочисленных и вещественных величин.

В программах, рассмотренных в первой части занятия, изменить экранный вывод результатов на вывод в файл.

Например, программа к №18 из практикума преобразуется к следующей:

Дано натуральное число T, которое представляет длитель­ность прошедшего времени в секундах. Вывести данное значение длительности в часах, минутах и секундах в следующей форме: НН ч ММ мин SS с.

Program n18;

var t,h,m,s:integer;

Fi, Fo:Text;

Begin

Assign(Fi,’18.txt’);

Assign(Fo,’Result_18.txt’);

Reset(Fi);

Readln (Fi,t);

Close (Fi);

Rewrite (Fo);

writeln (Fo,‘введено время в секундах’,t);

h:= t div 3600;

m:= t mod 3600 div 60;

s:=t mod 60;

writeln (Fo,'часы h=',h);

writeln (Fo,'минуты m=',m);

writeln (Fo,'секунды s=',s);

Close (Fo)

End.

Домашнее задание. §2.2.4, задание №7 после параграфа. Составить программы к заданиям 25-28 практикума (данные вводить из файла, результаты выводить в файл).

Задачи на составление логических выражений. Написать программы, проверяющие следующие условия

25. Сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре.

26. Сумма цифр заданного четырёхзначного числа N превосходит произведение цифр этого же числа на 1.

27. Сумма двух последних цифр заданного трёхзначного числа N меньше заданного K, а первая цифра больше 5.

28. Среди первых трёх цифр из дробной части вещественного числа есть нуль.

Поиск по сайту: