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

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

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

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

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

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

Вопрос № 175485: Здравствуйте уважаемые эксперты!!помогите с моей задачкой Задание Const n =300; Type Myrecord = Record Key: integer; Name: string End; Дана таблица (тип переменной представлен выше - Myrecord) из n стро...

Здравствуйте уважаемые эксперты!!помогите с моей задачкой
Задание
Const n =300;
Type Myrecord = Record
Key: integer;
Name: string
End;
Дана таблица (тип переменной представлен выше - Myrecord) из n строк. Считая, что в таблице записи имеют различные ключи и все записи упорядочены по возрастанию значения Key, описать логическую функцию поиск (T, K, H), определяющую, есть ли в таблице Т запись со значением поля Key, равным K, и, если есть, присваивающую ее номер параметру H. Проверить работу функции.

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

Приложение:
uses crt; const n=3;{300 записией это вообще слишком, столько строк не войдет в память, можно написать 100, а для проверки 3 хватит} type myrecord=record key:integer; name:string; end; tab=array[1..n] of myrecord;{массив записей, или таблица} function Search(t:tab;k:integer;var h:integer):boolean;{заданная функция поиска} var i:integer; begin Search:=false;{полагаем что нет} h:=0;{номер ноль} for i:=1 to n do{идем по таблице} if t[i].key=k then{если ключ совпал} begin Search:=true;{поиск удачный} h:=i;{номер записи} break;{выходим из цикла, больше можно не искать} end; end; var a:tab; i,k,h:integer; f:boolean; begin clrscr; writeln(\'Введите \',n,\' записей по увеличению значения ключа :\'); for i:=1 to n do begin writeln(\'Запись \',i); repeat write(\' Ключ (число): \'); readln(a[i].key); until a[i].key>a[i-1].key;{проверяем, что вводим ключи в возрастающем порядке} write(\' Строка: \');readln(a[i].name);{здесь вводим хоть что, ибо в условии не указано} end; write(\'Введите значение поля ключ \'); readln(k); f:=Search(a,k,h);{проводим поиск} if f then writeln(\'Такая запись есть! Ее номер \',h){если удачный, сообщаем, выводим номер записи} else writeln(\'Такой записи нет!\');{если нет} readln end.

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

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

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

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

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

Здравствуйте уважаемые эксперты!прошу Вас помочь решить мне задачу:
Дан текстовый файл, в котором хранятся данные об учениках класса: фамилия, имя отчество, адрес (улица, дом, квартира) и домашний телефон, (если есть). Вывести на экран фамилию, имя и адрес тех учеников, до кого нельзя дозвониться. Текстовый файл подготовить с помощью программы Блокнот

Отправлен: 21.12.2009, 16:46
Вопрос задал: Масленникова Валерия, Посетитель
Всего ответов: 1
Страница вопроса »

Приложение:
var f:text; Imia,Familiya,Adres,s:string; i:integer; begin assign(f,\'data.txt\'); reset(f); {Открыть файл данных и читать до конца} while not eof(f) do begin readln(f,s); { Очередная запись целиком прочитывается в строку s } if s[length(s)]=\',\' { Если последний символ -- запятая, значит телефона нет } then begin i:=pos(\',\',s); { Ищется позиция первой запятой } Familiya:=copy(s,1,i-1); {Все, что до нее -- фамилия} delete(s,1,i); {Фамилия вместе с запятой удаляется } i:=pos(\',\',s); Imia:=copy(s,1,i-1); delete(s,1,i); i:=pos(\',\',s); delete(s,1,i); i:=pos(\',\',s); Adres:=copy(s,1,i-1); delete(s,1,i); {То же для имени, отчества и адреса. Отчество не запоминается} writeln(Familiya,\';\',Imia,\';\',Adres); {Вывод} end; end; close(f); readln; end.

Ответ отправил: Сергей Бендер, 3-й класс
Ответ отправлен: 21.12.2009, 19:25

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

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

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

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

Помагите, я в матрицах немного знаю. решите пожалуйста. 1) Ввести матрицу m*n и вывести на печать i,j-ый элемент, i-ю строку или j-ый столбец.

m n i j
7 4 5 -

Помогите еще решить задачу, ниже. пожалуйста очень прошу.
2)Даны действительные числа a,b,c проверить выполняется ли неравенство a<b<c

Отправлен: 21.12.2009, 17:01
Вопрос задал: Роман Никола, Посетитель
Всего ответов: 3
Страница вопроса »

program q175490;
var a,b,c: Real;
begin
        Write('a='); ReadLn(a);
        Write('b='); ReadLN(b);
        Write('c=');
ReadLn(c);
        If((a<b)and(b<c))then
         WriteLn('Неравенство a<b<c выполняется')
        else WriteLn('Неравенство a<b<c не выполняется');
        WriteLn('Для завершения нажмите ENTER...');
        ReadLn;
end.

Ответ отправил: LfiN, Студент
Ответ отправлен: 21.12.2009, 17:32

Оценка ответа: 5

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

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

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

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

Отвечает Мироненко Николай Николаевич, Студент :
Здравствуйте, Роман Никола.

Ниже комментированый код:

uses crt; {подключаем модуль crt}
{максимальная размерность}
const nMax = 50;
      mMax = 50;
{объявляем матрица(двумерный массив)}
var Arr : array[1 .. nMax, 1 .. mMax] of Integer;
    N, M, I, J : Integer;
{Начало}
BEGIN
clrscr;
randomize;
{для генератора псевдослучайных чисел}

 write('Введите значение N: ');
  read(N);
 write('Введите значение M: ');
  read(M);
 
 {цикл заполнения матрицы случайными числами}
 For I := 1 to N do
  For J := 1 to M do
   begin
      Arr[I][J] := Random(10);
   end;

 writeln;
 writeln('Матрица  ',N,'*',M);
 writeln;

 {цикл вывода матрицы
 }
 For I := 1 to N do
  begin
     For J := 1 to M do
     write(Arr[I][J],' ');
     writeln;
  end;

 writeln;

 write('Введите значение I: ');
  read(I);
 write('Введите значение J: ');
  read(J);

 writeln;
 writeln('Значение Arr[',I,'][',J,'] = ',Arr[I][J]);
 writeln;

 write(J,'-ый столбец: ');
 writeln;

 {цикл вывода столбца}
 For I := 1 to N do
  begin
     writeln;

    write(Arr[I][J]);
  end;

readkey;
END. {конец}

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

Оценка ответа: 5

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

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

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

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

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

Приложение:
Program q175490_2; Var a,b,c:integer; Begin write (\'a=\'); write (\'b=\'); write (\'c=\'); if (a>b) and (a>c) then writeln (\'net\') else if (b>c) then writeln (\'net\') else writeln (\'Da, neravenstvo a<b<c vipolnyaetsa!\'); readln; End.

Ответ отправил: Аня Ласточка, 2-й класс
Ответ отправлен: 21.12.2009, 21:53

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

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

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

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

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

Отправлен: 21.12.2009, 18:01
Вопрос задал: Масленникова Валерия, Посетитель
Всего ответов: 2
Страница вопроса »

program q175491;
var i,j,k,l: Integer;
    sum: Longint;
    b:boolean;
begin
        sum:=0;
       
WriteLn('Трехзначные числа, в которых нет четных цифр');
        WriteLn('Ноль будет считаться за четное число:');
        for i:=100 to 999 do {Перебираем все трехзначные числа}
           begin
                k:=i;
                While (k>0) do
                   begin
                        l:=k mod 10;
                        if odd(l) then b:=true{Если цифра нечетная то логической
                                       
         переменной ставим значение "истина"}
                        else begin            {Иначе логическая переменная принимает значение "ложь"}
                                  b:=false;
                                  break;      {Выход из цикла}
                             end;
                        k:=k div 10;
                   end;
                if b then begin
                               Write(i:4);
                               sum:=sum+i;

                         end;
           end;
        WriteLn;
        WriteLn('Сумма всех выше приведенных чисел: ',sum);
        WriteLn('Для завершения нажмите ENTER...');
        ReadLn;
end.

Ответ отправил: LfiN, Студент
Ответ отправлен: 21.12.2009, 19:01

Оценка ответа: 5

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

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

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

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

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

Приложение:
Program q175491; Var n, a, b, c, s: integer; Begin s:=0; For n:=100 to 999 do begin a:=n div 100; b:=n div 10 mod 10; c:=n mod 10; if (a mod 2=1) then s:=s+a; if (b mod 2=1) then s:=s+b; if (c mod 2=1) then s:=s+c; end; Writeln (\'s=\',s); readln; End.

Ответ отправил: Аня Ласточка, 2-й класс
Ответ отправлен: 21.12.2009, 21:40

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

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

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

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

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

Отправлен: 21.12.2009, 18:16
Вопрос задал: Марс Егоров, Посетитель
Всего ответов: 1
Страница вопроса »

  0.5000    0.5314    0.3610    0.7026    0.7729    0.1717    0.8187
   0.6618
   0.8722    0.9257    0.5820    0.9748    0.5706    0.3409    0.5597    0.7933
   0.4173    0.8679    0.2747    0.8279    0.1977    0.3442    0.2180    0.8066
   0.6626    0.8295    0.9660    0.7467    0.3257    0.7790    0.9818    0.6492
   0.3743    0.7873    0.2728    0.4765    0.9925    0.3879    0.3273    0.5203
   0.6411    0.6435    0.0008    0.5217    0.0929    0.5096    0.2745    0.1507
   0.2705    0.2081
Максимальный из четны
 х:     0.9748

Приложение:
CONST maxN = 50; {Число компонентов} FileName = \'175494.dat\'; VAR f: file of Real; r: Real; i: Integer; max: Real; BEGIN {Заполняем случайными числами} Assign(f, FileName); {Присваиваем файоловой переменной имя} Rewrite(f); {Создаем файл} for i:=1 to maxN do begin r:= Random; Write(f, r); end; Close(f); {Закрываем и откроем для чтения и будем считывать} Reset(f); Read(f, r); {Этот первый - нечетный} Read(f, max); {Этот - в максимальный} Write(r:9:4,\' \',max:9:4,\' \'); i:=3; While not EOF(f) do begin Read(f, r); Write(r:9:4,\' \'); if NOT ODD(i) then {Если четный. odd возвращает ИСТИНА, если нечетный} if r > max then max := r; inc(i); {Увеличиваем счетчик} end; WriteLn; WriteLn(\'Максимальный из четных: \', max:10:4); END.
-----
Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss, Академик
Ответ отправлен: 23.12.2009, 20:25

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

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

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

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

Решите пожалуйста задачу на языке Паскаль. я скажу вам большле Спасибо .Вывести на печать строку: «Необходимо много работать», полученную путем вставки слов в фразе: «Необходимо работать».

Отправлен: 21.12.2009, 18:16
Вопрос задал: Илюха едорович, Посетитель
Всего ответов: 2
Страница вопроса »

program q175495;
var s,s1: String;
begin
        s:='Необходимо работать';
        s1:='много ';
        insert(s1,s,12); {Процедура вставляет
в строку s подстроку s1 начиная с позиции 12}
        WriteLn(s);
        WriteLn('Для завершения нажмите ENTER...');
        ReadLn;
end.

Ответ отправил: LfiN, Студент
Ответ отправлен: 21.12.2009, 19:17

Оценка ответа: 5

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

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

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

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

Отвечает Колесников Иван Владимирович, 4-й класс :
Здравствуйте, Илюха едорович!
Текст программы в приложении.

Приложение:
var s: string; begin s := \'Необходимо работать\'; Insert(s, 11, \' много\'); WriteLn(s); end.

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

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

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

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

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

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

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