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

Ghosting
Сообщения: 1
Зарегистрирован: 21 мар 2008, 16:02

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

Сообщение Ghosting » 21 мар 2008, 16:05

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

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

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

drummer
Сообщения: 57
Зарегистрирован: 13 янв 2008, 18:43

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.

Medved
Сообщения: 250
Зарегистрирован: 14 фев 2008, 20:51
Контактная информация:

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-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
Объясните пожалуйста поточнее условие задачи
Ваши руки совершили идиотскую ошибку и будут оторваны!
[OK]

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

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);
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

Vovchik
Сообщения: 190
Зарегистрирован: 28 фев 2008, 18:32
Контактная информация:

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.

Vovchik
Сообщения: 190
Зарегистрирован: 28 фев 2008, 18:32
Контактная информация:

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.

Vovchik
Сообщения: 190
Зарегистрирован: 28 фев 2008, 18:32
Контактная информация:

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

Сообщение Vovchik » 23 мар 2008, 21:45

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

C_O_D_E
Сообщения: 293
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

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

Сообщение C_O_D_E » 23 мар 2008, 22:07

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

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

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

Сообщение Хыиуду » 24 мар 2008, 11:28

Поражаюсь я с таких преподов, которые для 2+2 требуют блок-схему
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

C_O_D_E
Сообщения: 293
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

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

Сообщение C_O_D_E » 25 мар 2008, 21:28

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

Ответить