![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
HORSE |
![]() ![]()
Сообщение
#1
|
|||
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Реальное имя: Кирилл Репутация: ![]() ![]() ![]() |
Помогите написать программу......вот что у меня получилось....
Program Formula;{ЛР5}
{Вычисление выражений
Входные данные: A,B,n,m,X - переменные
Выходные данные: S-значение выражения}
Var A,B,n,m,X,S,Z,i: Integer;
Begin
WriteLn ('Введите значение переменной A:');
ReadLn (A);
WriteLn ('Введите значение переменной B:');
ReadLn (B);
WriteLn ('Введите значение переменной m:');
ReadLn (m);
WriteLn ('Введите значение переменной n:');
ReadLn (n);
WriteLn ('Введите значение переменной X:');
ReadLn (X);
For i:=m To n Do
S:=Sqr(X+Round(B/i));
WriteLn('Значение выражения:',S+A);
End.
а картинка это задание.... Сообщение отредактировано: мисс_граффити - 22.12.2006 23:25 Эскизы прикрепленных изображений ![]() |
|||
мисс_граффити |
![]()
Сообщение
#2
|
![]() просто человек ![]() ![]() ![]() ![]() ![]() ![]() Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: ![]() ![]() ![]() |
тебе же надо посчитать сумму, а не одно слагаемое...
вот так надо:
...
S:=A;
For i:=m To n Do
S:=S+Sqr(X+Round(B/i));
-------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
HORSE |
![]()
Сообщение
#3
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Реальное имя: Кирилл Репутация: ![]() ![]() ![]() |
|
![]() ![]() |
![]() |
Текстовая версия | 17.07.2025 18:57 |