|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.01.2009, 19:46 | #1 |
Пользователь
Регистрация: 08.01.2009
Сообщений: 21
|
вычесление суммы
|
08.01.2009, 19:50 | #2 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,597
|
Dartchuwak, что за картинка, даже текст задачи трудно напечатать?
|
08.01.2009, 19:52 | #3 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
с вводом выводом сам разберешься???
sum:=0;
for i:=1 to m do begin x[i]= 1,5+0,1*i; s[i]=(sqr(x[i])-3*x[i]+2)/sqrt(2*sqr(x[i])-1); sum:=sum+s[i]; end
вступлю в команду разработчиков ПО на Delphi
|
08.01.2009, 19:57 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
с его орфографией уж лучше картинка .......
вступлю в команду разработчиков ПО на Delphi
|
08.01.2009, 20:17 | #5 |
Пользователь
Регистрация: 08.01.2009
Сообщений: 21
|
Чет как-то не очень понятно(
|
08.01.2009, 20:18 | #6 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
чего не понятно то?????
вступлю в команду разработчиков ПО на Delphi
|
08.01.2009, 20:20 | #7 |
Пользователь
Регистрация: 08.01.2009
Сообщений: 21
|
Ввод и вывод.Я просто во всем этом оч плохо разбираюсь.
|
08.01.2009, 20:25 | #8 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
с тебя отзыв
program summa;
uses crt; var i,m:integer x:array[1..1000] of real; s:array[1..1000] of real; sum:real; begin clrscr; writeln('vvedite m'); readln(m); sum:=0; for i:=1 to m do begin x[i]:= 1,5+0,1*i; s[i]:=(sqr(x[i])-3*x[i]+2)/sqrt(2*sqr(x[i])-1); sum:=sum+s[i]; end; writeln('summa=',sum); end.
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 08.01.2009 в 20:50. Причина: исправил |
08.01.2009, 20:38 | #9 |
Пользователь
Регистрация: 08.01.2009
Сообщений: 21
|
Чёт не пашет(
|
08.01.2009, 20:41 | #10 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
че пишет то хоть???
вступлю в команду разработчиков ПО на Delphi
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычесление функций... | Lemo | Помощь студентам | 10 | 19.10.2008 15:08 |
Поиск суммы | Janette | Помощь студентам | 2 | 24.02.2008 12:56 |
возрат суммы | 11111 | Паскаль, Turbo Pascal, PascalABC.NET | 10 | 12.01.2008 15:32 |
Паскаль и суммы | SEREG@ | Помощь студентам | 6 | 18.12.2007 21:11 |