3 Примитивные задачи (Pascal).

[Ghosting]

Помогите пожалуйта! Не посылайте меня куда подальше, как это делали с других форумов Я паскаля напрочь не помню Нужно 3 задачи решить (простых).
Я конечно понимаю что это стыд и срам, но очень прошу вас - помогите пожалуйста!

Вот условия :
1) Сколько времени в минутах затратит школьник на дорогу из школы до станции, если известно расстояние S км и скорость движения V км/ч? (составить программу и блок-схему).
2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
3) Цена 1 кг сыра К рублей. Составить блок-схему и программу определения стоимости 100 грамм, 200,300,400,500,600,700,800 грамм сыра.

Заранее огромное спасибо тому, кто откликнется и поможет!
Если что, код шлите на мыло : goctab@teletoria.ru
Спасибо!

[drummer]

1)

Код: Выделить всё

var s,v,t:real;
begin
       write('s=');readln(s);
       write('v=');readln(v);
       t:=s/v*60;
       writeln('t=',t:0:4);

end.

3)

Код: Выделить всё

var s,v,t:real;
begin
     write('cost=');readln(s);
     write('mass,g=');readln(v);
     t:=s/1000*v;
     writeln('price=',t:0:4);

end.

[Medved]

1)
Код:

var s,v,t:real;
begin
write('s=');readln(s);
write('v=');readln(v);
t:=s/v;
writeln('t=',t:0:4);

end.

Вот тут вы ошиблись! Сказано время в МИНУТАХ, а вы выводите в часах.

2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)

Объясните пожалуйста поточнее условие задачи

[Хыиуду]

2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
3) Цена 1 кг сыра К рублей. Составить блок-схему и программу определения стоимости 100 грамм, 200,300,400,500,600,700,800 грамм сыра.

П.2. - невозможно составить программу, поскольку нет задания.
П.3. for i:=1 to 8 do writeln(K/10*i);

[Vovchik]

№1

Код: Выделить всё

program N1;
uses crt;
var s,v,t:real;
BEGIN
 clrscr;
 write('Введите растояние:');
 readln(s);
 write('Введите скорость:');
 readln(v);
 v:=v*1000/60;
 t:=(s/v);
 writeln('Время:',t:6:2);
 readln;
END.

[Vovchik]

№3

Код: Выделить всё

program N3;
uses crt;
var sto,ves,sto1:real;
BEGIN
 clrscr;
 write('Введите стоимость за КГ:');
 readln(sto);
 write('Введите вес у гр:');
 readln(ves);
 sto1:=sto*ves/1000;
 writeln('Стоимость',ves:10:2,':',sto1:10:2);
 readln;
END.

[Vovchik]

но што надо сделать во второй задаче что если ему больше 10 лет то не принемать ???

[C_O_D_E]

Возможно,Ghosting хотел сказать "составить программу принятия мальчиков в секцию". т.е. нужно проверять введенный возраст если больше или равно(т.е. Не менее) 10, то принять, иначе, соответственно, не принять.
Вопрос только в том. а что собственно вывести надо? В условии задачи ничего не сказано по этому поводу.

[Хыиуду]

Поражаюсь я с таких преподов, которые для 2+2 требуют блок-схему

[C_O_D_E]

Поражаюсь я с таких преподов, которые для 2+2 требуют блок-схему

А они {преподы} сами не могут (или только это и могут) нарисовать блок-схему для 2+2. И поэтому требуют от учащихся.