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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2012, 23:34   #1
meganogaga
Новичок
Джуниор
 
Регистрация: 14.05.2012
Сообщений: 4
По умолчанию програма правильная?

Програма:
program ZZ;
var x,a,b: real;
i:integer;
begin
a:=1.5;
b:=2.5;
x:=3.1;
for i:=1 to 5 do;
begin
y:=(b+SQR(sin(a*x)))/(a+SQR(ln(x)));
write(y);
x:=x+0.55;
end;
end.
Изображения
Тип файла: jpg блок схема 2.jpg (9.7 Кб, 148 просмотров)
meganogaga вне форума Ответить с цитированием
Старый 14.05.2012, 23:40   #2
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

> програма правильная?

нет
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 14.05.2012, 23:50   #3
meganogaga
Новичок
Джуниор
 
Регистрация: 14.05.2012
Сообщений: 4
По умолчанию

исправте пожалуста
meganogaga вне форума Ответить с цитированием
Старый 14.05.2012, 23:58   #4
veniside
Старожил
 
Регистрация: 03.01.2011
Сообщений: 2,508
По умолчанию

переменная y не объявлена, и цикл по i от фонаря. Остальное вроде ок.
"Когда приходит положенное время, человек перестаёт играть в пинбол. Только и всего."
veniside вне форума Ответить с цитированием
Старый 15.05.2012, 00:03   #5
meganogaga
Новичок
Джуниор
 
Регистрация: 14.05.2012
Сообщений: 4
По умолчанию

спасибо а какой цикл должен бить?
meganogaga вне форума Ответить с цитированием
Старый 15.05.2012, 00:05   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

ой ну если я правильно понял должно быть так
Код:
x := 3.1;
while x <= 5 do
begin
  other command
  x := x + 0.55;
end;
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Правильная кодировка scalpel PHP 4 21.09.2011 16:33
Правильная вёрстка STIGMATED HTML и CSS 0 17.09.2010 21:45
правильная ли прога? rouvers Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 17.05.2010 08:40
Не правильная работа for .. to Neptunium Общие вопросы Delphi 7 05.04.2010 00:32
правильная ли процедура? aiktz Помощь студентам 2 11.11.2009 14:12