IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> задача на цикл, пмогите
Fallen59
сообщение 18.12.2007 0:49
Сообщение #1





Группа: Пользователи
Сообщений: 4
Пол: Мужской

Репутация: -  0  +


Привет всем. Помогите решить задачу(а то одна неделя ост до зачета а мне защищать лабу надо=((():
1. ВВодятся переменные x,y,t,k
2. Пока x-y<t*k выполнять:
если x+k>t тогда a=ln(x+k), b=tgx, t=t+5.1
иначе a=y/k-xt, b=sqr(t-k), y=y+7,2, x=x-4,3
3 Выдать на экран значение a,b
4 Выполнить пункты 1-3 7 раз.


с 1 по 3 я знаю как делать, а как их повторить 7 раз нет, помогите плиз...как это в программе написать??
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
andriano
сообщение 23.12.2007 19:03
Сообщение #2


Гуру
*****

Группа: Пользователи
Сообщений: 1 168
Пол: Мужской
Реальное имя: Сергей Андрианов

Репутация: -  28  +


Сравни написанное на Паскале с написанным по-русски. Посмотри, где не совпадает. Там и ошибка.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Тёмный Эльф
сообщение 23.12.2007 19:11
Сообщение #3


Влюблённый псих
***

Группа: Пользователи
Сообщений: 185
Пол: Женский
Реальное имя: Лейла

Репутация: -  1  +


else
(k-x*t<>) and (t-k<>0) then
a:=y/(k-x*t);
b:=sqrt(t-k);
y:=y+7.2;
x:=x-4.3;

вроде после else надо if поставить, а после then поставить begin и в конце еще один end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 25.06.2025 12:27
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"