Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2012, 20:09   #1
Машулечек
Новичок
Джуниор
 
Регистрация: 25.05.2012
Сообщений: 2
По умолчанию необходимо составить программу вычисления с параметром,постусловием и предусловием.циклы

Задание такое:
Составьте алгоритм и программу вычисления значения функции по ее аналитической формуле и как сумму (произведение) с использованием операторов for, while, repeat. Значение аргумента (если он есть) выберите с учетом указанного огруничения

То есть надо составить 3 программы:с параметром,предусловием и постусловием
фунуция: ln |sin(x)|
сумма или произведение: - ln 2 - сумма(внизу n=1,вверху 100) cos 2nx/n
аргумент: |x|<п, х не равен п/2

все составила,в программе выдает ошибку 113.не могли бы вы помочь мне составить программу.может быть у меня в ней где-то ошибка?учитывать учет ограничения нужно не при помощи repeat until,а при помощи безусловного перехода
Машулечек вне форума Ответить с цитированием
Старый 26.05.2012, 10:42   #2
Машулечек
Новичок
Джуниор
 
Регистрация: 25.05.2012
Сообщений: 2
По умолчанию

Program lab_3;
Label M;
Var
S,x,y: real;
N: longint;
Begin
M:Begin
Writeln (‘x=’);
Readln (x);
If (abs(x) > pi) or (x=pi/2) then
Write (‘vvedite eche raz’);
Go to M;
Else
Begin
S:=0;
N:=1;
While n<>100 do
Begin
S:=s + cos (2*n*x)/n;
N:=n+1;
End;
Writeln (‘s=’);
Writeln (‘y=’);
End;
End.
Машулечек вне форума Ответить с цитированием
Старый 26.05.2012, 20:55   #3
Яна696
Пользователь
 
Аватар для Яна696
 
Регистрация: 07.11.2011
Сообщений: 53
По умолчанию

перед else точка с запятой не ставится
А может я слегка обнаглела?...
Яна696 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Необходимо составить программу! Scarface150 Помощь студентам 0 28.03.2012 10:33
Циклы с предусловием и постусловием. Ввод/вывод в стиле Си (printf, scanf). Mila_ Помощь студентам 1 06.12.2011 13:49
Цикл с предусловием, постусловием. DukcoH Паскаль, Turbo Pascal, PascalABC.NET 1 29.04.2011 09:49
блок-схемы (использовать цикл с параметром, предусловием и постусловием) uradik2 Помощь студентам 3 23.03.2010 08:21
Составить программу вычисления суммы Ленка Помощь студентам 8 28.05.2009 13:29