Дмитровский Форум V2

[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.
Чтобы проверить на ошибки (нам сказали, это обязательно делать), надо набрать 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: извини, что так подробно, просто боюсь, не поймешь, а мне в эту субботу уже надо эти задачи сдать.

Заранее благодарен!!!

[Durak]

Эх, давненько не брал я в руки шашки (ну в смысле Паскаль), еще с гражданской.

Лови, не жалко:

Треугольник:

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 пишется, пытался вспомнить форматирование для него.

[stog]

Спасибо огромное!!! Ну а что, тему убрать невозможно???

[PS]

Друзья мои, очень прошу помощи. К сожалению, я совершенно не продвинут настолько, чтобы помочь моей дочке. Она сама из другого города, ИНЕТ поставила недавно и еще не знает, как участвовать в конференциях. Им в школе задали задачи по программированию, не думаю, что для знатоков это сложно! Здесь ее текст без изменений.
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.


А вот наши 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.


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 в данной версии форума

[Durak]

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.

[gosha]

Не буду напрягать свой мозг вспоминанием паскаля. придерусь в стиле ПС к ...
Нам задали две задачи сделать в MS Dos, а я не знаю как.
я думаю самый правильный способ програмировать в msdos это либо hiew либо debug.exe :)))

[PS]

Уел :)

Правда там есть маленькая подсказка на используемую IDE - Alt-F9 Ctrl-F9 (такое у Borland по умолчанию). Ну и плюс знание того чему и как учат в современной школе на уроках информатики. :)

[gosha]

hehe, да нет, там и кусок кода в паскале есть. дельфи точно не подойдет для этого.
Однако еще придется помучаться над программами, что бы они были оптимизированны и занимали как можно меньше места - детей надо отучать от уродствa виндовс :))

[stog]

Спасибо, друзья, я и не стал разбираться, а скинул дочке все в виде архива, пусть сама возьмет то, что ей нужно!

И так, вопрос остается открытым, а вопрос такой, а я что, эту тему уже сам удалить не могу???

[Maxim]

По поводу удаления темы это к модераторам или админу.
А зачем если не секрет Вы её удалить хотите? Пускай весит, может ещё
кому полезной окажется.

[stog]

Maxim, не секрет. Просто я не думал, что такая дискуссия откроется, конечно, пусть повисит... Просто я думал так: задал вопрос, получил ответ, и все закончилось на этом. Вряд ли это кому-нибудь нужно. А вот слишком большое количество тем (этакий мусор), просто может мешать, особенно иногородним у которых трафик временной. Если это не так, ну что ж. Все равно я знать должен, теперь знаю, спасибо!

[Maxim]

2 stog
Не понимаю каким образом большое кол-во тем влияет на трафик? Вы же
не скачиваете сайт целиком оффлайн-браузером (или как он там
называется).