РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 626 ∙ повысить рейтинг >>

_Ayl_ Статус: 7-й класс Рейтинг: 537 ∙ повысить рейтинг >>

Micren Статус: Практикант Рейтинг: 296 ∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 169594: Помогите пожалуйста с задачкой!!! Дан текст. Определить, содержит ли он символы, отличные от букв и пробела....

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

Отправлен: 19.06.2009, 09:04
Вопрос задал: Savie, Посетитель
Всего ответов: 1
Страница вопроса >>

Приложение:
const possibleSymbols=\' ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefjhijklmnopqrstuvwxyz\'; var S:string;{анализируемый текст} i:integer;{счетчик} flag:boolean;{флаг наличия искомых символов} BEGIN writeln(\'vvedite text\'); readln(s); i:=1; flag:=false; repeat if pos(s[i],possibleSymbols)=0 then flag:=true; inc(i); until flag or (i>length(s)); write(\'vo vvedennom tekste simvoly, otlichnye ot bukv i probela, \'); if flag then writeln(\'prisutstvuyut.\') else writeln(\'otsutstvuyut.\'); readln; END.
-----
Хочешь победить Excel? Спроси меня как! ;)

Ответ отправил: Botsman, Специалист
Ответ отправлен: 19.06.2009, 11:26

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251192 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Здравствуйте дорогие эксперты, вот сидел решал задачу, но она до конца не получается, и преподаватель не принимает ее. Подскажите что не так и как это исправить. За ранее спасибо)

А. Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю. Каждая запись содержит поля: фамилия сборщика, количество изделий, собранных им ежедневно в течение шестидневной недели, т.е. раздельно в понедельник, вторник и т. д. Количество записей — произвольное.

Б. Написать программу, выводящую в текстовый файл следующую информацию:
- фамилию сборщика и общее количество деталей, собранное им за неделю;
- фамилию сборщика, собравшего наибольшее число изделий, и день, когда он достиг наивысшей производительности труда

Отправлен: 19.06.2009, 15:45
Вопрос задал: Иванов Виктор Олегович, Посетитель
Всего ответов: 1
Страница вопроса >>

Приложение:
uses crt; type ceh = record fam : string; po : integer; vt : integer; sr : integer; ch : integer; p : integer; sub : integer; end; var p, i, n, k, j, x, u : integer; z : string; f : text; l : array [1..7] of integer; s : array [1..7] of ceh; begin clrscr; assign (f, \'f.txt\'); rewrite(f); write (\'vvedite kol-vo sborshikov: \'); readln (n); for i := 1 to n do begin with s[i] do begin write (\'vvedite familiyu sborshika: \'); readln (fam); writeln (f, \'familiya sborshika: \', s[i].fam); write (\'vvedite kol-vo izdelii sobranih v ponedelnik: \'); readln (po); write (f, \'kol-vo sobrannih izdelii v ponedelnik: \'); writeln (f, s[i].po); write (\'vvedite kol-vo izdelii sobranih vo vtornik: \'); readln (vt); write (f, \'kol-vo sobrannih izdelii vo vtornik: \'); writeln (f, s[i].vt); write (\'vvedite kol-vo izdelii sobranih v sredu: \'); readln (sr); write (f, \'kol-vo sobrannih izdelii v sredu: \'); writeln (f, s[i].sr); write (\'vvedite kol-vo izdelii sobranih v chetverg: \'); readln (ch); write (f, \'kol-vo sobrannih izdelii v chetverg: \'); writeln (f, s[i].ch); write (\'vvedite kol-vo izdelii sobranih v pyatnicu: \'); readln (p); write (f, \'kol-vo sobrannih izdelii v pyatnicu: \'); writeln (f, s[i].p); write (\'vvedite kol-vo izdelii sobranih v subbotu: \'); readln (sub); write (f, \'kol-vo sobrannih izdelii v subbotu: \'); writeln (f, s[i].sub); l [i] := s [i].po + s [i].vt + s [i].sr + s [i].ch + s [i].p + s [i].sub; writeln (f); end; end; close(f); clrscr; append(f); writeln (\'vvedite familiyu: \'); readln (z); writeln(f); writeln (f, z, \':\'); for i := 1 to n do if z = s [i].fam then x := s [i].po + s [i].vt + s [i].sr + s [i].ch + s [i].p + s [i].sub; writeln (x); writeln (f, \'Obshee kol-vo sobrannih izdelii: \', x); close(f); p := l [1]; j := 1; for i := 2 to n do if l [i] > p then begin j := i; p := l [i]; end; append(f); writeln(f); writeln (f, \'familiya sborshika sobravshego naibolshee chislo izdelii: \', s [j].fam); p := s [j].po; z := \'ponedelnik\'; if s [j].vt > p then begin p := s [j].vt; z := \'vtornik\'; end; if s [j].sr > p then begin p := s [j].sr; z := \'sreda\'; end; if s [j].ch > p then begin p := s [j].ch; z := \'chetverg\'; end; if s [j].p > p then begin p := s [j].p; z := \'pyatnica\'; end; if s [j].sub > p then begin p := s [j].sub; z := \'subbota\'; end; writeln (f, \'ego luchshim dnem na nedele byl \', z, \' kogda on sobral \', p, \' detalei\'); close(f); end.

Ответ отправил: _Ayl_, 7-й класс
Ответ отправлен: 19.06.2009, 17:02

Оценка ответа: 5
Комментарий к оценке:
Огромное спасибо :)

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251209 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Уважаемые эксперты помогите написать программы:
1) Написать функцию для преобразования строки в число (целое) используя ord.
ord - выражает порядковый номер элемента (его цифровой код)
2) написать функцию которая находит число букв "о" в предложении.
3)Составить процедуру для вывода двумерного масива на экран и генерация массива вида:
4321
3000
2200
1110

4)Дана строка S перевернуть все слова в ней, при этом последовательность этих слов не должна изменьяться

Отправлен: 19.06.2009, 11:04
Вопрос задал: Sirbesh, Посетитель
Всего ответов: 2
Страница вопроса >>

Приложение:
№1. uses crt; function StrToInt(s:string):longint; var i,k,j:byte; n:longint; begin n:=0;k:=1; for i:=1 to length(s) do{идем по строке} n:=n*10+ord(s[i])-48; {берем код символа, вычитаем 48 и прибавляем к получившемуся ранее числу, умноженному на 10} StrToInt:=n; end; var s:string; i,k:byte; begin clrscr; write(\'Введите строку из цифр не более 9 символов s=\'); {чтоб точно не выйти за пределы типа Longint} repeat{в цикле проверяем правильность ввода} readln(s); k:=0; for i:=1 to length(s) do if not(s[i] in [\'0\'..\'9\'])then{если есть не цифры} k:=k+1; if (k>0)or(length(s)>9)then writeln(\'Это не число! Повторите ввод.\'); until(k=0)and(length(s)<=9);{если все цифры и длина строки не более 9, все нормально} write(StrToInt(s));{вызываем фунуцию} readln end. 2) написать функцию которая находит число букв "о" в предложении. uses crt; function B(s:string):byte; var i,k:byte; begin k:=0; for i:=1 to length(s) do if s[i]=\'o\' then k:=k+1;{просто считаем буквы о в строке} B:=k; end; var str:string; begin clrscr; writeln(\'Stroka:\'); readln(str); write(\'Kol bukv o=\',B(str));{вызываем функцию} readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 19.06.2009, 12:31

Оценка ответа: 5
Комментарий к оценке:
Большое спасибо

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251195 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Приложение:
Program Perev; Uses Crt; Var slova:array[1..20] of string; i,n:integer; s,k:string; f:boolean; Procedure Perevorot(var s:string); Var t:string; e,r:integer; begin r:=length(s); t:=s; for e:=1 to length(s) do begin t[r]:=s[e]; r:=r-1; end; s:=t; end; begin Clrscr; writeln(\'Введите предложение: \'); readln(s); n:=0; k:=\'\'; for i:=1 to length(s) do begin if s[i]=\' \' then f:=false else f:=true; if f then k:=k+s[i] else k:=\'\'; if i=length(s) then begin n:=n+1; slova[n]:=k; end else begin if (s[i]<>\' \') and (s[i+1]=\' \') then begin n:=n+1; slova[n]:=k; end; end; end; writeln(\'Отредактированное предложение:\'); for i:=1 to n do begin perevorot(slova[i]); write(slova[i],\' \'); end; readkey; end.

Ответ отправил: Sky-er, 3-й класс
Ответ отправлен: 19.06.2009, 12:37

Оценка ответа: 5
Комментарий к оценке:
Спасибо!

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251197 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Доброго времени суток уважаемые эксперты, помогите пожалуйта решить задачу (см приложение). Если у кого есть возможность - решите пожалуйста, очень нужно в ближайший час решение.

Отправлен: 19.06.2009, 14:43
Вопрос задал: DancaN, Посетитель
Всего ответов: 1
Страница вопроса >>

Приложение:
uses crt; const m=4; n=5; type matr=array[1..m,1..n]of real; procedure Vvod(var mt:matr); var i,j:integer; begin writeln(\'Матрица А:\'); for i:=1 to m do begin for j:=1 to n do begin mt[i,j]:=10*random; write(mt[i,j]:5:2); end; writeln; end; end; procedure Str(mt:matr;var mx:real;var imx:byte);{ищем строку с макс произведением} var i,j:byte; p:real; begin mx:=0;imx:=1; for i:=1 to m do begin p:=1; for j:=1 to n do p:=p*mt[i,j];{считаем произведение} if p>mx then{если больше макс} begin mx:=p;{это макс} imx:=i;{нужная строка} end; end; writeln(\'Строка с максмальным произведением, равным \',mx:0:2,\'=\',imx); end; procedure Vyvod(m1:matr;imx:byte;var m2:matr;var k:byte);{создание новой матрицы} var i,j,l:byte; begin m2:=m1;{скопируем матрицу А} for i:=imx to m-1 do{от строки с макс. произведением до предпоследней строки} for j:=1 to n do m2[i,j]:=m2[i+1,j];{присваиваем значения следующей строки} k:=m-1;{новое количество строк на 1 меньше} writeln(\'Матрица В:\'); for i:=1 to k do begin for j:=1 to n do write(m2[i,j]:5:2);{выводим на экран} writeln; end; end; var a,b:matr; imax,m1:byte; max:real; begin clrscr; randomize; Vvod(a);{последовательно вызываем процедуры} Str(a,max,imax); Vyvod(a,imax,b,m1); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 19.06.2009, 16:35

Оценка ответа: 5
Комментарий к оценке:
Огромное спасибо!!!

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251207 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Уважаемые эксперты, подскажите, как можно в линейном динамическом списке, состоящем из нулей, единиц и двоек, стоящих в различной последовательности, расставить по возрастанию не применяя сортировку?

Отправлен: 19.06.2009, 12:25
Вопрос задал: Egbert26, Посетитель
Всего ответов: 2
Страница вопроса >>

Приложение:
Program List; Const cMaxElem = 2; Type TElement = 0..cMaxElem; PList = ^TList; TList = Record next : PList; data : TElement; end; TCount = array [TElement] of Word; Var p : PList; q : PList; c : TCount; Function CreateList : PList; var p : PList; q : PList; n : Word; i : Word; begin Randomize; write (\'Введите количество элементов списка: \'); readln (n); CreateList := nil; p := nil; for i := 1 to n do begin New (q); q^.data := random (cMaxElem + 1); q^.next := nil; if p = nil then begin p := q; CreateList := q; end else begin p^.next := q; p := q; end; end; end; Procedure PrintList (msg : string; p : PList); var q : PList; begin if msg <> \'\' then writeln (msg); q := p; while q <> nil do begin write (\' \', q^.data); q := q^.next; end; writeln; end; Procedure CalcElem (p : PList; var c : TCount); var q : PList; i : TElement; begin for i := 0 to cMaxElem do c [i] := 0; q := p; while q <> nil do begin Inc (c [q^.data]); q := q^.next; end; end; Procedure RebuildList (p : PList; c : TCount); var q : PList; e : TElement; k : Word; begin q := p; for e := 0 to cMaxElem do for k := 1 to c [e] do begin q^.data := e; q := q^.next; end; end; Begin { Сформируем список случайным образом } p := CreateList; { Вывести список на экран } PrintList (\'Исходный список:\', p); { Считаем элементы } CalcElem (p, c); { формируем отсортированный список } RebuildList (p, c); { Вывести список на экран } PrintList (\'Сортированный список:\', p); End.

Ответ отправил: _Ayl_, 7-й класс
Ответ отправлен: 19.06.2009, 13:27

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251201 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

program FigovuyList;

{ Максимальное значение для данных }
const MaxData=2;

type
 { Диапазон данных }
 TData=0..MaxData;

 { Узел списка }
 PNode=^TNode;
 TNode=object
 private
  data:TData;
  next:PNode;
 end;

 {
Итератор для списка }
 TIterator=object
 private
  current:PNode;
  { Конструктор }
  constructor Init(node:PNode);
 public
  { Если достигнут конец списка то true }
  function IsEndList: Boolean;
  { Возвращает значение }
  function GetValue: TData;
  { Устанавливает новое значение }
  procedure SetValue(value: TData);
  { На следующий узел }
  procedure GoNext;
 end;

 { Список }
 TList=object
 priva
 te
  head:PNode;
 public
  { Конструктор }
  constructor Init;
  { Деструктор }
  destructor Done; virtual;
  { Добавляет данные к списку }
  procedure Add(value: TData);
  { Итератор на начало списка }
  procedure GetBeginIterator(var iterator: TIterator);
 end;

procedure TList.Add(value: TData);
var
 node:PNode;
begin
 new(node);
 node^.data:=value;
 node^.next:=head;
 head:=node;
end;

procedure TList.GetBeginIterator(var iterator: TIterator);
begin
 iterator.Init(head);
end;

destructor
TList.Done;
var
 node:PNode;
begin
 while head<>nil do begin
  node:=head;
  head:=head^.next;
  dispose(node);
 end;
end;

constructor TList.Init;
begin
 head:=nil;
end;

function TIterator.GetValue: TData;
begin
 GetValue:=current^.data;
end;

procedure TIterator.GoNext;
begin
 current:=current^.next;
end;

constructor T
 Iterator.Init(node:PNode);
begin
 current:=node;
end;

function TIterator.IsEndList: Boolean;
begin
 IsEndList:=current=nil;
end;

procedure TIterator.SetValue(value: TData);
begin
 current^.data:=value;
end;

{ Выводит список на экран }
procedure PrintList(msg:String;list:TList);
var
 it:TIterator;
begin
 WriteLn(msg);
 list.GetBeginIterator(it);
 while not it.IsEndList do begin
  Write(it.GetValue,' ');
  it.GoNext;
 end;
 WriteLn;
end;

{
Сортирует согдасно условия }
procedure Solve(list:TList);
type
 TCountersArray=array[0..MaxData] of Integer;
var
 counters:TCountersArray;
 it:TIterator;
 i:TData;
begin
 for i := 0 to MaxData do begin
  counters[i]:=0;
 end;
 list.GetBeginIterator(it);
 while not it.IsEndList do begin
  Inc(counters[it.GetValue]);
  it.GoNext;
 end;
 list.GetBeginIterator(it);
 for i := 0 to MaxData do begi
 n
  while counters[i]>0 do begin
   it.SetValue(i);
   Dec(counters[i]);
   it.GoNext;
  end;
 end;
end;

const
 itemsNumber=20;

var
 list:TList;
 i:Integer;

begin
 list.Init;
 Randomize;
 for i := 1 to itemsNumber do begin
  list.Add(Random(MaxData+1));
 end;
 PrintList('List:',list);
 Solve(list);
 PrintList('Sorted List:',list);
 list.Done;
 ReadLn;
end.

List:
2 1 0 1 2 1 2 0 2 1 1 2 0 1 0 2 0 0 2 1
Sorted List:
0 0 0 0 0 0 1 1 1 1 1 1 1 2 2 2 2 2 2 2

Ответ отправил: Micren, Практикант
Ответ отправлен: 19.06.2009, 14:30

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 251203 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney: Неплохо (25 руб.) Хорошо (35 руб.) Отлично (50 руб.) БЛЕСТЯЩЕ! (75 руб.)

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

подать вопрос экспертам этой рассылки >>