Паскаль. Строки

[sllh_111]

Помогите с решением задач ну очень надо скоро сессия я решить их не могу.

1. Создать текстовый файл, состоящий из нескольких строк любым возможным способом. Удалить строки, начинающиеся со строчной или прописной буквы «Л».

2. Определить функцию, которая возвращает объём шара, вычисляемый по заданному радиусу. Используя данную функцию найти величину , где v1, v2, v3 – объёмы шаров с радиусами r1=5.2, r2=4, r3=4.8

3. Определить одну процедуру, вычисляющую номер максимального элемента в одномерном вещественном массиве и количество элементов, стоящих после него. Использовать процедуру для массивов W[22] и V[25]

[fbus]

пиши в аську, я напишу

[sllh_111]

извените но аськи нету((((
а с деньгами вообще проблема

[Grag]

Денег нет, аськи нет... А что есть???

[Grag]

Сообщение от sllh_111

1. Создать текстовый файл, состоящий из нескольких строк любым возможным способом.

Var
  idx:byte;
  ftxt:Text;
  Line:string';
Begin
Assign(ftxt,'имя твоего текстового файла');
Rewrite(ftxt);
for idx:=0 to 19 do
  begin
    writeln('Строка N_',idx+1);
    readln(Line);
    writeln(ftxt,Line)
  end
end;
Close(ftxt);

Файл будет содержать 20 строк, введенных с клавы...

[DoDge_VipeR]

-II-

Function V(r:real):real;
begin
v:=4/3*pi*r*r*r;
end;
end;
begin
writeln(v(5.2));
writeln(v(4));
writeln(v(4.8));
readln;
end.

[ROMA2PVT]

uses
   crt;
var
  mas:array[1..100] of integer;
  i,a,b,kol,n,max,posiz:integer;
begin
clrscr;
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Массив MAS: ');
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
 end;
writeln;
posiz:=1;
max:=mas[1];
for i:=1 to n do
if mas[i]>max then
 begin
  max:=mas[i];
  posiz:=i;
 end;
writeln('MAX[',posiz,']:=',max);
writeln;
kol:=0;
for i:=posiz+1 to n do
begin
inc(kol);
end;
writeln('Количество элементов после максимального: ',kol);
readkey;
end.

Вот те третья прога.А процедуру сам сделаешь.Заодно и может научишься чему нить.

[DoDge_VipeR]

for i:=posiz+1 to n do
begin
inc(kol);
end;

а так не проще

kol:=n-posiz;

[ROMA2PVT]

Ну разница то небольшая.

[sllh_111]

Grag, DoDge_VipeR, ROMA2PVT огромное Спасибо отдуши! Неожидал я что кто-нибудь во обще возьмется за это, а тут сразу с тремя задачками помогли. Еще раз спасибо выручили!