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

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

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

> Простые алгоритмы
сообщение
Сообщение #1


Гость






Я думаю, для тех, кто разбирается в этой теме, задачи покажутся элементарными.Я только начинаю осваивать этот предмет.И, к сожалению, испытываю трудности уже в самом начале.
задача номер 1:
сделайте таблицу:
1-й столбец - числа 5,10,15,...100
2-й - числа из 1-го уменьшенные на 10 и умноженные на 4.
3-й - если число из 2-го столбца больше 200, должна выписаться разница этого числа и 200.Столбцы должны быть правильно отформатированны, чтобы каждое число было одно под другим.
я написал, как сумел, но не выходит 3-й столбец.

Код

program du2;
var I,X: Longint;
begin
for I:= 1 to 20 do
writeln(I*5:2,' ',4*(I*5-10):3,' ');
{третий столбец я пытался изобразить так, но что-то не идёт}
X:= 4(I*5-10)
if X > 200
then X-200;
writeln(I);
end.


и 2-я задачка:
Составить подпрограмму-фукцию, у которой 2 параметра десятичное число X и целое число N.Подрограмма вычислит значение X в Nй степени.Попрограмму вложить в главную программу,в которой можно будет ввести числа X и N и потом вызовом подпрограммы выдаст результат X в Nй степени.


К своему стыду, я даже не брался за 2-ю задачу.

И ещё вопрос чисто по работе самого паскаля.У меня Windows 2000, поставил 7-ю версию борланд паскаля.Сильно тормозит, не могу оперировать мышью.
Буду сильно признателен,если кто-нибудь найдёт время для оказания помощи.
С уважением, Евген.
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Евген   Простые алгоритмы   15.03.2004 5:41
pascal65536   В стандартном паскале нет функции возведения в сте…   15.03.2004 8:55
Catty   x^a=exp(a*ln(x)) - так можешь возвести число в сте…   16.03.2004 0:58
Atos   Строчка writeln(I); должна быть вставлена в цикл …   16.03.2004 18:34
Guest   Atos Это я пытался задать алгоритм 3-го столбца.Н…   17.03.2004 0:49
APAL   Наверное он имел в виду: if X > 200 then X…   17.03.2004 5:57
Catty   В книге Фаронова есть твоя вторая задача! Може…   19.03.2004 1:23
Евген   Catty Спасибо.Кстати нашёл.Вот ссылка кому надо h…   19.03.2004 5:48
Atos   Попробуй для распечатки 3 столбца for I:= 1 t…   20.03.2004 11:45
Guest   Пишет Error 94= "." expected. :huh:   22.03.2004 17:05
Atos   Так наверное один end лишний! Или что-то в это…   22.03.2004 18:08
Евген   А ты сам пробовал запустить? а то чего то у меня н…   23.03.2004 4:49
fms   дак наверно end'a с точкой не хватает.. раз …   24.03.2004 3:19
APAL   To Atos, fms: Помоему я понял... :) Был приведен …   24.03.2004 16:36
Guest   короче справился я с задачками...всем спасибо за у…   26.03.2004 21:54


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

 





- Текстовая версия 25.10.2020 4:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name