Страница 1 из 2
3 Примитивные задачи (Pascal).
Добавлено: 21 мар 2008, 16:05
Ghosting
Помогите пожалуйта! Не посылайте меня куда подальше, как это делали с других форумов

Я паскаля напрочь не помню

Нужно 3 задачи решить (простых).
Я конечно понимаю что это стыд и срам, но очень прошу вас - помогите пожалуйста!
Вот условия :
1) Сколько времени в минутах затратит школьник на дорогу из школы до станции, если известно расстояние S км и скорость движения V км/ч? (составить программу и блок-схему).
2) В секцию бокса принимаются мальчики, возраст которых не менее 10-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
3) Цена 1 кг сыра К рублей. Составить блок-схему и программу определения стоимости 100 грамм, 200,300,400,500,600,700,800 грамм сыра.
Заранее огромное спасибо тому, кто откликнется и поможет!
Если что, код шлите на мыло :
goctab@teletoria.ru
Спасибо!
Re: 3 Примитивные задачи (Pascal).
Добавлено: 21 мар 2008, 16:25
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.
Re: 3 Примитивные задачи (Pascal).
Добавлено: 21 мар 2008, 22:34
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-ти лет. (Составить блок схему и программу мальчиков секции бокса.)
Объясните пожалуйста поточнее условие задачи
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).
Добавлено: 23 мар 2008, 21:29
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.
Re: 3 Примитивные задачи (Pascal).
Добавлено: 23 мар 2008, 21:43
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.
Re: 3 Примитивные задачи (Pascal).
Добавлено: 23 мар 2008, 21:45
Vovchik
но што надо сделать во второй задаче что если ему больше 10 лет то не принемать ???
Re: 3 Примитивные задачи (Pascal).
Добавлено: 23 мар 2008, 22:07
C_O_D_E
Возможно,Ghosting хотел сказать "составить программу принятия мальчиков в секцию". т.е. нужно проверять введенный возраст если больше или равно(т.е. Не менее) 10, то принять, иначе, соответственно, не принять.
Вопрос только в том. а что собственно вывести надо? В условии задачи ничего не сказано по этому поводу.
Re: 3 Примитивные задачи (Pascal).
Добавлено: 24 мар 2008, 11:28
Хыиуду
Поражаюсь я с таких преподов, которые для 2+2 требуют блок-схему
Re: 3 Примитивные задачи (Pascal).
Добавлено: 25 мар 2008, 21:28
C_O_D_E
Хыиуду писал(а):Поражаюсь я с таких преподов, которые для 2+2 требуют блок-схему
А они {преподы} сами не могут (или только это и могут) нарисовать блок-схему для 2+2. И поэтому требуют от учащихся.