5. Изменить программу так, чтобы она решала следующую задачу. Дано количество яблок в коробке. В классе учится 26 учеников.
Определить сколько яблок достанется каждому ученику и сколько
яблок останется в коробке
Внести в эту задачу изменение:
1. Строке №1 вместо учителя написать свой класс и фамилию имя
2. Строке № 3 написать новый поясняющий текст ( )
3. Строке № 4 и 5 вместо 100 написать 26 текст ( )
4. Строке № 6 написать новый поясняющий текст ( )
При попытке воспроизведения файла мультимедиа с проигрывателя Microsoft Windows Media появляется следующее сообщение об ошибке:
Не удается воспроизвести файл. Формат не поддерживается (ошибка=80040265)
Причина
Такое поведение возможно в следующих случаях.
Один или несколько файлов проигрывателя Windows Media отсутствуют или повреждены.
Вы пытаетесь воспроизвести файл мультимедиа, формат которого не поддерживается проигрывателем Windows Media. Например, вы пытаетесь воспроизвести VIV-файл. Проигрыватель Windows Media не поддерживает такие файлы.
Файл мультимедиа поврежден.
Не установлен кодек, необходимый для обработки файла мультимедиа.
Проигрыватель Windows Media не поддерживает кодек, необходимый для обработки файла мультимедиа.
Решение
Чтобы решить проблему, выполните описанные ниже действия. После выполнения каждого действия проверьте, устранена ли проблема.
Примечание. Проигрыватель Windows Media поддерживает наиболее распространенные форматы файлов мультимедиа. Однако он не поддерживает все доступные форматы. В шаге 1 проверьте, что проигрыватель Windows Media поддерживает формат файла, который вы пытаетесь воспроизвести. Если проигрыватель Windows Media не поддерживает его, не выполняйте дальнейшие действия. Вместо этого свяжитесь с распространителем файла и узнайте о наличии подходящего проигрывателя.
Примечание. Приведенные ниже действия могут отличаться в зависимости от версии установленной на компьютере операционной системы Microsoft Windows. В этом случае для выполнения этих действий см. документацию к продукту.
Логические операции применимы не только к логическому типу данных, но и к целочисленному типу данных. Для целых чисел операции выполняются поразрядно, отдельно с каждым битом.
Тип данных String в Pascal.
Со строковыми переменными можно производить различные операции. Операция сцепления строк позволяет соеденить 2 строки между собой.
Логические операции And, Or, Not, Xor в Pascal.
Над переменными логического типа можно производить логические операции. В языке программирования Pascal существуют следующие логические операции : And – логическое умножение, Or – логическое сложение, Not – логическое отрицание, Xor – ...
Циклы и массивы
Стандартные функции в Паскаль.
Наиболее часто встречающиеся операции над скалярными типами данных реализованы в языке Паскаль с встроенных (иногда говорят — стандартных) функций и процедур.
Программирование вычислительных процессов.
Решение задачи на ЭВМ — это сложный процесс, в ходе которого пользователю приходится выполнять целый ряд действий, прежде чем он получит интересующий его результат.
Табулирование функций.
Язык программирования Паскаль Категория: Лекции по Pascal.
Задача табулирования функции предполагает получение таблицы значений функции при изменении аргумента с фиксированным шагом. В качестве исходной информации должны быть заданы: Х0, Хn – начало и конец промежутка табулирования, при этом (Х0< Хn); n – число шагов разбиения промежутка [Х0, Xn]; F(X) – описание табулируемой функции.
При составлении алгоритма предполагается, что X – текущее значение аргумента; h – шаг изменения аргумента (иногда его называют шагом табуляции функции); i – текущий номер точки, в которой вычисляются функция (i = 0 .. n).
Количество интервалов n, шаг табуляции h и величины Х0, Хn связаны между собой фор-мулой:
tabulirovanie funkcii
Интерпретация переменных (т. е. их обозначение в математической постановке задачи, смысл и тип, обозначения в блок-схеме и программе) приведена в таблице имен.
tabulirovanie funkcii.
Пример 17. Табулировать функцию F(X) в N равноотстоящих точках, заданную на промежутке [Х0, Xn], где
tabulirovanie funkcii..PROGRAM PR17;
VAR
I, N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN('ВВЕДИТЕ X0, XN, N');
READLN(X0, XN, N);
H := (XN - X0)/N;
FOR I:=0 TO N
DO BEGIN
Y:= SIN(X+1)*EXP(2-X*X);
X := X0 + I * H;
WRITELN (X:4:1,",Y:9:6)
END
END.
tabulirovanie funkcii...
Теперь запишем решение этой же задачи, но с использованием цикла While...DO.
PROGRAM PR17_while;
VAR
N: INTEGER;
X, Y: REAL;
H, X0, XN: REAL;
BEGIN
WRITELN('ВВЕДИТЕ X0, XN, N');
READLN(X0, XN, N);
H := (XN - X0)/N;
X:=X0;
WHILE X<=XN
DO BEGIN
Y:= SIN(X+1)*EXP(2-X*X);
X := X + H;
WRITELN (X:4:1,",Y:9:6)
END
END.