Типичные экзаменационные задачи, строки, массивы + теория Опции

[Clane]

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, если ввод неправильный, то ничего не делать..

Сообщение отредактировано: мисс_граффити - 13.06.2007 13:57

[Romario]

Привет, всем!
Короче срочно нужны ответы на следующие вопросы у меня 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 - 17.12.2004 6:05

[Ivs]

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.

[Ivs]

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

[Romario]

Ivs - Тока я тя умоляю не уходи, давай хоть расскажи про Паскалевские вопросы... ;D У меня через 12 часов экзамен, хоть что-то надо знать :-[

[Romario]

Ну дак как? :-[

[Ivs]

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

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

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

[Ivs]

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

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

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

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

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

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

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

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

[Ivs]

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

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

Пример:

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

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

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

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

[AlaRic]

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

Оператор имеет вид:
repeat stat until exp;
здесь вначале выполняется stat, а затем вычисляется логическое значение exp.Процесс продолжается пока значение exp=ложь, в противном случае цикл прекращается.

[Romario]

Ура! Ivs, а аси нет у тебя, так бы проще было...

[AlaRic]

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

Оператор имеет вид:
while exp do stat;
Вначале вычисляется логическое значение exp, если это значение истинно то выполняется оператор stat, затем exp проверяется опять.Цикл заканчивается когда exp=ложь.
пример:
while c < 10 do begin
write('равно', c);
writeln;
c:=c+2;
end;

[Romario]

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

^ @ $ #

[Ivs]

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

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

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

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

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

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

[Ivs]

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

[AlaRic]

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;

[Ivs]

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

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

[Ivs]

Еще называют цикл со счетчиком!Есть 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

[AlaRic]

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

Формальные параметры-это те параметры, имена которых указаны в заголовке подпрограммы.
Фактические параметры-это те, имена которых подставляются в оператор вызова подпрограммы.

[Romario]

Это всё?