Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 23.10.2014, 22:45   #1 (permalink)
Samat
Новичок
 
Регистрация: 23.10.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите в Паскале

1.Ввести вещественные числа A и B (A B > ). На отрезке длины A размещено максимальное количество отрезков длины B без наложений. Без использования операции умножения и деления найти длину незанятой части A и количество содержащихся в нём отрезков.
Если можно то и блог схему
Samat вне форума   Ответить с цитированием

Старый 23.10.2014, 22:45
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Может быть в аналогичных темах есть интересующие вас ответы

Помогите с перебором на Паскале
Помогите с программой на паскале
Помогите с задачей на Паскале
Помогите с программой на Паскале
Помогите с задачами на фри Паскале

Старый 23.10.2014, 23:47   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,166
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

var A,B,sum:Real;
n:integer;
begin
Write('A=');
Readln(A);
Write('B<A=');
Readln(B);
n:=0;
sum:=0;
repeat
if (sum+B)>A then break
else
begin
sum:=sum+B;
Inc(n);
end;
until (sum+B)>A;
Writeln('Ne zanyato=',(A-sum):0:2);
Writeln('Otrezkov B v A =',n);
Readln;
end.

Блок схемы рисовать не умею.
Евгений вне форума   Ответить с цитированием
Старый 24.10.2014, 00:17   #3 (permalink)
Samat
Новичок
 
Регистрация: 23.10.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое,а вот такое не сможете помочь ?Дан массив K(N). Преобразовать его, упорядочив по убыванию все элементы, стоящие после второго нулевого. Выдать на печать исходный и упорядоченный массивы. Если преобразование невозможно, то выдать об этом сообщение
Samat вне форума   Ответить с цитированием
Старый 24.10.2014, 01:20   #4 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,166
Сказал(а) спасибо: 9
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 9811
По умолчанию

const n=10;
var A:array[1..n] of integer;
t,e,i,j:integer;
begin
for i:=1 to n do
begin
A[i]:=Random(26)-15;
Write(A[i]:4);
end;
Writeln;
t:=0;
e:=0;
repeat
Inc(e);
if A[e]=0 then Inc(t);
if t=2 then break;
if e=n then break;
until (t=2) or (e=n);
if t<2 then Writeln('Nevozmozhno')
else
begin
for i:=e+1 to n-1 do
for j:=e+1 to n-1 do
if a[j]<A[j+1] then
begin
t:=A[j];
A[j]:=A[j+1];
A[j+1]:=t;
end;
for i:=1 to n do Write(A[i]:4);
end;
Readln;
end.
Евгений вне форума   Ответить с цитированием
Старый 26.10.2014, 00:31   #5 (permalink)
Samat
Новичок
 
Регистрация: 23.10.2014
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

кто поможет с блог схемами
Есть программы, которые рисуют блок схемы по тексту программы. попробуйте поискать таковые самостоятельно.
Samat вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:25.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.