Question

Общие требования к программам: a) все программы должны содержать защиту от некорректного ввода; b) защиту от деления на 0; c) защиту от ошибок работы с файлами (используйте конструкцию try except); d) Все исходные данные вводятся с клавиатуры; e) Результаты вычислений отображаются на экране; Для задачи 1 дополнительные требования: f) Ваша фамилия, номер группы, дата сдачи экзамена, исходные данные и результаты работы программы должны заносится в текстовый файл; 1. Пользователь вводит N чисел. Найдите сумму и произведение данных чисел. 2. Определение кода символа. Задайте символ. Определите его код (GUI); 3. Заполните при помощи генератора одномерный список числами в диапазоне от 0 до 100, которые нацело делятся на 5. Выведите результаты на экран с указанием имени и индекса каждого элемента.

Answer 1

Задание 1:

• begin
• var n := 0;
• while (not TryRead(n,'Введите количество чисел:')) or (n<0) do
• Writeln('неверный ввод');
• Writeln;
• if n=0 then Write('Чисел нет')
• else
• begin
• var a := ReadArrInteger('Введите числа:',n);
• Println('Сумма:',a.Sum);
• Println('Произведение:',a.Product);
• end
• end.

Задание 2:

• uses GraphABC, ABCObjects;
• begin
• Window.SetSize(300,200);
• var r1 := new RectangleABC(0,0,Window.Width,Window.Height div 2);
• var r2 := new RectangleABC(0,Window.Height div 2,Window.Width,Window.Height div 2);
• OnKeyPress += (c:char) -> begin r1.Text:=c; r2.Number:=Ord(c) end;
• end.

Задание 3:

• begin
• Writeln(' I: X:');
• SeqGen(10,x->Random(0,20)*5).Numerate.PrintLines(x->Format('{0,2}  {1}',x[0],x[1]))
• end.

Примеры работ: