Получить коды ASCII с следующего фрагмента программы (exsel, visual Basic): Dim Sym As String
For i = 1 To 8
Sim = InputBox ("vvedi simvol", 1)
MsgBox "ascii= " & Asc(Sym)
Next i

Ученик, решает задачу по геометрии. Тогда в этом случаи исходные данные — это условие задачи. Обрабатывание идет строго по геометрическим правилам, которые определяют последовательность, а также по формулы, которые мы используем для подстановки исходных данных. Результат — это полученный ответ. Вид обработки: получение новой информации, новых сведений. 2. Ученик, видит на доске химические знаки, его задача назвать каждый элемент (например N-азот). Исходные данные — это 10 штук химических знаков, которые записаны на доске. Обозначение из таблицы Менделеева правильно сказать название элемента(в слух, всему классу). Результат - правильное название каждого элемента. Вид обработки: изменение формы представления информации. 3. Ученик на уроке истории должен сопоставить в таблице даты и события. Исходные данные — это даты и события, которые представлены в строчку. Дано два столбика "Даты" и "События", в начале запишем каждую дату по порядку с 1917 по 1936, а затем по памяти или с учебника вписываем событие, которое относится к этой дате. Результат - правильное расположение в таблице даты и события. Вид обработки: систематизация, структурирование данных. 4. Ученик на уроке литературы должен найти в учебнике ответ на вопрос "Сколько романов написал И.А. Гончаров?". Исходные данные — это данные из вопроса. Название автора, которое представлено в вопросе подсказывают нам, где нужно искать эту информацию(страницы). Результатом будет являться правильным ответом на вопрос(три романа: "Обыкновенная история", "Обломов", "Обрыв"). Вид обработки: поиск информации.

var a: array[1..2,1..4] of real;
    b,c: string; 
    d,x,y: real;
    i,j: integer;
begin
   b:='ABCD';  c:='xy';
   writeln('трапеция ABCD');
   for i:=1 to 4 do
   begin
     writeln('координаты точки ',b[i],': ');
     for j:=1 to 2 do
     begin
       write('   ',c[j],i,' = ');
       readln(a[j,i]);
     end;  
   end;  
   x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;
   y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;
   d:=sqrt(x*x+y*y);
   writeln('длина средней линии:  ',d:5:2);
end.

ввод - вывод

трапеция ABCD
координаты точки A: 
   x1 = 3
   y1 = 2
координаты точки B: 
   x2 = 5
   y2 = 5
координаты точки C: 
   x3 = 9
   y3 = 5
координаты точки D: 
   x4 = 10
   y4 = 2
длина средней линии:   5.50