Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите с задачами, задачи на паскаль 
:(
    Опции темы
Юля2009
  Дата 12.6.2009, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.6.2009

Репутация: нет
Всего: нет
Здраствуйте, я у вас новенькая, но нуждаюсь очень в вашей помощи!
Немогу решить задачки по паскалю, очень трудно даеться ОАП
вот задачки:
  • Дан текстовый файл и некоторое слово. Напечатать те строки файла, которые содержат данное слово.
  • Распечатать список учеников, фамилии которых начинаются на букву А, с указанием места жительства, возраста и пола.
  • Дан двумерный массив, содержащий 5 строк и 3 столбца. Элементами массива являются целые числа. Упорядочить массив по неубыванию элементов первого столбца.
  • Дан двумерный массив, содержащий N*N элементов. Написать подпрограмму, выполняющую замену нулями всех положительных элементов.

Очень, очень, очень надеюсь на вашу помощь... иначе меня просто придушат)) smile 
Если можно выкладывайте решения прямо вот этот топик
Заранее всем спасибо! smile 
PM MAIL   Вверх
Данкинг
Дата 12.6.2009, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Юля2009 @  12.6.2009,  14:39 Найти цитируемый пост)
иначе меня просто придушат))

О, прикольно, надеюсь, фотки с видео потом выложат? smile 

А серьёзно - с такими просьбами ("сделайте за меня") - в "центр помощи". smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Юля2009
Дата 12.6.2009, 15:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.6.2009

Репутация: нет
Всего: нет
Цитата

О, прикольно, надеюсь, фотки с видео потом выложат?  

А мне не смешно, мне плакать охото  smile 
PM MAIL   Вверх
Keeper89
Дата 12.6.2009, 15:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58
Цитата(Юля2009 @  12.6.2009,  16:03 Найти цитируемый пост)
А мне не смешно, мне плакать охото

Во время семестра учиться надо было, чем вы судя по всему не занимались, и плакать бы сейчас не пришлось.
Вот 4 задача:
Код

program N4;
var
    A: array [1..50, 1..50] of integer;
    N, i, j: integer;
begin
    write('Введите N<=50: '); readln(N);
    { Ввод элементов }
    for i := 1 to N do
        for j := 1 to N do
        begin
            write('A[',i,',',j,']='); readln(A[i,j]);
        end;
    { Замена }
    for i := 1 to N do
        for j := 1 to N do
            if A[i,j] > 0 then A[i,j] := 0;
    { Вывод измененного массива }
    for i := 1 to N do
    begin
        for j := 1 to N do
            write(A[i,j]:3, ' ');
        writeln;
    end;
end.


Это сообщение отредактировал(а) Keeper89 - 12.6.2009, 15:47


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Юля2009
Дата 12.6.2009, 16:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.6.2009

Репутация: нет
Всего: нет
Keeper89, не всем даеться программирование хорошо, как некоторым. А на 4ый мне расписали чуть чуть по другому:

Код

uses crt;
type mas=array[1..100,1..100] of integer;
 
procedure zamena(var a:mas;n:integer);
var i,j:integer;
begin
  for i:=1 to n do
  for j:=1 to n do
    if a[i,j]>0 then a[i,j]:=0;
end;
 
var a:mas;
    i,j,n:integer;
begin
  clrscr;
  writeln('Vvedite Razmer:');readln(n);
  for i:=1 to n do
  for j:=1 to n do
   begin
     write('a[',i,',',j,']=');
     readln(a[i,j]);
   end;
  writeln('Vvedennaja matrica:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(a[i,j]:4);
    end;
    writeln;
  end;
  zamena(a,n);
  writeln('Matrica posle obrabotki:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.


И кому сейчас верить? вам или ему? Я в замешательстве... smile 
PM MAIL   Вверх
bems
Дата 12.6.2009, 16:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: нет
Всего: 88
а почему одно должно противоречить другому. Скомпилируй, запусти, и сравни как работает.


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Keeper89
Дата 12.6.2009, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58
Цитата(Юля2009 @  12.6.2009,  17:17 Найти цитируемый пост)
А на 4ый мне расписали чуть чуть по другому:

Так вам уже все расписали?


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Юля2009
Дата 12.6.2009, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.6.2009

Репутация: нет
Всего: нет
Цитата

Так вам уже все расписали? 

Нет не все, только 4ый, а больше жалко нету(((
А кто нибудь за отдельную плату может сделать все 4 задачи + к ним блок схемы нарисовать?
PM MAIL   Вверх
Данкинг
Дата 12.6.2009, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Юля2009 @  12.6.2009,  17:17 Найти цитируемый пост)
И кому сейчас верить? вам или ему?

Верить надо тому, чей код работает правильно. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 12.6.2009, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58
Цитата(Юля2009 @  12.6.2009,  21:42 Найти цитируемый пост)
А кто нибудь за отдельную плату может сделать все 4 задачи + к ним блок схемы нарисовать? 

Здесь, за плату, вряд ли smile А вот помочь - пожалуйста. Может быть даже остальные задачи кто-нибудь поможет сделать.
Вот, было время, написал 3:
Код

program N3;
var
    A: array [1..5, 1..3] of integer;
    N, i, j, temp: integer;
begin
    { Ввод элементов }
    for i := 1 to 5 do
        for j := 1 to 3 do
        begin
            write('A[',i,',',j,']='); readln(A[i,j]);
        end;
    { Вывод массива }
    writeln('Исходный массив:');
    for i := 1 to 5 do
    begin
        for j := 1 to 3 do
            write(A[i,j]:3, ' ');
        writeln;
    end;
    { Замена }
    for i := 1 to 4 do
        for j := i + 1 to 5 do
            if A[i,1] > A[j,1] then
            begin
                temp := A[i,1];
                A[i,1] := A[j,1];
                A[j,1] := temp;
                temp := A[i,2];
                A[i,2] := A[j,2];
                A[j,2] := temp;
                temp := A[i,3];
                A[i,3] := A[j,3];
                A[j,3] := temp;
            end;
    { Вывод измененного массива }
    writeln('Измененный массив:');
    for i := 1 to 5 do
    begin
        for j := 1 to 3 do
            write(A[i,j]:3, ' ');
        writeln;
    end;
end.



--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Юля2009
Дата 13.6.2009, 16:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 12.6.2009

Репутация: нет
Всего: нет
Keeper89, спасибо вам большое
Держите большой большой поцелуй  smile 
PM MAIL   Вверх
Keeper89
Дата 13.6.2009, 20:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: нет
Всего: 58
Пожалуйста, Юля2009 ;)

Это сообщение отредактировал(а) Keeper89 - 13.6.2009, 20:34


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1467 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.