Показать сообщение отдельно
  (#1 (permalink)) Старый
Bleak Bleak вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 15.02.2009
По умолчанию Определить значение массива - 15.02.2009, 12:05

Помогите решить пару задач, пожалуйста.
1)Определить значение массива b после выполнения каждого из следующих фрагментов:
Type
week=(Monday, Tuesday, Wednesday, Friday, Saturday, Sunday, Sum);
Var
b :array [week] of integer;
Day : week;
c) b[Sum]:=0;
for day:= Monday to Sunday do
begin
b[day]:=ord(day);
b[Sum]:=b[Sum]+b[day]
end;
2) Составить программу вычисления корня квадратного уравнения методом половинного деления.
Заранее большое спасибо!!!
Ответить с цитированием
Ads