Скласти програму, яка передбачала б введення послідовності символів та : Визначте, 10 найчастіше зустрічаємих послідовностей з N слів у тексті. N вказується користувачем.
Что касается конкретной программы 1. Описываем нужные нам переменные - это будут стороны прямоугольника a и b. Поскольку нигде ничего о размерах сторон не сказано, придется предположить, что они не обязательно будут целыми , мы опишем эти переменные, как вещественные (real), что позволит работать и с нецелыми значениями. 2. Из геометрии нам известны формулы периметра прямоугольника P=2 x (a+b) и площади прямоугольника S=a x b. Можно описать переменные P, S (тоже real), но смысла в этом нет, поскольку значения P и S нужны только для вывода результатов, так что проще написать нужные выражения непосредственно в операторе вывода. 3. Итак, с описанием переменных закончили, можно начинать основную программу ключевым словом begin. И сразу же пишем к нему завершающий end с точкой на конце - таковы правила языка Паскаль. Вся программа размещается между двумя этими ключевыми словами. 4. Сначала организуем ввод. Это два оператора. Первый оператор выводит так называемое "приглашение" - сообщает о том, что нужно ввести. Второй оператор - это сам ввод. 5. А теперь, как было сказано выше, организуем вывод результатов. Все это сделает один оператор вывода. Программа готова!
var a, b: real;
begin Write('Введите стороны прямоугольника: '); Readln(a, b); Writeln('Периметр равен ', 2 * (a + b), ', площадь равна ', a * b) end.
Тестовое решение: Введите стороны прямоугольника: 4 3.16 Периметр равен 14.32, площадь равна 12.64
begin Assign(f1, 'input.txt'); Reset(f1); Assign(f2, 'output.txt'); Rewrite(f2); Readln(f1, n); if n < 0 then Writeln(f2, abs(n)) else if n = 0 then Writeln(f2, 0) else Writeln(f2, sqr(n)); Close(f1); Close(f2) end.
А это, если учесть, что модуль нуля равен нулю:
var f1, f2: Text; n: integer;
begin Assign(f1, 'input.txt'); Reset(f1); Assign(f2, 'output.txt'); Rewrite(f2); Readln(f1, n); if n <= 0 then Writeln(f2, abs(n)) else Writeln(f2, sqr(n)); Close(f1); Close(f2) end.
1. Описываем нужные нам переменные - это будут стороны прямоугольника a и b. Поскольку нигде ничего о размерах сторон не сказано, придется предположить, что они не обязательно будут целыми , мы опишем эти переменные, как вещественные (real), что позволит работать и с нецелыми значениями.
2. Из геометрии нам известны формулы периметра прямоугольника P=2 x (a+b) и площади прямоугольника S=a x b. Можно описать переменные P, S (тоже real), но смысла в этом нет, поскольку значения P и S нужны только для вывода результатов, так что проще написать нужные выражения непосредственно в операторе вывода.
3. Итак, с описанием переменных закончили, можно начинать основную программу ключевым словом begin. И сразу же пишем к нему завершающий end с точкой на конце - таковы правила языка Паскаль. Вся программа размещается между двумя этими ключевыми словами.
4. Сначала организуем ввод. Это два оператора. Первый оператор выводит так называемое "приглашение" - сообщает о том, что нужно ввести. Второй оператор - это сам ввод.
5. А теперь, как было сказано выше, организуем вывод результатов. Все это сделает один оператор вывода. Программа готова!
var
a, b: real;
begin
Write('Введите стороны прямоугольника: '); Readln(a, b);
Writeln('Периметр равен ', 2 * (a + b), ', площадь равна ', a * b)
end.
Тестовое решение:
Введите стороны прямоугольника: 4 3.16
Периметр равен 14.32, площадь равна 12.64
var
f1, f2: Text;
n: integer;
begin
Assign(f1, 'input.txt'); Reset(f1);
Assign(f2, 'output.txt'); Rewrite(f2);
Readln(f1, n);
if n < 0 then Writeln(f2, abs(n))
else
if n = 0 then Writeln(f2, 0)
else Writeln(f2, sqr(n));
Close(f1); Close(f2)
end.
А это, если учесть, что модуль нуля равен нулю:
var
f1, f2: Text;
n: integer;
begin
Assign(f1, 'input.txt'); Reset(f1);
Assign(f2, 'output.txt'); Rewrite(f2);
Readln(f1, n);
if n <= 0 then Writeln(f2, abs(n))
else Writeln(f2, sqr(n));
Close(f1); Close(f2)
end.