|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.03.2014, 23:51 | #1 (permalink) |
Новичок
Регистрация: 12.03.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите написать программу
|
24.03.2014, 23:51 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обязательно прочитайте содержимое схожих тем Помогите написать программу Помогите написать программу VBS |
25.03.2014, 00:55 | #2 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
вроде не ошибся))
const n = 5; const t = 0.85; const a: array[0..4] of real = (3, -4.2, 5.3, -6.1, 2.8); var u: array [0..4] of real; k: byte; z: real; begin u[0]:= 1; u[1]:= t; for k:= 2 to n-1 do begin u[k]:= 2*t*u[k-1]-u[k-2]; end; z:= 0; for k:= 1 to n do begin z:= z+(a[k-1]*u[k-1]); end; writeln('Z= ', z); readln; end. |
25.03.2014, 11:37 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
В СИ - да. А вот в Паскале (и это одно из его, с моей точки зрения, преимуществ) границы диапазонов НЕ РЕГЛАМЕНТИРОВАНЫ. Это может быть [0..123], или [1..48], а может и вовсе быть [-53..215]. Пожалуйста! Как удобно, так и назначаете.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|