Новые сообщения · Правила  
  • Страница 4 из 5
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Разные задачи
Разные задачи
Помогите написать несколько программ, буду очень благодарен:

1)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.

Формат выходных данных
Необходимо вывести  все четные элементы массива (то есть те элементы, которые являются четными числами).

2)Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.

Формат выходных данных
Необходимо вывести  количество элементов массива, которые больше предыдущего элемента в этом массиве.

3)Напишите программу, которая циклически сдвигает элементы массива вправо (0-й элемент становится 1-м, 1-й становится 2-м, ..., последний становится 0-м, то есть массив {3, 5, 7, 9} превращается в массив {9, 3, 5, 7}).
Формат входных данных
Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.

Формат выходных данных
Выведите элементы получившегося массива.


и последняя 

4)
Напишите программу, которая переставляет соседние элементы массива (1-й элемент поменять с 2-м, 3-й с 4-м и т.д. Если элементов нечетное число, то последний элемент остается на своем месте).
Формат входных данных
Сначала задано число N — количество элементов в массиве (1N35). Далее через пробел записаны N чисел — элементы массива.

Формат выходных данных
Необходимо вывести  получившийся массив.

Добавлено (14.03.13, 19:40)
---------------------------------------------
по поводу второй задачи, выдаёт ошибку, посмотрите в чём ошибка, 

program A1;
var a: array [0..100] of integer;
n,i: integer;
begin
  readln(n);
  for i:=1 to n do read(a[i]);
  i:=1;
  while i<=n do
    begin
      writeln(a[i]);
      i:=i+2;  
    end;
end.

Добавлено (15.03.13, 16:50)
---------------------------------------------
ЖИДЫ ЕБАНЫЕ

61 | Автор: dimcik11 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
К 20 спортивным журналистам обратились с просьбой назвать трех лучших хоккеистов сезона. Информация от каждого журналиста поступает независимо от других, вводится в файл прямого доступа.
 Используя сформированный файл, определить лучшего хоккеиста сезона по сумме очков (за первое место - 3,за второе место- 2,за третье- 1).    за рание буду очень благодарен...
62 | Автор: ShadoWw | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Дана строка символов, состоящая из прописных и строчных латинских букв, цифр от 0 до 9 и пробелов. Группы символов, разделенные пробелами(одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из строчки все слова, являющиеся десятичными числами. Вывести на печать полученную строчку. Заранее огромное спасибо!!
63 | Автор: AlexanderBry | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Выводить на экран строку, состоящую из случайного (до 25) числа повторений заданного символа. Вывод окончить при повторении подряд двух строк с одинаковым числом символов.
64 | Автор: Asya_Teddy | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
с помощью текстового редактора создать файл,содержайщий текст, длина которого не превышает 1000 символов(длина строки текста не должна превышать 70 символов)
Имя файла должно иметь расширение DAT. 
написать программу которая.
1)выводит текст на экран дисплея.
2)определяет количество предложений в тексте.
65 | Автор: Postal | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
65 | Автор: Postal | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового Года. Через ''case * of''
66 | Автор: mrSowin | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Составить программу для решения приведенного ниже задания, используя команду case. Задать входные данные так, чтобы выбор был из четырех-семи альтернатив. Использовать, где надо, переменные типа integer для чисел, сhar для букв. Команду write применить только к переменным.

1)Ввести номер квартиры в доме. Вывести количество комнат и проживающих в ней.
(номер квартиры 33,количество комнат 1,проживающих 3)


24
67 | Автор: ryaba | 2015-05-21, 16:07 | Изменено: ryaba - Чт, 2013-10-03, 21:36   |  Репутация: [ + 0 ]


24
67 | Автор: ryaba | 2015-05-21, 16:07 | Изменено: ryaba - Чт, 2013-10-03, 21:36   |  Репутация: [ + 0 ]
помогите написать программу пожалуйста.
Вычислить среднее квадратичное значение для каждой из N последовательностей вещественных чисел (с переменным числом членов), размещенной в текстовом файле INPUT32.TXT.
Формат файла
1я строка - N
2я строка - число членов последовательности; набор чисел первой последовательности, через пробел
...
N+1я строка - число членов последовательности; набор чисел последовательности N, через пробел
68 | Автор: Snake95 | 2015-05-21, 16:07 | Изменено: Snake95 - Ср, 2013-10-16, 18:52   |  Репутация: [ + 0 ]
Помогите, пожалуйста!
Вводится целое неотрицательное число N (N<=10^100). Нужно найти сумму цифр числа на местах, начиная с цифры старшего разряда, а затем берем каждую третью после него. (Например, для числа 702364 сумма равна 10, т.е. 7+3).
69 | Автор: s01907 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
помогите, пожалуйста, составить программу

В каждом из 3-х вузов может изучаться множество языков программирования: basic, pascal, prolog, clipper, cu, logo. Ввести с клавиатуры множество языков, изучаемых в каждом из вузов. Построить множество В, содержащее названия языков, изучаемых только в одном из 3-х вузов.
70 | Автор: darmenden | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
70 | Автор: darmenden | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
В некоторой знаковой системе для кодирования одного символа требуется 7 бит памяти.Определить объем памяти для кодирования сообщения длины n, а также найти алфавит данной знаковой системы.

Помогите
71 | Автор: eguarkozlov | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Юный информатик заинтересовался, сколько можно составить N-значных чисел из 
цифр 5 и 9, в которых три одинаковые цифры не стоят рядом.
Требуется написать программу, которая поможет юному информатику определить
количество названных выше чисел.
Описание входных данных
В единственной строке входного файла input.txt записано целое число N
(1 ≤ N ≤ 30).
Описание выходных данных
В единственную строку выходного файла output.txt нужно вывести одно число –
N-значных чисел из цифр 5 и 9, в которых три одинаковые цифры не стоят рядом.
72 | Автор: qwerty566818554 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Постановка задачи:
1. Даны три строки; длина каждой – не более 20 символов. Для каждой 
строки определить последовательность чисел, отвечающих номерам 
символов этой строки из таблицы кодировки. Создать текстовый файл 
и записать в него эти последовательности чисел.
2. Из полученного текстового файла считать числа, отвечающие номерам 
символов в таблице кодировки. По этим числам «восстановить» строки 
и вывести их на экран.
Теоретическая часть.
Сущность задачи – осуществить достаточно простое шифрование 
информации, когда каждому символу текстовой строки ставится в 
соответствие число (номер этого символа из таблицы кодировки ASCII). Для 
её решения следует написать две отдельные программы: первая будет 
осуществлять запись чисел в текстовый файл («шифратор»), вторая –
воспроизводить строки по считанным из этого файла числам 
(«дешифратор»).
Указания к решению.
Схема решения:
1) «Шифратор»
1. Ввод трёх строк.
2. Создание текстового файла.
3. Определение реальной длины каждой строки L.
4. Определение номера для каждого символа в пределах строки (1..L).
5. Запись этого номера в файл.
6. После выполнения п. 3-5 для последней строки – закрытие файла.
2) «Дешифратор»
1. Открытие файла для чтения.
2. Чтение числа из файла.
3. Определение символа по считанному номеру и прибавление его в 
конец строковой переменной.
4. Выполнение п. 2,3, пока не достигнут конец строки в файле.
5. Выполнение п. 2-4, пока не достигнут конец файла.
6. Вывод полученных строк на экран.Для работы с текстовыми файлами необходимо объявить в блоке var
соответствующие им переменные, указав их тип как text, например:
var f: text;
Далее нужно связать переменную с конкретным файлом с помощью 
оператора assign. При этом указывается путь к внешнему файлу:
assign(f,’D:\{ваша рабочая папка}\{имя файла}.txt’); 
Открытие файла для совершения с ним действий может осуществляться 
несколькими способами. Чтобы открыть файл для записи в него данных, 
используется оператор rewrite (в случае «шифратора»); для чтения файл 
открывается оператором reset («дешифратор»). После завершения работы с 
файлом его необходимо закрыть с помощью оператора close.
Для записи в файл используются операторы write и writeln. Например, 
строка s будет записана в файл f с помощью оператора:
write(f,s); 
Для чтения из файла используются операторы read и readln:
read(f,k);
Если k – числовая переменная, то приведённый выше оператор считает из 
файла одно число. Чтобы в файле можно было различить номера отдельных 
символов шифруемых строк, эти номера следует записывать в файл через 
пробелы.
При считывании информации из текстового файла возникает необходимость 
определения, когда достигнут конец строки или всего файла. Это можно 
сделать с помощью функции eoln и eof соответственно.
Напомним также, что для определения номера символа в таблице кодировки 
осуществляется функцией ord; обратная операция определения символа по 
заданному номеру выполняется с помощью функцией chr.Справочник:
assign({переменная},’{путь к файлу}’); Процедура, привязывающая файловую 
переменную к внешнему файлу, на 
который указан путь. Если такого файла 
не существует, то он будет создан в 
указанном месте.
rewrite({переменная}); Открытие файла, привязанного к 
переменной, для записи. При этом 
стирается всё содержимое файла, 
имевшееся там до его открытия 
(происходит перезапись).
reset({переменная}); Открытие файла, привязанного к 
переменной, для чтения.
append({переменная}); Открытие файла, привязанного к 
переменной, для записи. При этом запись 
происходит в конец файла без обнуления 
ранее имевшихся в нём данных (имеет 
место дозапись в конец файла).
close({переменная}); Закрытие файла.
eoln({переменная}); Функция, возвращающая true, если 
достигнут конец строки в файле (при 
чтении).
eof({переменная}); Функция, возвращающая true, если 
достигнут конец файла (при чтении).
73 | Автор: dgonvv | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
необходимо составить программу,содержащую подпрограмму для перемножения матриц.Предусмотреть контроль правильности исходных данных.
74 | Автор: Demon11101995 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Построить линейный список из несколькихдинамических переменных, содержащих вводимые целые числа. Исключить из списка
все элементы не попадающие в заданный диапазон значений. Вывести полученный
список.
Буду очень признательны за помощь
75 | Автор: sparki71 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Построить алгоритм в виде блок-схем и написать соответствующую программу на языке Pascal (С) для решения задач:
Составить алгоритм для нахождения приближенного значения квадратного корня положительного действительного числа a с заданной точностью
http://www.cyberforum.ru/cgi-bin/latex.cgi?\varepsilon <0
,используя рекуррентную формулу
{x}_{n+1}=1/2*({x}_{n}+a/{x}_{n}
, где
n=0,1,2,3,4,...,
а
x0
- начальное приближение
76 | Автор: igormyakota | 2015-05-21, 16:07   |  Репутация: [ + 1 ]
Дан символьный файл f, содержащий произвольный текст длиной более 500 слов. Слова в тексте разделены пробелами и знаками препинания. Получить 10 наиболее часто встречающихся слов и число их появления. (желательно с использованием процедур)
77 | Автор: Viktorionchik | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
создать текстовый файл с произвольной информацией. организовать просмотр содержимого файла. организовать чтение и обработку данных из файла в соответствии с индивидуальным заданием. сохранить полученные результаты в новый текстовый файл.

"ученый"
фамилия;имя;отчество пол национальность дата рождения(г.м.число) ученая степень должность номер телефона дом. адрес(почтовый индекс. страна. область. район. город. улица. дом. квартира). вывести сведения про ученых кандидатов технических наук.
78 | Автор: toretto700 | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Поместить в массив запись с именем tovar с полями kod (тип -integer), nazvanie ( тип -string), cena (тип -real). Вывести название товаров, цена которых меньше заданной. Сделать разбивку товаров по виду товара – российский или импортный. При вводе дополнительно запрашивать «национальность» товара, далее, для российского запрашивать город, для импортного – страну.
79 | Автор: andko | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Разработать программу, сохраняющую данные сотрудников отдела а файле.
Использовать подпрограммы для добавление и поиска сотрудников в файле с отображением результатов. 

Может кто помочь, буду очень благодарен :)
80 | Автор: AleksPro | 2015-05-21, 16:07   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Разные задачи
  • Страница 4 из 5
  • «
  • 1
  • 2
  • 3
  • 4
  • 5
  • »
Поиск: