Предмет: Информатика,
автор: Maria988848
Информатика, программирование на языке Паскаль, нужно написать программу.
Определить сколько платьев можно сшить из 100 м ткани. На платье уходит 80% роста. Рост 155-180.
Примерно должно выглядеть вот так, как указано на картинке.
Помогите, пожалуйста
Приложения:
Ответы
Автор ответа:
0
var
i,rost:integer;
sum:real;
begin
sum:=10000;
i:=0;
while sum>0 do
begin
writeln('Введите рост человека в см');
readln(rost);
sum-=rost*0.8;
i+=1
end;
writeln('Получилось сшить ', i-1, ' платьев');
end.
Maria988848:
А если с рандомом, то как будет выглядеть?
var
i,rost:integer;
sum:real;
begin
Randomize;
sum:=10000;
i:=0;
writeln('Были сшиты платья следующих размеров: ');
while sum>0 do
begin
rost:=Random(35)+126;
writeln(rost);
sum-=rost*0.8;
i+=1
end;
writeln('Получилось сшить ', i-1, ' платьев. Последнее платье превысило лимит в 100 метров');
end.
i,rost:integer;
sum:real;
begin
Randomize;
sum:=10000;
i:=0;
writeln('Были сшиты платья следующих размеров: ');
while sum>0 do
begin
rost:=Random(35)+126;
writeln(rost);
sum-=rost*0.8;
i+=1
end;
writeln('Получилось сшить ', i-1, ' платьев. Последнее платье превысило лимит в 100 метров');
end.
Спасибо!
Я сейчас немного подправлю рандомайз, минута
var
i,rost:integer;
sum:real;
begin
Randomize;
sum:=10000;
i:=0;
writeln('Были сшиты платья следующих размеров: ');
while sum>0 do
begin
rost:=Random(180-155+1)+155;
writeln(rost);
sum-=rost*0.8;
i+=1
end;
writeln('Получилось сшить ', i-1, ' платьев. Последнее платье превысило лимит в 100 метров');
end.
i,rost:integer;
sum:real;
begin
Randomize;
sum:=10000;
i:=0;
writeln('Были сшиты платья следующих размеров: ');
while sum>0 do
begin
rost:=Random(180-155+1)+155;
writeln(rost);
sum-=rost*0.8;
i+=1
end;
writeln('Получилось сшить ', i-1, ' платьев. Последнее платье превысило лимит в 100 метров');
end.
Прости, может быть поздно спрашивать, но почему рост - Integer? Это же вещ. число (типа рост может быть 166, 6, и Т.п.) Сори, что может надоела, просто у нас учитель по информатике строгий
Похожие вопросы
Предмет: Русский язык,
автор: danil43132445
Предмет: Английский язык,
автор: g9999
Предмет: Окружающий мир,
автор: makarovskynikita2007
Предмет: Алгебра,
автор: алина190