Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

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

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

Boriss Статус: Академик Рейтинг: 1469 ∙ повысить рейтинг »

_Ayl_ Статус: Студент Рейтинг: 1436 ∙ повысить рейтинг »

Micren Статус: Бакалавр Рейтинг: 1298 ∙ повысить рейтинг »

Вопрос № 175441: Здравствуйте Уваж. Эксперты помогите с написанием следующей программы.. Задание Написать программу, проверяющую, является ли строка символом идентификатором в языке Паскаль? ...

Здравствуйте Уваж. Эксперты помогите с написанием следующей программы..
Задание
Написать программу, проверяющую, является ли строка символом идентификатором в языке Паскаль?

Отправлен: 19.12.2009, 23:01
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
var s: string; i: byte; f: boolean; begin ReadLn(s); f := False; if s[1] in [\'A\'..\'Z\', \'a\'..\'z\', \'_\']) then begin f := True; for i := 2 to length(s) do if not(s[i] in [\'A\'..\'Z\', \'a\'..\'z\', \'_\', \'0\'..\'9\']) then begin f := False; Break; end; end; if f then WriteLn(\'Это идентификатор\'); end.

Ответ отправил: Колесников Иван Владимирович, 4-й класс
Ответ отправлен: 20.12.2009, 00:09

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

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

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

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

Здравствуйте Уважаемые эксперты прошу написать следующую программку .....
Задние.
Решето Эратосфена. Составить программу поиска простых чисел в числовом промежутке [1..n]. Число n вводится с клавиатуры.

Отправлен: 19.12.2009, 23:16
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
var a : array [1..5000] of boolean; n,x,y : integer; begin write(\'n=\');readln(n); a[1] := false;{число 1 не простое} for x:=2 to N do a[x] := true; {пока все считаем простыми} for x:= 2 to N div 2{round(sqrt(N))} do for y:= 2 to N div x do {перебираем все возможные произведения} a[x*y] := false;{это составное} for x:=1 to N do {вычеркиваем его} if a[x] then write(x,\' \');{что осталось, выводим} readln; end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 20.12.2009, 10:02

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

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

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

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

Здравствуйте Эксперты вот еще одна задачка..
Задание.
Дано натуральное число n. Составить программу, печатающую все цифры, не входящие в десятичную запись данного натурального числа в порядке возрастания.

Отправлен: 19.12.2009, 23:46
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 2
Страница вопроса »

Ответ отправил: Колесников Иван Владимирович, 4-й класс
Ответ отправлен: 20.12.2009, 00:05

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

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

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

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

Отвечает Аня Ласточка, 2-й класс :
Здравствуйте, luba tixomirova! Смотрите приложение. Желаю удачи!

Приложение:
Program q175444; Var n:integer; s: Set of 0..9; i:Byte; Begin Write(\'n=\');readln(n); s:=[0..9]; While n<>0 do begin s:=s-[n mod 10]; n:=n div 10; end; For i:=0 to 9 do if (i in s) then write(i:3); readln; End.

Ответ отправил: Аня Ласточка, 2-й класс
Ответ отправлен: 20.12.2009, 01:19

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

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

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

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

Здравствуйте уважаемые Эксперты прошу составить след программку....
Задание..
Дано время, описанное следующим образом:
Type time = Record
H: 0..23;
M, s: 0 .. 59
End;
а)Описать логическую функцию для проверки, предшествует ли время t1 времени t2 в рамках суток.
б)Описать процедуру, присваивающую параметру t1 время на секунду большее времени t (учесть время суток).

Отправлен: 20.12.2009, 00:46
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 2
Страница вопроса »

Приложение:
Program q175446_b; Type time=record sek:0..59; min:0..59; hour:0..23; end; Var now,next:time; Procedure Print(tim:time); Begin Write(\' \',tim.sek,\' \'); Write(\' \',tim.min,\' \'); Writeln(\' \',tim.hour); End; Function Check:boolean; Begin with now do Check:=(sek>0)and(sek<60)and(min>0)and(min<60)and(hour>0)and(hour<24); end; BEGIN With now do begin sek:=59; min:=59; hour:=23; end; Print(now); if Check then begin if (now.hour=23)and(now.min=59)and(now.sek=59)then with next do begin sek:=0; min:=0; hour:=0; end else if (now.min=59)and(now.sek=59) then with next do begin sek:=1; min:=1; hour:=now.hour+1; end else if (now.sek=59) then with next do begin sek:=1; min:=now.min+1; hour:=now.hour; end else with next do begin sek:=now.sek+1; min:=now.min; hour:=now.hour; end; Print(next); end else writeln(\' Incorrect time\'); readln; END.

Ответ отправил: Аня Ласточка, 2-й класс
Ответ отправлен: 20.12.2009, 02:37

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

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

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

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

Отвечает Пупорев Юрий Борисович, Специалист :
Здравствуйте, luba tixomirova!
Полное решение задачи в приложении.

Приложение:
type tyme=record h: 0..23; m,s: 0..59; end; function Prov(a:tyme):boolean;{проверка правильности ввода времени} begin Prov:=(a.h in [0..23]) and (a.m in [0..59])and(a.s in [0..59]) end; function Before(a,b:tyme):boolean;{проверка передшествует, или нет} begin Before:=(a.h<b.h) or((a.h=b.h)and(a.m<b.m)){если час меньше или часы одинаковые, но минуты меньше} or((a.h=b.h)and(a.m=b.m)and(a.s<b.s)){или и часы и минуты одинаковые, но секунды меньше} end; procedure AddSec(var a:tyme);{добавление секунды} begin if a.s<59 then a.s:=a.s+1{если hh.mm.ss} else if(a.s=59)and(a.m<59)then{hh.mm.59} begin a.s:=0; a.m:=a.m+1; end else if(a.s=59)and(a.m=59)and(a.h<23)then{hh.59.59} begin a.s:=0; a.m:=0; a.h:=a.h+1; end else{23.59.59} begin a.s:=0; a.m:=0; a.h:=0; end; end; procedure Print(var a:tyme); begin write(a.h,\':\'); if a.m<10 then write(\'0\',a.m,\':\') else write(a.m,\':\'); if a.s<10 then write(\'0\',a.s) else write(a.s); writeln; end; var t1,t2:tyme; begin repeat writeln(\'vvedite vremya t1\'); readln(t1.h,t1.m,t1.s); if not Prov(t1)then writeln(\'Время введено неверно. Повторите ввод.\'); until Prov(t1); repeat writeln(\'vvedite vremya t2\'); readln(t2.h,t2.m,t2.s); if not Prov(t2)then writeln(\'Время введено неверно. Повторите ввод.\'); until Prov(t2); clrscr; write(\'t1= \'); Print(t1); write(\'t2= \'); Print(t2); if before(t1,t2) then writeln(\'Время t1 предшествует времени t2\') else writeln(\'Время t1 не предшествует времени t2\'); writeln(\'Время е1 на секунду больше:\'); AddSec(t1); Print(t1); readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 20.12.2009, 09:47

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

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

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

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

Здравствуйте еще раз уважаемые эксперты Вот дали 10 задач как итоговое семестровое задание приходится выкладывать по 1 задачке....
Задание
Дан двумерный массив размером 6 Х 7, заполненный случайным образом. Удалить все столбцы, в которых первый элемент больше заданного.

Отправлен: 20.12.2009, 01:16
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
uses crt; const n=6;{строки} t=7;{столбцы} var a:array[1..n,1..7] of integer; m,i,j,k,u:byte; z:integer; begin clrscr; randomize; m:=t;{присвоим значение количества столбцов новой переменой, т.к. это число будет меняться} writeln(\'Исходная матрица:\'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(50)+10;{случайные числа от 10 до 59} write(a[i,j]:4); end; writeln; end; writeln; writeln(\'Удалить столбцы, в которых первый элемент больше заданного числа\'); write(\'Введите число z=\'); readln(z); u:=0; for j:=m downto 1 do{идем по столбцам справа, чтоб после удаления не изменились индексы еще не проверенных столбцов} if a[1,j]>z then{если первый элемент больше заданного числа} begin u:=1;{фиксируем} for k:=j to m-1 do{сдвигаем последние столбцы к этому на 1, столбец исчезает} for i:=1 to n do a[i,k]:=a[i,k+1]; m:=m-1;{убавляем количество столбцов} end; if u=0 then write(\'Нет ни одного столбца по условию, матрица не изменена!\') else if m=0 then write(\'Все столбцы удалены!\') else begin writeln(\'Матрица с удаленными столбцами:\'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; end; readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 20.12.2009, 08:19

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

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

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

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

Здравствуйте Эксперты вот уже выкладываю не пераую задачу просто без ваше помощи ни куда (((...
Задание
Натуральные числа вводятся с клавиатуры до тех пор, пока не будет введено число «нуль» (признак окончания ввода). Написать программу для определения цифры, которая встречается во всех введенных числах.

Отправлен: 20.12.2009, 01:31
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
type sbyte=set of 0..9;{объявим тип множество цифр} procedure Mnoz(n:longint; var s:sbyte);{опишем процедуру создания множества из числа} var k:byte; begin s:=[];{сначала множество пустое} while n>0 do{пока число не ноль} begin k:=n mod 10;{отделяем с конца по одной цифре} s:=s+[k];{включаем их в множество} n:=n div 10;{берем число без последней цифры и все повторяем} end; end; var a:longint; m1,m:sbyte; i:byte; begin writeln(\'Вводите натуральные числа, окончание ввода ноль\'); readln(a);{вводим первое число} if a=0 then{если вдруг сразу ввели ноль} begin write(\'Введено единственное число 0, программа завершена\'); readln; exit; end else{иначе} begin Mnoz(a,m1);{создаем множество цифр из числа} repeat{повторяем это в цикле} readln(a);{читаем следующее} if a<>0 then{если это не ноль} begin Mnoz(a,m);{создаем множество} m1:=m1*m;{делаем пересечение этого множества с исходным} end; until a=0;{ввели ноль - конец} if m1=[] then write(\'В числах нет ни одной общей цифры!\'){если множество пустое} else{иначе} begin write(\'Во всех числах есть цифры \'); for i:=0 to 9 do{проверяем все цифры} if i in m1 then write(i,\' \');{если есть в итоговом множестве, выводим} end; end; readln end.

Ответ отправил: Пупорев Юрий Борисович, Специалист
Ответ отправлен: 20.12.2009, 07:54

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

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

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

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

Увадаемые эксперты, нужна ваша помощь в следующем вопросе.
у меня есть процедура в процедуре.
и мне нужно во внешней процедуре как-то использовать параметр,который я получил во внутренней процедуре
когда я во внешней использую параметр внутренней,он пишет неизвестный идентификатор...
чего предложите?
вот код.
значит задание:дана строка
смотрим на нее,и если длина какого-то слова равна длине простого числа Фибоначчи,то заменить это "слово" на "оволс"
процедура фиб рассматривает фибоначчность слова,в ней функция рассматривает простоту
процедура собственношифт заменяет слово,если параметр(который как раз и нужно использовать здесь) тру

Отправлен: 20.12.2009, 22:16
Вопрос задал: Камынин Владислав Дмитриевич, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
{ ∙ Вопрос № 175478 Рассылка: / КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль) Увадаемые эксперты, нужна ваша помощь в следующем вопросе. у меня есть процедура в процедуре. и мне нужно во внешней процедуре как-то использовать параметр,который я получил во внутренней процедуре когда я во внешней использую параметр внутренней,он пишет неизвестный идентификатор... чего предложите? вот код. значит задание:дана строка смотрим на нее,и если длина какого-то слова равна длине простого числа Фибоначчи,то заменить это "слово" на "оволс" процедура фиб рассматривает фибоначчность слова,в ней функция рассматривает простоту процедура собственношифт заменяет слово,если параметр(который как раз и нужно использовать здесь) тру } program MyShift; Var l:string; Procedure Fib(a:integer;var sign:boolean); var f1,f2,f3:integer; Function Simple(s:integer):boolean; var d:integer; Begin simple:=true; for d:=2 to s div 2 do if s mod d=0 then simple:=false; End; Begin if (a=1) or (a=2) then sign := true else begin sign := false; f1:=1; f2:=1; f3:=f1+f2; while f3<a do begin f1:=f2; f2:=f3; f3:=f1+f2; end; sign := (f3=a) and simple(a); end; End; Procedure ActuallyShift(var a:string); Var i,j,k, z:integer; u:char; sign: boolean; Begin a:= a+\' \'; { принудительный пробел в конец строки } z:=1; for i:=1 to length(a) do begin if a[i]=\' \' then begin fib(i-z,sign); if sign then begin for j:=z to (z+i-1)div 2 do begin u:=a[j]; a[j]:=a[z+i-j-1]; a[z+i-j-1]:=u; end; end; for j:=z to i do if j<length(a) then write (a[j]); { не печатаем последний пробел } z:=i+1; end; end; delete(a,length(a),1); { последний пробел больше не нужен, удаляем его } End; BEGIN write(\'l=\'); readln(l); ActuallyShift(l); readln; END.

Ответ отправил: lamed, Студент
Ответ отправлен: 21.12.2009, 23:51

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

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

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

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

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

Здравствуйте Уважаемые эксперты вот моя задачка!!
Задание
Описать функцию min(X) для определения минимального элемента линейного массива Х,
введя вспомогательную рекурсивную функцию min1(k), находящую минимум среди последних
элементов массива X, начиная с k-того.

Отправлен: 20.12.2009, 22:46
Вопрос задал: luba tixomirova, Посетитель
Всего ответов: 1
Страница вопроса »

uses crt;   {подключаем модуль crt для работы с функциями}
                 {clrscr - очистка экрана и readkey - ожидание нажатия клавиши}
const MAX = 1000; {константа максимальной размерности массива
Х}

var {Объявляем переменные и массив Х}
  X : array[0 .. MAX] of integer;
  CurrSize, I, K, MinV : integer;
  {Обычная функция поиска минимального значения в массиве Х}
  function Min(X : array of integer) : integer;
   var
         I : integer; {переменная счётчик(для индексации массива)}
   begin
      MinV := X[CurrSize]; {минимальным значением пока будет последний эл. массива}
      {цикл по I для поиска минимального значения}
  
     For I := 1 to CurrSize do
       begin
          if MinV > X[I] then MinV := X[I]; {условие нахождения минимально при каждой итерации цикла}
       end;
      Min := MinV; {присваиваем функции минимальное значение массива}
   end;
  {Дополнительная рекурсивная функция(т.е функция, которая вызывает сама себя)}
  {Приделите изучению работы этой функции особое внимание!!!}  
  function Min1(K : integer) : integer;
   begin
      {перед вызовом функции в переменную MinV будет
помещено значение X[CurrSize]} 
      if MinV > X[K] then MinV := X[K]; {если начиная из K каждый последующий < MinV, делаем его минимальным}
      if K <> CurrSize then Min1 := Min1(K + 1); {если не достигли конца массива снова вызываем функцию}
      Min1 := MinV; {всё, достигли конца массива, присваиваем функции минимальное значение от K и до конца}
   end;
BEGIN {начало}
clrscr; {функция очистки экрана}
 writeln;
 write('Введит
 е значение размерности массива: ');
  read(CurrSize); {вводим с клавиатуры значение размерности}

 writeln;
 {цикл ввода}
 For I := 0 to CurrSize do
  begin
     write('X[',I,']=');
      read(X[I]);
  end;

  writeln;
  writeln('Исходный массив X:');
 {цикл вывода}
 For I := 0 to CurrSize do
  begin
     write(X[I],' ');
  end;

  writeln;
  writeln;
  write('Минимальное значение массива от первого и до последнего
эл.: ',Min(X));
  writeln;
  writeln;
  write('Введите значение K: ');
   read(K); {вводим K}
  {перед вызовом рекурсивной функции инициализируем переменную MinV}
  MinV := X[CurrSize];

  writeln;
  write('Минимальное значение массива от K-го и до последнего: ',Min1(K));
readkey; {ожидаем нажатия клавиши}
END.{конец}

Ответ отправил: Мироненко Николай Николаевич, Студент
Ответ отправлен: 21.12.2009, 02:41

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

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

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

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

Оценить выпуск »
Нам очень важно Ваше мнение об этом выпуске рассылки!

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