Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Март 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на языке Pascal


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

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

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

lamed
Статус: Практикант
Рейтинг: 2145
∙ повысить рейтинг » 		Boriss
Статус: Академик
Рейтинг: 1815
∙ повысить рейтинг » 		_Ayl_
Статус: Студент
Рейтинг: 1716
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / Pascal (Паскаль)

Номер выпуска:1042
Дата выхода:10.03.2010, 15:00
Администратор рассылки:Калашников О.А., Руководитель
Подписчиков / экспертов:333 / 203
Вопросов / ответов:3 / 6

Вопрос № 177062: Здравствуйте, Уважаемые эксперты! помогите пожалуйста, нужно написати программу: http://rfpro.ru/upload/1759 ...

Вопрос № 177063: Здравствуйте, Уважаемые эксперты! помогите пожалуйста, нужно написати программу: http://rfpro.ru/upload/1760...
Вопрос № 177064: Здравствуйте, Уважаемые эксперты! помогите пожалуйста, нужно написати программу: http://rfpro.ru/upload/1761...
Вопрос № 177062:

Здравствуйте, Уважаемые эксперты!
помогите пожалуйста, нужно написати программу:

http://rfpro.ru/upload/1759

Отправлен: 05.03.2010, 14:54
Вопрос задал: sanekvseti, Посетитель
Всего ответов: 2
Страница вопроса »

Отвечает Andrew Kovalchuk, 6-й класс :
Здравствуйте, sanekvseti.
Решение задания в приложении

Приложение:

-----
Временная неудача лучше временной удачи

Ответ отправил: Andrew Kovalchuk, 6-й класс
Ответ отправлен: 05.03.2010, 15:58
Номер ответа: 259909

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259909 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает F®ost, Советник :
    Здравствуйте, sanekvseti.
    Решение задачи:
    Код:
    Program labs;
     uses crt;
    var
     a:array [1..10,1..10] of integer;
     b:array [1..9,1..10] of integer;
     s:integer;
     p:real;
     i,j:byte;
    begin
     clrscr;
     s:=0;
     p:=1;
     for i:=1 to 10 do
      for j:=1 to 10 do
begin
       write ('input a[',i,',',j,']: ');
       readln(a[i,j]);
      end;
     for i:=1 to 9 do
      for j:=1 to 10 do begin
       b[i,j]:=a[i,j]-a[10,j];
       if (i=4) and (j mod 2=0) then s:=s+b[i,j];
      end;
     for i:=1 to 10 do
      for j:=i to 10 do p:=p*a[i,j];
     writeln('massiv b:');writeln;
     for i:=1 to 5 do begin
      for j:=1 to 4 do write(a[i,j],' ');
      writeln;
     end;
     writeln('proizvedenie: '
 ;,p);
     writeln('summa: ',s);
     readln;
    end.

    -----
    От вопроса к ответу, от проблемы к решению

    Ответ отправил: F®ost, Советник
    Ответ отправлен: 05.03.2010, 23:09
    Номер ответа: 259927
    Беларусь, Минск
    Тел.: 375292792018
    Организация: Минский Промтранспроект
    Адрес: ул. В.Хоружей, 13, г. Минск, Беларусь
    Адрес сайта: http://www.mptp.by

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259927 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 177063:

    Здравствуйте, Уважаемые эксперты!
    помогите пожалуйста, нужно написати программу:

    http://rfpro.ru/upload/1760

    Отправлен: 05.03.2010, 14:57
    Вопрос задал: sanekvseti, Посетитель
    Всего ответов: 2
    Страница вопроса »

    Отвечает Andrew Kovalchuk, 6-й класс :
    Здравствуйте, sanekvseti.
    Текст программы прилагается

    Приложение:

    -----
    Временная неудача лучше временной удачи

    Ответ отправил: Andrew Kovalchuk, 6-й класс
    Ответ отправлен: 05.03.2010, 17:00
    Номер ответа: 259912

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259912 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает F®ost, Советник :
    Здравствуйте, sanekvseti.
    Решение задачи:
    Код:
    program labs;
     uses crt;
    const
     t=7;
    type
     matr=array [1..t,1..t] of real;
     vect=array [1..t*t] of real;
    var
     a,b:matr;
     c,d:vect;
     i,j,r:byte;
     k,kl,n,nl:real;

    procedure InputMatr(var x:matr; m:byte);
    begin
     for
i:=1 to m do
      for j:=1 to m do begin
       write('element ',i,j,': ');
       readln(x[i,j]);
      end;
    end;

    procedure OutputMatr(var x:matr; m:byte);
    begin
     for i:=1 to m do begin
      for j:=1 to m do write(x[i,j]:5:2,' ');
      writeln;
     end;
    end;

    procedure OutputVect(var y:vect; m:byte);
    begin
     for i:=1 to m do write(y[i]:4,' ');
    end;

    procedure CreatVect(var x:matr; 
 m:byte; y:vect; h,p:real);
    begin
     r:=1;
     for i:=1 to m do
      for j:=1 to m do if (x[i,j]>h) and (x[i,j]<p) then begin
       y[r]:=a[i,j];
       r:=r+1;
      end;
    end;

    begin
     clrscr;
     writeln('Input a:');
     InputMatr(a,7);
     writeln;
     write('Input k: ');
     readln(k);
     write('Input kl: ');
     readln(kl);
     writeln('Input b:');
     InputMatr(b,5);
     writeln;
     write('Input n: ');
     readln(n);
     write('Input nl:
');
     readln(nl);
     clrscr;
     CreatVect(a,7,c,k,kl);
     writeln('matr :');
     OutputMatr(a,7);
     writeln;
     writeln('vect c:');
     OutputVect(c,7);
     writeln;
     CreatVect(b,5,d,n,nl);
     writeln('matr b:');
     OutputMatr(b,5);
     writeln;
     writeln('vect d:');
     OutputVect(d,5);
     readln;
    end.

    -----
    От вопроса к ответу, от проблемы к решению

    Ответ отправил: F®ost, Советник
    Ответ отправлен: 05.03.2010, 21:07
    Номер ответа: 259920
    Беларусь, Минск
    Тел.: 375292792018
    Организация: Минский Промтранспроект
    Адрес: ул. В.Хоружей, 13, г. Минск, Беларусь
    Адрес сайта: http://www.mptp.by

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259920 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Вопрос № 177064:

    Здравствуйте, Уважаемые эксперты!
    помогите пожалуйста, нужно написати программу:

    http://rfpro.ru/upload/1761

    Отправлен: 05.03.2010, 14:58
    Вопрос задал: sanekvseti, Посетитель
    Всего ответов: 2
    Страница вопроса »

    Отвечает Andrew Kovalchuk, 6-й класс :
    Здравствуйте, sanekvseti.
    Чем не устроил пример из методички?
    Текст программы в приложении

    Приложение:

    -----
    Временная неудача лучше временной удачи

    Ответ отправил: Andrew Kovalchuk, 6-й класс
    Ответ отправлен: 05.03.2010, 17:14
    Номер ответа: 259913

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259913 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

    • Отвечает F®ost, Советник :
    Здравствуйте, sanekvseti.
    Решение задачи:
    Код:
    Program lab;
     uses crt;
    var
     f,g:text;
     p:byte;
     s,l:string;
    begin
     assign(f,'f.dat'); assign(g,'g.dat');
     reset(f); rewrite(g);
     while not eof(f) do begin
       readln(f,s);
       p:=length(s);
       l:=copy(s,0,6)+copy(s,p-3,3);
       writeln(g,l);
       end;
     close(f);
     close(g);
    end.

    -----
    От вопроса к ответу, от проблемы к решению

    Ответ отправил: F®ost, Советник
    Ответ отправлен: 05.03.2010, 20:37
    Номер ответа: 259919
    Беларусь, Минск
    Тел.: 375292792018
    Организация: Минский Промтранспроект
    Адрес: ул. В.Хоружей, 13, г. Минск, Беларусь
    Адрес сайта: http://www.mptp.by

    Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
    Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259919 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

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

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

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)
    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.03.2010
    В избранное