IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V  1 2 >  
Closed Topic Открыть новую тему 
> Типичные экзаменационные задачи, строки, массивы + теория
сообщение
Сообщение #1


Гость






1.Дана символьная строка и натуральное число N. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить длину слова, стоящего на N-ом месте и вывести все слова, состоящие из такого же количества символов, что и найденное слово. Если N больше количества слов в предложении, то вывести соответствующее сообщение.
2.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Найти самое длинное симметричное слово.
3.Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов в строке, оканчивающихся на заданный символ.
4.Даны две символьные строки. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести слова, которые встречаются в обеих строках.
5.При решении задач применять процедуры и функции.
Дан массив целых чисел (п=15), заполненный случайным образом числами из промежутка (-20,50).
1.Удалить из него все элементы, в которых есть цифра 5.
2.Вставить число К после всех элементов, кратных своему номеру (К вводить с клавиатуры).
3.Поменять местами первый положительный и последний отрицательный элементы.
6.При решении задач применять процедуры и функции.
Дан массив целых чисел (п=20), заполненный случайным образом числами из промежутка (-45,95).
1.Удалить из него все элементы, кратные 7 и принадлежащие промежутку [a, b] (a и b вводить с клавиатуры).
2.Вставить число К между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (К вводить с клавиатуры).
3.Переставить в обратном порядке часть массива между элементами с номерами К1 и К2, включая их. Сделать проверку корректности ввода К1 и К2, если ввод неправильный, то ничего не делать..

Сообщение отредактировано: мисс_граффити -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Привет, всем!
Короче срочно нужны ответы на следующие вопросы у меня 1 день! Как можно подробнее. Спасибо!
Цитата
1.      PASKAL. Основные понятия языка. Алфавит, выражения.
2.      PASCAL. Структура описания программы.
3.      PASKAL. Операторы присваивания, ввода, вывода.
4.      PASKAL. Простые типы данных.
5.      PASKAL. Описание переменных, констант и типов.
6.      PASCAL. Оператор условного перехода.
7.      PASKAL. Оператор выбора (варианта).
8.      PASKAL. Оператор безусловного перехода на метку.
9.      PASKAL. Операторы цикла. Оператор с предусловием.
10.      PASKAL. Операторы цикла. Оператор с постусловием.
11.      PASKAL. Операторы цикла. Оператор цикла с параметром.
12.      PASKAL. Структурированные типы данных. Тип массив (одномерный).
13.      PASKAL. Структурированные типы данных. Тип массив (двумерный).
14.      PASKAL. Подпрограммы процедуры.
15.      PASCAL. Формальные и фактические параметры.
16.      PASCAL. Подпрограммы функции.
17.      PASKAL. Структурированные типы данных. Тип файл. Запись в файл.
18.      PASKAL. Структурированные типы данных. Тип файл. Чтение из файла.
19.      PASCAL. Текстовые файлы. Процедуры работы с ними.
20.      PASKAL. Строковый тип данных. Операции со строками.
21.      Структура программного обеспечения компьютера.
22.      MS-DOS. Понятие файла. Каталоги и подкаталоги. Путь к файлу. Операции с каталогами.
23.      MS-DOS. Понятие файла. Каталоги и подкаталоги. Путь к файлу. Операции с файлами.
24.      Операционная система компьютера. Основные функции и загрузка операционной системы.
25.      Устройства ввода и вывода информации.
26.      Основные устройства аппаратной части информационной системы и их функциональное назначение.
27.      Операционная система WINDOWS. Работа с файлами и каталогами.
28.      Подготовка дисков к работе. Форматирование дисков.
29.      ОС Windows. Работа с дисками. Логические и физические дефекты. Программы по обслуживанию дисков: проверка дисков, дефрагментация.
30.      Запоминающие устройства и их основные характеристики. Единицы емкости запоминающих устройств.
31.      Операционная система WINDOWS. Меню “ПУСК”.
32.      Внешние запоминающие устройства
33.      Архивация. Программы – архиваторы. Примеры.
34.      Операционная система WINDOWS. Создание ярлыков.
35.      Вирусы и антивирусные программы.
36.      Операционная система WINDOWS. Панель управления.
37.      Файлы и каталоги. Имена, расширения, атрибуты.
38.      Командные файлы. Назначение, создание. Примеры.
39.      Основная память персонального компьютера.
40.      Операционная система WINDOWS. Утилита быстрого поиска. Программа Проводник.


Как вы заметили вопросы тут не только по Паскалю... так что извиняйте, время поджимает :-/

Сообщение отредактировано: volvo -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


To Clane:
N1:
Код

program Clane_N_1;
uses crt;
var
  t,s:string;
  n:byte;
  i:integer;
  k:integer;
  d:integer;
  b:boolean;
begin
  ClrScr;
  Write('Input string -> '); Readln(s);
  Write('Input N -> ');Readln(n);
  i:=1;b:=False;
  k:=0;
  while i<=length(s) do
  begin
     d:=0;
     while (i<=length(s)) and (s[i]<>' ') do begin inc(d); inc(i); end;
     while s[i]=' ' do i:=i+1;
     k:=k+1;
     if k=n then begin b:=True; break; end;
  end;
  if b then writeln('Symbols: ',d)
     else writeln('No correct data!');
  writeln('Word: ');
  i:=1;
  k:=0;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if d=length(t) then writeln(t);
     i:=i+1;
  end;
  readln;
end.

N2:
Код

program Clane_N_2;
uses crt;
var
  t,s,longSim :string;
  max         :integer;
  i           :integer;

function Simmetric(ss:string):boolean;
var  k,j:integer;
begin
     Simmetric:=True;
     k:=length(ss) div 2;
     for j:=1 to k do
      if ss[j]<>ss[length(ss)-j+1] then begin Simmetric:=false;break;end;
end;

begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1; max:=0;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if Simmetric(t) then
      if length(t)>max then
      begin
         max:=length(t);
         longSim:=t;
      end;
     while s[i]=' ' do i:=i+1;
  end;
  writeln('Very long simmetric word: ',longSim);
  readln;
end.

N3:
Код

program Clane_N_3;
uses crt;
var
  t,s :string;
  ch  :char;
  i,k :integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');  readln(ch);
  i:=1;k:=0;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if t[length(t)]=ch then k:=k+1;
     while s[i]=' ' do i:=i+1;
  end;
  writeln('OutPut: ',k);
  readln;
end.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


To Romario:
Ты что не сможешь рассказать про ПУСК или создание ярлыков  ;D :-[


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Ivs - Тока я тя умоляю не уходи, давай хоть расскажи про Паскалевские вопросы... ;D У меня через 12 часов экзамен, хоть что-то надо знать :-[
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Ну дак как? :-[
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Алфавит языка TP включает буквы, цифры,шестнадцатеричные цифры,специальные символы, пробелы и зарезервированные слова.
Буквы-это буквы латинского алфавита от a до z и от A до Z, а также знак подчеркивания _

Цифры- арабские цифры от 0 до 9

Специальные символы TP это символы:
+ - * / = , ' . : ; < > [ ] () {} ^ @ $ #
К специальным символам относятся также следующие пары символов :
<> <=  >= := (* *) (. .)
В программах эти символы низя разделять пробелами!
Ну там еще про зарезервированные слова немного расскажи..


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Структура описания программы :

Program  {Название программы}

Uses      {Подключение unit'ов}

Const   {Объявляются разные константы}

Label   {Определяются метки}

Type  {Объявляются пользовательские типы}

Var   {Место для переменных}

Begin  {Основные операторы}
End.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Операторы присваивания :

" := "
Пример
A:=B {в А теперь значение B}

Пример:

Обен двух переменных значениями:

c:=a;
a:=b;
b:=c;

Оператор вывода WriteLn(input,'что выводить')
где input - имя файла куда будет осуществляться вывод

ReadLn(input,'что вводить');
-----------------------------------


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
10. PASKAL. Операторы цикла. Оператор с постусловием.

Оператор имеет вид:
repeat stat until exp;
здесь вначале выполняется stat, а затем вычисляется логическое значение exp.Процесс продолжается пока значение exp=ложь, в противном случае цикл прекращается.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Ура! smile.gif Ivs, а аси нет у тебя, так бы проще было...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
9. PASKAL. Операторы цикла. Оператор с предусловием.

Оператор имеет вид:
while exp do stat;
Вначале вычисляется логическое значение exp, если это значение истинно то выполняется оператор stat, затем exp проверяется опять.Цикл заканчивается когда exp=ложь.
пример:
while c < 10 do begin
write('равно', c);
writeln;
c:=c+2;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Сразу встречный вопрос: что значат эти символы, для чего они в Паскале?

^ @ $ #
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Простые типы данных

К простым типам относятся порядковые и вещественные типы.
Порядковые типы отличаются тем, что каждый имеет конечное число возможных значений. Эти значения можно определенным образом упорядочить, и => с каждым из них можно сопоставить некоторое целое число - порядковый номер значения.

Вещественные типы , сторго говоря, тоже имееют конечное число значений, которое определяется форматом внутреннего предстовления вещественного числа. Однако количество возможных значений вещ. типов не столько велико, что сопоставить с каждым из них целое число просто не представляется возможным.

Pred(x)- функция возвращает предыдущее значение порядкового типа.

Succ(x)- возвращает следующее значение порядкового типа, которое соответствует порядковому номеру ORD(x)+1 т.е
ORD(Succ(x))=ORD(x)-1;

Назови еще там целые типы и перичисли:
Byte
ShortInt
Word
Integer
LongInt
--------------
И Вещественных:
Real
Double
extended
comp
--------------


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


^ - для объявления типизированного указателя (вы наверное еще такого не проходили?)
@ -для присвоения переменной ссылочного типа некоторое значение;
$ - ставиться перед 16-ичными числами
#N - что бы вывести ASCII символ с номером N


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
11. PASKAL. Операторы цикла. Оператор цикла с параметром.

Еще называют цикл со счетчиком!Есть 2 разновидности:
1)  for i:=exp1 to exp2 do stat;
при выполнении сначала вычисляется exp1 затем вычисляется значение exp2 далее пробегаются все значения от exp1 до exp2.Когда значение exp1>exp2 цикл не выполняется.
2)for i:=exp1 downto exp2 do stat;
аналогичен первому только в нем переменная i не увеличивается, а уменьшается на 1.
пример:
c:=0;
for i:=1 to 5 do
begin
c:=c+sqr(i);
i:=i+2;
end;
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Цитата
8. PASKAL. Оператор безусловного перехода на метку.  

GOTO Metka {Без комментариев!!}


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Цитата
Еще называют цикл со счетчиком!Есть 2 разновидности:
1)  for i:=exp1 to exp2 do stat;
при выполнении сначала вычисляется exp1 затем вычисляется значение exp2 далее пробегаются все значения от exp1 до exp2.Когда значение exp1>exp2 цикл не выполняется.
2)for i:=exp1 downto exp2 do stat;
аналогичен первому только в нем переменная i не увеличивается, а уменьшается на 1.
пример:
c:=0;
for i:=1 to 5 do
begin
c:=c+sqr(i);
i:=i+2;
end;


Количетво итераций цикла (те сколько раз выполнится) считается по формуле:
I:=exp2-exp1+1


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
15. PASCAL. Формальные и фактические параметры.  

Формальные параметры-это те параметры, имена которых указаны в заголовке подпрограммы.
Фактические параметры-это те, имена которых подставляются в оператор вызова подпрограммы.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


Пионер
**

Группа: Пользователи
Сообщений: 89
Пол: Мужской

Репутация: -  0  +


Это всё?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V  1 2 >
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 6:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name