Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal кольцевой сдвиг https://www.cyberforum.ru/ pascal/ thread151619.html привет всем коллегам))) подкиньте идею, пожалуйста, как реализовать кольцевой сдвиг в одномерном массиве на паскале? (и вправо, и влево) заранее спасибо!	Pascal степень 1. дано действительное число А. не пользуясь никакими другими арифметическими операциями , кроме умножения, получить А в 10 степени за 4 операции. на экране должно выводиться: степень числа введите действительное число: А 10-ая степень числа равна: ответ. примертак должно получиться) степень числа введите действительное число: 3 10-ая степень числа равна: 59049 повторяем запуск...
Pascal большая просьба https://www.cyberforum.ru/ pascal/ thread151605.html у кого есть онлайн ? например я на экзамене отправить в аське задача паскали Добавлено через 25 секунд и я буду награждать	Pascal Построить графики указанных функций https://www.cyberforum.ru/ pascal/ thread151581.html построить графики указанных функций. при построении графика функции выбрать такой масштаб чтобы график занимал весь монитор. нарисовать координатные оси, подписать их, подписать деления осей. рядом с графиком написать названия функций.функция y=(x+3)/x^2
Сортировка Пузырьком, Pascal Задача: Дана последовательность не более 100 чисел,вводятся все числа пользователем 0-конец файла (программы) Отсортировать все введенные числа по возрастанию Вводится число ,нужно вставить его в последовательность не нарушая сортировку и дать номер позиции числа! Помогите пожалуйста начало зделал немного program sort; uses crt;	Pascal Метод простой итерации - найти ошибки в коде Program zadacha1; type matriza= array of real; Var b,prob,x,x1: array of real; i,j:real; e:real; n:integer; Procedure vvod(var n:integer;var E:real; i,j:integer;var b:array of real;var a:matriza); begin Write('vvedite razmer matritci n'); https://www.cyberforum.ru/ pascal/ thread151554.html
Pascal Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз https://www.cyberforum.ru/ pascal/ thread151533.html Помогите с задачей плиз: Отредактировать заданное предложение, удаляя из него те слова, которые встречаются в предложении заданное число раз.	Найти сумму первого и последнего элементов списка Pascal Помогите написать процедуру задачи.Дан однонаправленный список,эл которого являются действительными числами.Найти сумму первого и последнего элементов
Pascal несложные програмки будьте добры https://www.cyberforum.ru/ pascal/ thread151493.html Помогите кому не сложно две програмки написать на паскале 1)Даны натуральные числа а, b, с, которые обозначают число, месяц и год, например 1, 4, 1901 - 1 апреля 1901 года. Получить тройку чисел, соответствующих следующему дню. 2)Дано действитёльное число х. Получить целую часть *) числа х; затем — число х, округленное до ближайшего целого; затем — число х без дробных цифр. Добавлено через 1...	Pascal Дан текстовый файл, содержащий фамилии и имена студентов. сформировать новый файл, где список студентов упорядочен по аофавиту https://www.cyberforum.ru/ pascal/ thread151453.html Дан текстовый файл, содержащий фамилии и имена студентов. сформировать новый файл, где список студентов упорядочен по аофавиту Помогите кто может пожалуйста!
Процедуры и файлы Pascal Всем привет. У меня завтра зачет. И осталось 2 лабы доделать. Не сочтите за наглость. Просто потом придется в Казань ехать для сдачи долгов. А поездка составит 1200. 1. Лаба относится к теме "Процедуры". Даны две строки символов. В первой из них все символы "+" заменить на "-". Во второй- символы "?" на "!". 2.Лаба относится к теме "Текстовые файлы". Дан текстовый файл, содержащий...	Pascal Дан текстовый файл... Дан тесктовый файл f. Слова разделены одним или несколькими пробелами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл. https://www.cyberforum.ru/ pascal/ thread151430.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

30.06.2010, 07:29

Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными. - Pascal - Ответ 833182

30.06.2010, 07:29. Показов 4312. Ответов 7

Метки (Все метки)

Ответ

Pascal

uses crt;
var f,g,h:file of real;
    a:real;
    i:integer;
begin
clrscr;
assign(f,'name1');
rewrite(f);
assign(g,'name2');
rewrite(g);
assign(h,'name3');
rewrite(h);
writeln('Введите в файл вещественные числа числа, окончание ввода 0:');
repeat
readln(a);
write(f,a);
until a=0;
writeln('Содержание исходного файла:');
reset(f);
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  write(a:0:2,' ');
  if odd(i) then write(h,a)
  else write(g,a);
 end;
close(f);
writeln;
writeln('Содержание файла Name1');
reset(g);
for i:=0 to filesize(g)-1 do
 begin
  read(g,a);
  write(a:0:2,' ');
 end;
close(g);
writeln;
writeln('Содержание файла Name2');
reset(h);
for i:=0 to filesize(h)-1 do
 begin
  read(h,a);
  write(a:0:2,' ');
 end;
close(h);
readln
end.

Вернуться к обсуждению:
Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными. Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.06.2010, 07:29

Готовые ответы и решения:

Создать два файла, первый из которых содержит элементы исходного с нечетными номерами, а второй — с четными
Задан файл действительных чисел (создать программным путем). Создать два новых файла, первый из...

Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными номерами (1, 3, …), а второй —
Нужна помошь. Создать два новых файла, первый из которых содержит элементы исходного файла с...

Создать два файла, первый содержит элементы исходного файла с нечетными номерами, а второй с четными
1.) Дан файл вещественных чисел разделенных одним пробелом. Создать два новых файла, первый из...

Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы исходного файла с нечетными но
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит элементы...

	30.06.2010, 07:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.06.2010, 07:29

Помогаю со студенческими работами здесь

Создать два новых файла, в первом - элементы исходного файла с нечетными номерами, во втором - с четными
задания по Pascal. 1. Дан текст. Между соседними словами – не менее одного пробела, за...

Создать два новых файла, первый из которых содержит положительные четные из исходного файла, а второй - отрицательные
Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные четные из...

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные
Дан файл вещественных чисел. Создать два новых файла, первый из которых содержит четные числа из...

Создать два новых файла, первый из которых содержит четные числа из исходного файла, а второй — нечетные (в том же порядке)
1. Дан файл целых чисел. Создать два новых файла, первый из которых содержит четные числа из...

Наверх