Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Турбо Паскаль. Программирование на Pascal
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]
Модераторы: paradise, KMA
  

Ridge



Новичок

Просто вывести, ведь если брать одномерный, то его не запишешь в массив и выведешь

Всего сообщений: 19 | Присоединился: май 2007 | Отправлено: 27 мая 2007 18:29 | IP
andryxa



Новичок

Помогите решить задачи на Паскале PLEEEEEEEEEEAAAAAAAASEEEEEE…!
1.Пусть да список учащихся и для каждого из них N оценок по M предметам. Переместите в конец списка тех учащихся, у которых средний бал меньше, чем средний бал класса. Напишите функции для перемещения одной строки в конец списка, для вычисления среднего бала.
2. Дан нетипизированный файл info.dat, содержащий текстовую информацию о сотрудниках: ФИО, дата рождения (день, месяц, год), адрес (улица,дом,квартира). Запишите в новый файл ФИО и день рождения сотрудников, которые празднуют день рождения в данном месяце. Название месяца вводится с клавиатуры.
3. Пусть имеются два дерева P1 и Р2. Написать программу, проверяющую равенство этих деревьев.
4. Пусть имеются n городов. Некоторые из них соединены дорогами известной длины. Найдите кратчайший маршрут, начинающийся в заданном городе и проходящий через все остальные.

Всего сообщений: 2 | Присоединился: июнь 2007 | Отправлено: 2 июня 2007 16:01 | IP
Guest



Новичок

Вы можете посоветовать книгу по Паскалю чтобы в ней было разобрано много сложных заданий , как в АнтиДемидовиче ?

Всего сообщений: Нет | Присоединился: Never | Отправлено: 7 июня 2007 20:00 | IP
KMA



Долгожитель


Вы можете посоветовать книгу по Паскалю чтобы в ней было разобрано много сложных заданий , как в АнтиДемидовиче ?


Это является оффтопиком для данного раздела. Суди сам, для этого создан специальный раздел книги.

А так, что ты подразумеваешь "сложный заданий". Для кого-то сортировка массива, нахождение рекурентным способом факториала являются сложными задачами. Если же тебе надо разобрать задачи связанные с написание уже задача "потяжелее", скажем тетрис, змейка, или же с аппартаными прерываниями, то это можно добиться только ища по инету соответствующие форумы, скажем forum.pascal.net.ru один из них.

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 9 июня 2007 0:02 | IP
pivovar


Новичок

Пожалуйста помогите решить задание по Паскалю
Вычислить с точностью e=10 в степени -3 сумму ряда общий член ряда, общий член которой вычисляется по формуле n!/(2n!). Вычисление общего члена ряда оформить в виде попрограммы функции.
результат вывести на экран

Всего сообщений: 10 | Присоединился: декабрь 2006 | Отправлено: 16 июня 2007 20:20 | IP
Guest



Новичок

Дан массив A[1...n] целых чисел. Определить сумму элементов массива. Элементы массива вводятся с клавиатуры.

Плиз помогите решить нужно завтра утром сдать

Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 июня 2007 11:10 | IP
Guest



Новичок

Var
A:array[1..25] of integer;
i,max:byte;
summa:integer;
Begin
summa:=0;
writeln('Ввод матрицы');
writeln('Введите размерность матрицы');readln(max);
For i:=1 to max
do begin writeln('Введите элемент матрицы');
              readln(A);
    end;
For i:=1 to max do summa:=summa+A;
writeln('Cумма числе равна',summa);
readln;
end.      

Всего сообщений: Нет | Присоединился: Never | Отправлено: 17 июня 2007 12:02 | IP
KMA



Долгожитель


Пожалуйста помогите решить задание по Паскалю
Вычислить с точностью e=10 в степени -3 сумму ряда общий член ряда, общий член которой вычисляется по формуле n!/(2n!). Вычисление общего члена ряда оформить в виде попрограммы функции.
результат вывести на экран



Смотри на форуме, она решалась точно...

По поводу последнего сообщения: Ставь пробелы между, [ i ], иначе читает как "выделить курсивом".

-----
Gentoo, FreeBSD 7.2, PHP, JavaScript (jQuery), Python, Shell
Помогаю с задачами только на форуме.
Все мои действия четко согласуются с правилами раздела. Поэтому никаких претензий и обид.

Всего сообщений: 940 | Присоединился: декабрь 2005 | Отправлено: 19 июня 2007 19:52 | IP
Francyz



Новичок

ПОЖАЛУЙСТА ПОМОГИТЕ! составить блок-схему для каждой процедуры отдельно.
Valerver112@mai.ru

program my_libe_programm;
uses crt, graph, MY;
label 10;
var
i:integer; {объявление переменных}
x:char;
procedure zd1;
var
a,b:integer;
begin
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (2);
 window (17,5,63,15);
 clrscr;
 textcolor (4);
 writeln('             =====| Задача 1 |=====');
 writeln('==============================================');
 writeln('  Сpавниваем числа с использованием AND,OR,NOT');
 writeln('==============================================');
 write('Запpос числа а: '); readln(a); {запpос числа в пеpеменную а}
 write('Запpос числа b: '); readln(b); {запpос числа в пеpеменную b}
 writeln('Сpавнение чисел ',a,' и ',b);
  if (a>b) and (b>10) then writeln(a,'>',b,'  И  ',b,'>10'); {выполнение условия}
  if (b>a) or  (a<5)  then writeln(b,'>',a,'  ИЛИ  ',a,'<5'); {выполнение условия}
  if not (a<5) then writeln¬(a,' не < 5'); {выполнение условия}
 writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
 readln;
end;

procedure zd2;
label 11,12,13;
var
a,b:real; {объявление переменных}
c,k:char; {объявление переменных}
begin
 13:
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (3);
 window (17,5,63,17);
 clrscr;
 writeln('            =====| Задача 2 |=====');
 writeln('==============================================');
 writeln('           Опеpатоpа выбоpа CASE');
 writeln('           По типу калькулятоpа.');
 writeln('==============================================');
 write('Запpос числа а: ');readln(a); {запpос числа в пеpеменную а}
 write('Запpос числа b: ');readln(b); {запpос числа в пеpеменную b}
 writeln('Выбеpите опеpацию + - * / :');11: gotoxy(28,8); readln(c); {выбор операции}
  case c of
   '+': begin writeln('Результат: ',a:5:2,'+',b:5:2,'=',(a+b):5:2); goto 12; end;
   '-': begin writeln('Результат: ',a:5:2,'-',b:5:2,'=',(a-b):5:2); goto 12; end;
   '*': begin writeln('Результат: ',a:5:2,'*',b:5:2,'=',(a*b):5:2); goto 12; end;
   '/': begin writeln('Результат: ',a:5:2,'/',b:5:2,'=',(a/b):5:2); goto 12; end;
  end;
 goto 11;
  12:
  writeln('==============================================');
  writeln('      Нажмите Enter для повтоpа задачи или ');
  writeln('                    или ');
  write('         ESC для выхода в главное меню...');
 repeat
 k:=readkey; {ожидание нажатия клавиши}
  if k=#13 then goto 13;
 until (k<>#13) or (k<>#27);
 writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/');
end;

procedure zd3;
var
i,s:integer; {объявление переменных}
begin
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (5);
 window (17,5,62,10);
 clrscr;
 writeln('           =====| Задача 3 |=====');
 writeln('==============================================');
 writeln('        Использование цикла |FOR TO DO|');
 writeln('         для сложения чисел от 0 до 100');
 readln;
 textbackground (0);
 clrscr;
 textbackground (15);
 window (20,5,60,22);
 clrscr;
 textcolor (6);
 s:=0;
  for i:=0 to 100 do
 begin
   delay(6000);
   s:=s+i;
   writeln('Шаг: ',i,' сумма: ',s,' ');
 end;
 writeln('Сумма чисел от 0 до 100 pавна: ',s);
 writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
 write('          ДОСВИДАНИЯ');
 readln;
end;

procedure zd4;
var
x: array [1..10] of real;
i,n: integer;
begin
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (13);
 window (19,5,59,15);
 clrscr;
 textcolor (0);
 writeln('            =====| Задача 4 |=====');
 writeln('=======================================');
 writeln('   Использование одномерного массива');
 writeln('=======================================');
 write(#218);
  for i:=1 to 27  do
 write(#196);
 writeln(#191);
 writeln(#179,'Введите размерность массива',#179);
 write(#192);
  for i:=1 to 27 do
 write(#196);
 writeln(#217);
 write('=');
 readln(N);
 i:=1;
  while (i<=N) do
 begin
   write('x(',i,')= ');
   readln(x);
   i:=i+1
 end;
 writeln('====МАССИВ====');
  for n:=1 to n do
 write(x[n]:6:1);
 write(#13,#10);
  for n:=n downto 1 do
 write(x[n]:6:1);
 readln;
end;

procedure zd5;
label 15,11;
var
a: array [1..10,1..10] of real;
i,j,n,m: integer;
k: char;
begin
 15:
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (7);
 window (1,1,39,10);
 clrscr;
 textcolor (15);
 writeln('      =====| Задача 5 |=====');
 writeln('=======================================');
 writeln('     Использование двумерного массива ');
 writeln('=======================================');
 write(#218);
  for i:=1 to 34  do
 write(#196);
 writeln(#191);
 writeln(#179,'Введите размерность массива i и j ',#179);
 write(#192);
  for i:=1 to 34 do
 write(#196);
 writeln(#217);
 readln(n,m);
  for i:=1 to n do
  for j:=1 to m do
 begin
   write('a(',i,',',j,')=');
   readln(a[i,j])
 end;
 textbackground (0);
 clrscr;
 textbackground (6);
 window (2,2,66,19);
 clrscr;
 writeln('     Введенная матpица ');
 writeln('==========================');
  for i:=1 to n do
   begin
      for j:=1 to m do
     write(a[j,i]:8:2);
     writeln;
   end;
 write('Нажмите Enter для повтоpа задачи,',#13,#10,' ESC для выхода в главное меню...');
 k:=#15;
 repeat
 k:=readkey;
  if k=#27 then goto 11;
  if k=#13 then goto 15;
 until (k=#13) or (k=#27);
 readln;
11:
end;

procedure zd6;
label 10,19;
var
i:integer;
k:char;
begin
 19:
 textbackground (0);
 clrscr;
 textbackground (4);
 window (25,25,42,26);
 textcolor(15);
 clrscr;
 writeln('HELLO! Iam Rock.');
 writeln('-+-+-+-+-+-+-+-+-+-+-+-+-+-');
 textcolor(2);
 abc(22,33);
 readln;
  repeat
  k:=readkey;
   if k=#27 then exit;
   if k=#13 then goto 19;
  until (k=#13) or (k=#27);
 readln;
end;

procedure zd7;
label 16;
var grdr, grmd, i, j, g:integer;
k:char;
begin
 randomize;
 grdr:=detect;
 Initgraph(grdr,grmd,{'c:\tp\bgi'}'c:\hdd\pascal\bgi');
 setbkcolor(blue);
 g:=getbkcolor;
 i:=10; j:=10;
 while i<getmaxX do
 begin
   setcolor(white);
   setfillstyle(9,white);
   putpixel(random(640),random(480),white);
   fillellipse(i,j,6,6);
   delay(7000); setcolor(g);
   i:=i+random(5);
   j:=j+random(4);
 end;
 readln; closegraph;
end;

procedure zd8;
label 15;
type
 tablica=record
 name:string[15];
 family:string[10];
 nomer:string[6];
 index:integer;
 end;
var
 f,ff: file of tablica;
 i,j,x,a1,z:integer;
 n:char;
 a:tablica;
 begin {zd8}
   15:
   clrscr;
   textbackground(0);
   clrscr;
   textbackground(2);
   window(30,5,72,17);
   clrscr;
   textcolor(15);
   writeln('Выбоp действия');
   writeln('/\/\/\/\/\/\/\/\');
   writeln('1 - OPEN');
   writeln('2 - EDIT');
   writeln('3 - NEW');
   writeln('4 - DELETE');
   writeln('5 - Exit');
   assign(f,'c:\112.ttx');
   {$I-}
   reset(f);
    if IOresult<>0 then
     begin
       writeln('file not found');
       rewrite(f)
     end;
   {$I+}
   readln(n);
    case n of
    '3':
       begin
         reset(f);
         j:=filesize(f);
         seek(f,j);
         write('Имя: '); readln(a.name);
         write('Фамилия: '); readln(a.family);
         write('Номеp тел: '); readln(a.nomer);
         a.index:=j+1;
         write(f,a);
         close(f);
       end;
    '2':
       begin
         writeln('-Редактиpование-');
         write('Введите номеp записи: '); readln(x);
         assign(f,'c:\112.ttx');
         assign(ff,'c:\113.ttx');
         {$I-}
         reset(f);
         rewrite(ff);
          if IOResult<>0 then begin Write('Файл не найден'); readln; exit; end;
         {$I+}
         a1:=filesize(f);
          for i:=1 to a1 do
         begin
           read(f,a);
            if a.index=x then
           begin
             write(  'Новое имя: ':20);readln(a.name);
             write(  'Новая фамилия: ':20); readln(a.family);
             write(  'Новый телефон: ':20); readln(a.nomer);
             write('Запись успешно заменина.');
             write(ff,a);
           end
            else
             begin
               write(ff,a);
             end;
         end;
         erase(f);
         close(f);
         rename(ff,'c:\112.ttx');
         close(ff);
         readln;
       end;
    '4':
       begin
         writeln('-Удаление-');
         write('Введите номеp записи: '); readln(x);
         assign(f,'c:\112.ttx');
         assign(ff,'c:\113.ttx');
         {$I-}
         reset(f);
         rewrite(ff);
          if IOResult<>0 then begin Write('Файл не найден'); readln; exit; end;
         {$I+}
         a1:=filesize(f);
         z:=0;
          for i:=1 to a1 do
           begin
             read(f,a);
              if a.index=x then write('Запись найдена и удалена.') else
             begin
               z:=z+1;
               a.index:=z;
               write(ff,a);
             end;
           end;
         erase(f);
         close(f);
         rename(ff,'c:\112.ttx');
         close(ff);
        readln;
       end;
    '1':
       begin
         reset(f);
         j:=filesize(f);
          for i:=1 to j do
         begin
           read(f,a);
           writeln(a.index:4,a.name:15,' ',a.family:10,' ',a.nomer:6);
         end;
         readln;
       end;
    '5':
       begin close(f); exit; end;
        end;
        goto 15;
       end;

begin
 10:
 clrscr;
 gotoxy(0,0);
 textbackground (0);
 clrscr;
 textbackground (15);
 window (24,5,50,20);
 clrscr;
 textcolor (6);
 write(#218);
  for i:=1 to 24 do
 write(#196);
 writeln(#191);
 textcolor (9);
 writeln(#179,' Created by Francyz!    ',#179);
 textcolor (6);
 writeln(#179,' *******************    ',#179);
 writeln(#179,' Выполнить задачу #1    ',#179);
 writeln(#179,' Выполнить задачу #2    ',#179);
 writeln(#179,' Выполнить задачу #3    ',#179);
 writeln(#179,' Выполнить задачу #4    ',#179);
 writeln(#179,' Выполнить задачу #5    ',#179);
 writeln(#179,' Выполнить задачу #6    ',#179);
 writeln(#179,' Выполнить задачу #7    ',#179);
 writeln(#179,' Выполнить задачу #8    ',#179);
 writeln(#179,' |======================',#179);
 writeln(#179,' Завеpшение пpогpаммы 0 ',#179);
 write(#192);
  for i:=1 to 24 do
 write(#196);
 writeln(#217);
 write('Выбеpите задачу: ');
 readln(x);
  case x of
   '1':
      begin zd1; goto 10; end;
   '2':
      begin zd2; goto 10; end;
   '3':
      begin zd3; goto 10; end;
   '4':
      begin zd4; goto 10; end;
   '5':
      begin zd5; goto 10; end;
   '6':
      begin zd6; goto 10; end;
   '7':
      begin zd7; goto 10; end;
   '8':
      begin zd8; goto 10; end;
   '0': exit;
  end;
goto 10;
end.

Всего сообщений: 1 | Присоединился: июнь 2007 | Отправлено: 20 июня 2007 23:08 | IP
Liv Kristine


Новичок

Люди!!! Помогите решить задачи по Паскалю!!! Плиииииииииз
1. Дано число n и n целых чисел. Найти среднее арифметическое проложительных чисел
2. Дано число n и n целых чисел. Найти максимальный элемент и его номер

Всего сообщений: 1 | Присоединился: июнь 2007 | Отправлено: 21 июня 2007 14:26 | IP

Эта тема закрыта, новые ответы не принимаются

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 ]

Форум работает на скрипте © Ikonboard.com