Самые главные события в режиме online!
Пт янв 28, 2005 11:29 am
Друзья мои, очень прошу помощи. К сожалению, я совершенно не продвинут настолько, чтобы помочь моей дочке. Она сама из другого города, ИНЕТ поставила недавно и еще не знает, как участвовать в конференциях. Им в школе задали задачи по программированию, не думаю, что для знатоков это сложно! Здесь ее текст без изменений.
P.S.
Этот вопрос временный, поэтотому прошу подсказать, могу ли я потом (и как это сделать) эту тему удалить, чтобы она не мозолила всем глаза?
Нам задали две задачи сделать в MS Dos, а я не знаю как. Если ты мне поможешь, я буду очень благодарна.
Вот пример задачи, какую мы в классе решали:
Даны два числа (3 и 4), выполнить их сумму.
Решение:
Program summa;
Uses crt;
Var a,b,c: real; (a,b -это числа 3, 4, а c - их сумма)
begin
Clrscr;
writeln (3 i 4);
readln (3,4), (только тут я не знаю, что ставить ,или ; )
c:=a+b;
writeln (c);
readln;
end.
Чтобы проверить на ошибки (нам сказали, это обязательно делать), надо набрать alt+F9
А чтобы выполнить программу, надо набрать Ctrl+F9.
А вот наши 2 задачи, которые, возможно, ты мне поможешь решить:
1 задача: Вычислить площадь (S) треугольника по 3 его сторонам. Формула для вычисления площади:
квадратный корень из выражения p(p-a)(p-b)(p-c). Формула для вычисления p(периметр): p=(a+b+c):2.
2 задача: С клавиатуры вводится радиус (R), посчитать L (длину) окружности, и посчитать S (площадь) круга.
Формула для Sокружн.:
Sокруж.= число пи (3,141552)* радиус в квадрате (чтобы обозначить квадрат числа, надо набрать sqr и поставить число; например, sqr(3), то есть 3 в квадрате.
Формула для L (длины) окружности:
L= 2 пи*радиус.
Такая звездочка(*) обозначает умножить.
Я очень надеюсь, что ты мне поможешь. Мне, правда, очень надо!!!
Ну, все, целую, ПОКА!!!
P.S: извини, что так подробно, просто боюсь, не поймешь, а мне в эту субботу уже надо эти задачи сдать.
Заранее благодарен!!!
Пт янв 28, 2005 13:41 pm
Эх, давненько не брал я в руки шашки (ну в смысле Паскаль), еще с гражданской.
Лови, не жалко:
Треугольник:
Program Triangle;
uses crt;
var a, b, c, p, s : real;
begin
ClrScr;
Write ('Введите длину A: ');
ReadLn (a);
Write ('Введите длину B: ');
ReadLn (b);
Write ('Введите длину C: ');
ReadLn (c);
p := (a + b + c) / 2;
s := p * (p - a) * (p - b) * (p - c);
WriteLn ('Площадь треугольника = ', s);
ReadLn
end.
Окружность:
Program Round;
uses crt;
var R, L, S : real;
begin
ClrScr;
Write ('Введите радиус : ');
ReadLn (R);
L := 2 * Pi * R;
S := Pi * sqr (R);
WriteLn ('Длина окружности = ', L);
WriteLn ('Площадь круга = ', S);
ReadLn
end.
ЗЫ: Самая засада была в том, что я забыл, как Write пишется, пытался вспомнить форматирование для него.
Пт янв 28, 2005 13:47 pm
Спасибо огромное!!! Ну а что, тему убрать невозможно???
Пт янв 28, 2005 13:53 pm
stog писал(а):Друзья мои, очень прошу помощи. К сожалению, я совершенно не продвинут настолько, чтобы помочь моей дочке. Она сама из другого города, ИНЕТ поставила недавно и еще не знает, как участвовать в конференциях. Им в школе задали задачи по программированию, не думаю, что для знатоков это сложно! Здесь ее текст без изменений.
P.S.
Этот вопрос временный, поэтотому прошу подсказать, могу ли я потом (и как это сделать) эту тему удалить, чтобы она не мозолила всем глаза?
Нам задали две задачи сделать в MS Dos, а я не знаю как. Если ты мне поможешь, я буду очень благодарна.
Вот пример задачи, какую мы в классе решали:
Даны два числа (3 и 4), выполнить их сумму.
Решение:
Program summa;
Uses crt;
Var a,b,c: real; (a,b -это числа 3, 4, а c - их сумма)
begin
Clrscr;
writeln (3 i 4);
readln (3,4), (только тут я не знаю, что ставить ,или ; )
c:=a+b;
writeln (c);
readln;
end.
- Код:
Program summa;
Uses crt;
Var a,b: real;
begin
Clrscr;
write ("Введите 2 числа: ");
readln (a,b);
writeln ("Сумма чисел ", a, " и ", b, "равна ", a+b );
readln;
end.
stog писал(а): А вот наши 2 задачи, которые, возможно, ты мне поможешь решить:
1 задача: Вычислить площадь (S) треугольника по 3 его сторонам. Формула для вычисления площади:
квадратный корень из выражения p(p-a)(p-b)(p-c). Формула для вычисления p(периметр): p=(a+b+c):2.
- Код:
Program triangle;
Uses Crt;
Var a, b, c, p: real;
begin
Clrscr;
write ("Введите длины сторон треугольника: "); readln (a,b,с);
p:= (a+b+c)/2;
writeln ("Площадь треугольника ", Sqrt(p*(p-a)*(p-b)*(p-c)));
readln;
end.
stog писал(а): 2 задача: С клавиатуры вводится радиус (R), посчитать L (длину) окружности, и посчитать S (площадь) круга.
Формула для Sокружн.:
Sокруж.= число пи (3,141552)* радиус в квадрате (чтобы обозначить квадрат числа, надо набрать sqr и поставить число; например, sqr(3), то есть 3 в квадрате.
Формула для L (длины) окружности:
L= 2 пи*радиус.
Такая звездочка(*) обозначает умножить.
- Код:
Program Circle;
Uses Crt;
const
Pi=3,141552;
Var R: real;
begin
Clrscr;
write ("Введите радиус окружности: "); readln (R);
writeln ("Длина окружности: ", 2*Pi*R);
writeln ("Площадь круга: ", 2*Pi*R*R));
readln;
end.
Upgrade: Спасибо. Поправил присвоение для того чтобы можно было сделать cute&paste.
PS: За иденты отвечает прагма code в данной версии форума
Последний раз редактировалось
PS Пт янв 28, 2005 14:22 pm, всего редактировалось 1 раз.
Пт янв 28, 2005 14:08 pm
PS, красивее, у меня хуже, да еще и Indent куда-то при вставке подевался, зато у меня присвоение стоит, а у тебя равенство (сишная болезнь?).

Да и с корнем я лопухнулся.
Stog, если заметил, у меня ошибка. В треугольнике sqrt нет (корень не извлек): спасибо PS подсказал.
Program Triangle;
uses crt;
var a, b, c, p, s : real;
begin
ClrScr;
Write ('Введите длину A: ');
ReadLn (a);
Write ('Введите длину B: ');
ReadLn (b);
Write ('Введите длину C: ');
ReadLn (c);
p := (a + b + c) / 2;
s :=
Sqrt (p * (p - a) * (p - b) * (p - c));
WriteLn ('Площадь треугольника = ', s);
ReadLn
end.
Пт янв 28, 2005 14:19 pm
Не буду напрягать свой мозг вспоминанием паскаля. придерусь в стиле ПС к ...
Нам задали две задачи сделать в MS Dos, а я не знаю как.
я думаю самый правильный способ програмировать в msdos это либо hiew либо debug.exe :)))
Пт янв 28, 2005 14:24 pm
Уел :)
Правда там есть маленькая подсказка на используемую IDE - Alt-F9 Ctrl-F9 (такое у Borland по умолчанию). Ну и плюс знание того чему и как учат в современной школе на уроках информатики. :)
Пт янв 28, 2005 14:47 pm
hehe, да нет, там и кусок кода в паскале есть. дельфи точно не подойдет для этого.
Однако еще придется помучаться над программами, что бы они были оптимизированны и занимали как можно меньше места - детей надо отучать от уродствa виндовс :))
Пт янв 28, 2005 15:57 pm
Спасибо, друзья, я и не стал разбираться, а скинул дочке все в виде архива, пусть сама возьмет то, что ей нужно!
И так, вопрос остается открытым, а вопрос такой, а я что, эту тему уже сам удалить не могу???
Пт янв 28, 2005 20:29 pm
По поводу удаления темы это к модераторам или админу.
А зачем если не секрет Вы её удалить хотите? Пускай весит, может ещё
кому полезной окажется.
Сб янв 29, 2005 10:35 am
Maxim, не секрет. Просто я не думал, что такая дискуссия откроется, конечно, пусть повисит... Просто я думал так: задал вопрос, получил ответ, и все закончилось на этом. Вряд ли это кому-нибудь нужно. А вот слишком большое количество тем (этакий мусор), просто может мешать, особенно иногородним у которых трафик временной. Если это не так, ну что ж. Все равно я знать должен, теперь знаю, спасибо!
Сб янв 29, 2005 12:33 pm
2 stog
Не понимаю каким образом большое кол-во тем влияет на трафик? Вы же
не скачиваете сайт целиком оффлайн-браузером (или как он там
называется).