Помогите составить задачу и построить блок-схему

[Batusay]

Помогите составить задачу и построить блок-схему:

Задано предложение,состоящее из слов,разделённым одним или несколькими пробелами.Найти самое длинное слово в предложении

[puporev]

Когда пишут Помогите, то это значит что Вы написали программу и она у Вас не работает, или не можете что-то конкретное понять. Вы должны писать: Решите за меня задачу, а то мне самому это влом, я лучше с девками погуляю, пока Вы, лохи за меня решаете. Вот нашел лоха, держи задачу и схему.

Program DlSlovo;
uses crt;
var s,s1,s2:string; //предложение, строки для хранения очередного и максимального слов
    max,len,i:integer;//длины максимального и текущего слов
begin
  clrscr;
  writeLn('predlozenie: ');
  readLn(s);
  writeln;
  for i:=length(s)downto 1 do  //удаляем лишние пробелы
  while pos('  ',s)>0  do  delete(s,pos('  ',s),1); //'  '-это 2 пробела
  if s[length(s)]='.' then s[length(s)]:=' '//если в конце точка, меняем на пробел
  else  s:=s+' ';  //иначе добавляем пробел
  s1:=''; max:=0;  //s1- пустая строка, макс. длина=0
  while pos(' ',s) > 0 do //пока есть пробелы
   begin
    len:=pos(' ',s)-1; //длина очередного слова от начала до первого пробела-1
    s1:=copy(s,1,len); //запоминаем слово
    if len > max then  //если длиннее предыдущего длинного
      begin
        s2:=s1;  //запоминаем слово
        max:=len; //запоминаем его длину
      end;
    delete(s,1,pos(' ',s));//удаляем просмотренное слово
   end;
  write('Max slovo: ',s2);
  readLn;
end.

[Batusay]

я попросил помочь потому что вощбе не понял с чего начинать задачу и ждал когда кто-нибудь поможет чтобы разобраться в ней,спасибо большое за помощь!! =)

[Конга]

ПОЖЖЖАЙЛУСТА ПОМОГИТЕ СОСТАВИТЬ БЛОК-СХЕМЫ К ЭТИМ ЛАБАМ ))))),ОЧЕНЬ СРОЧНО НАДО!!!!!!!!!!!!!!!!!!!
program lab1_1;
var x, y: integer;

begin
write('Vvedite x: ');
readln(x);
write('Vvedite y: ');
readln(y);
if (y <= 6) and (x + y >= 4) and (-x + y <= 2) and (-x + 3*y >= 3) then
writeln('Tochka P(', x, ', ', y, ') lezhit v oblasti G.')
else
writeln('Tochka P(', x, ', ', y, ') ne lezhit v oblasti G.');
readln;
end.
program lab1_1;
var E, x, y, Sl, F: real;
i, n: integer;

begin
write('Vvedite x: ');
readln(x);
write('Vvedite E: ');
readln(E);
y := 0;
repeat
begin
Sl := x;
F := 1;
for i := 0 to n do
begin
Sl := cos(Sl);
F := F * (i+1);
end;
Sl := Sl / F;
y := y + Sl;
n := n + 1;
end;
until abs(Sl) < E;
write('y = ', y);
readln;
end.
program lab1_1;
var i, y: integer;

begin
y := 1;
for i := 1 to 6 do
y := y * (2*i - 1);
write('y = ', y);
readln;
end.
program lab1_1;
type Mas = array[1..40] of integer;
var a, x, z: Mas;
i, ix, iz: integer;

begin
for i := 1 to 40 do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
ix := 1;
iz := 1;
for i := 1 to 40 do
begin
if not Odd(a[i]) then begin
x[ix] := a[i];
ix := ix + 1;
end
else begin
z[iz] := a[i];
iz := iz + 1;
end;
end;
writeln;
writeln('a');
for i := 0 to 40 do
write(a[i], ', ');
writeln;
writeln('x');
for i := 1 to ix-1 do
write(x[i], ', ');
writeln;
writeln('z');
for i := 1 to iz-1 do
write(z[i], ', ');
readln;
end.
program lab1_1;
const e = 0.001;
var x0, x: real;

function f(x: real): real;
begin
f := 2*x - ln(x)/ln(10) - 7;
end;

function df(x: real): real;
begin
df := 2 - 1/(ln(10) * x);
end;

begin
repeat
begin
write('Vvedite x0[3,5]: ');
readln(x0);
end;
until not((x0 < 3) or (x0 > 5));
repeat
x := x0 - f(x0)/df(x0);
until(abs(x-x0) > e);
write(x);
readln;
end.
program lab1_1;
const a = 0.4;
b = 1.2;
e = 0.001;
var S0, S, h, x: real;
i, n: integer;

function f(x: real): real;
begin
f := (2*x - 0.5)*sin(x);
end;

begin
S := 0;
S0 := 0;
n := 2;
repeat
begin
S0 := S;
n := 2*n;
h := (b-a)/n;
for i := 1 to n do
begin
x := a + i*h;
S := S + f(x);
end;
S := h*(S+(f(a)+f(b))/2);
end;
until(abs(S0-S) < e);
write('S = ', S);
readln;
end.
program lab1_1;
const a = 0;
b = 1.3;
e = 0.001;
var x0, x1, x2, xm, y0, y1, y2, h: real;
i, n: integer;

function f(x: real): real;
begin
f := 50 / (3*x*x*x*x + 8*x*x*x - 18*x*x + 60);
end;

begin
repeat
write('Vvedite h[0, 0.65]: ');
readln(h);
until (h < 0.65);
x1 := 0.65;
xm := 0.65;
repeat
begin
x1 := xm;
x0 := x1 - h;
x2 := x1 + h;
y0 := f(x0);
y1 := f(x1);
y2 := f(x2);
xm := ((2*x1 + h)*y0 - 4*x1*y1 + (2*x1 - h)*y2)/(2*(y0 - 2*y1 + y2));
end;
until(abs(x1-xm) < e);
write('x = ', (x1+xm)/2);
readln;
end.

[annya77]

приветик! мальчик, как дела?
что вы делате???? Пожалуйста, помогите мне ..

Пожалуйста, помогите мне решить упражнения.
слишком важна для меня, пожалуйста
Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...


Задача 1:
--------
Вывести график функция и в виде таблицы значения аргумента Xi,
значение функция Yi (i = 1,2,3,4 ...), max, min функция:

Y= - SINXi + COSXi -1

диапазон изменения аргумента:, количество точек графика 40

Задача 2:
--------
Выполнить задание 2 с применением возможностей Турбо Паскаль (record).

Создайте файл, который содержит:
- Название государства,
- Столицу,
- Количество населения,
- Площадь.
Напечатать данные о 10 государств с наибольшей плотностью населения. Вывести всю информацию о государстве X.


Задача 3:
--------
Написать программу, розвьязуe данную задачу с применением пiдпрограм типа FUNCTION, PROCEDURE:
решить уравнение:
ax=b
a-следует матрицы А (5,5).
b-следует матрицы B (7,7).
Матрицы А, В-распечатать в общепринятом виде


Я рассчитываю на вас, чтобы помочь мне, и благодарю вас ...

благодарю вас за вашу помощь ^^

[pas9462]

Добрый вечер всем! Помогите пожалуйста сделать задание?
Дело в том, что лекции по этой теме еще не начались, а мне сдать нужно экзамен досрочно, разобраться сам не могу, хоть и выглядит задание вроде как не таким уж и сложным...

Вот задание

Составить блок-схему алгоритма и программу, используя визуальную среду программирования Delphi

1.Определить приближенное, с точностью 0,1 значение корня уравнения X - Arctg X =0 , изменяя значение X от 2 до 5. (Отобразить на форме в виде графика и числовых значений)

[sheka]

Помогу! В самые короткие сроки! 255507394

[Gorychev]

home7519@gmail.com
ICQ : 4587 два 336 семь

[fceditor]

чтобы построить блок схему попробуйте
FCEditor .NET - она как раз и нужна чтобы по готовому коду строить блок схемы программ на паскале.

[diamFC]

Сообщение от автор

чтобы построить блок схему попробуйте

Раз уж подняли утонувшую тему, то рекомендую поискать в инете мою программу diamFC. Строит блок-схемы для Pascal,Delphi на ура. И для большинства студенческих задач - бесплатна. Маленький результат работы приведен здесь
http://www.programmersforum.ru/showthread.php?t=94722