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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
   

Развернуть Обзор темы: 3 Примитивные задачи (Pascal).

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

Vovchik » 25 мар 2008, 21:39

C_O_D_E, совершенно согласен !!

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

C_O_D_E » 25 мар 2008, 21:28

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

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

Хыиуду » 24 мар 2008, 11:28

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

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

C_O_D_E » 23 мар 2008, 22:07

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

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

Vovchik » 23 мар 2008, 21:45

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

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

Vovchik » 23 мар 2008, 21:43

№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.

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

Vovchik » 23 мар 2008, 21:29

№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.

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

Хыиуду » 23 мар 2008, 19:20

Ghosting писал(а): 2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
3) Цена 1 кг сыра К рублей. Составить блок-схему и программу определения стоимости 100 грамм, 200,300,400,500,600,700,800 грамм сыра.
П.2. - невозможно составить программу, поскольку нет задания.
П.3. for i:=1 to 8 do writeln(K/10*i);

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

Medved » 21 мар 2008, 22:34

&quot писал(а):1)
Код:

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

end.

Вот тут вы ошиблись! Сказано время в МИНУТАХ, а вы выводите в часах.
&quot писал(а):2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
Объясните пожалуйста поточнее условие задачи

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

drummer » 21 мар 2008, 16:25

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.

Вернуться к началу