Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Табулирование функции Проверьте пожалуйста правильность Нужна ли здесь функция "trunc"? PROGRAM p2; const x0=0.82; a=1.678; b=2.777; p=1; y=-1.5555; dx=1;n=12;pi=3.14;r=180; VAR x, s ,xk: Real; BEGIN xk:=(n*dx)+x0-dx; begin https://www.cyberforum.ru/ pascal/ thread1979094.html Вывести элементы массива Pascal
Добрый день. У меня имеется программа, которая определяет расстояние между рандомно заданными точками. В конце программа выводит найденные значения в виде таблицы. В этой таблице есть элементы с одинаковыми значениями. Вопрос: как вывести эти элементы отдельно на экран. Код программы прилагаю. uses crt; function D(x1,y1,x2,y2:real):real; begin D:=sqrt(sqr(x1-x2)+sqr(y1-y2)); end; ...
Pascal Нужно написать 2 программы https://www.cyberforum.ru/ pascal/ thread1979039.html
Здравствуйте, уважаемые пользователи данного форума. Возникла проблема я не могу написать 2 программы в Pascal. Прошу скиньте готовые программы, ну код как всё будет выглядеть. В 6 задании должен получиться правильный ответ. Зачеркнул красным, что ненужно. Оставил, что нужно. Заранее спасибо, прошу не ругаться :cry:
Pascal Дан двумерный массив целых чисел. Написать программу, которая: https://www.cyberforum.ru/ pascal/ thread1978883.html
Дан двумерный массив целых чисел. Написать программу, которая: для каждого столбца массива находит среднее арифметическое элементов, у которых последняя цифра делит само число нацело.
Дан двумерный массив. Написать программу, которая определяет наибольший элемент массива и его индексы Pascal
Дан двумерный массив. Написать программу, которая определяет наибольший элемент массива и его индексы.
Pascal Дан двумерный целочисленный массив. Написать программу, которая выводит количество четных элементов в каждом с Дан двумерный целочисленный массив. Написать программу, которая выводит количество четных элементов в каждом столбце этого массива. Const n=10; m=15; Var A :Array of integer; i: 1..n; //индекс (номер) строки j: 1..m; //индекс (номер) столбца count: byte; Begin <Инициализация (формирование) массива…>; <Вывод сформированного массива>; https://www.cyberforum.ru/ pascal/ thread1978878.html
Pascal Перевести программу с C++ на Паскаль Помогите с С++ переделать на Паскаль???? #include<iostream> #include "time.h" using namespace std; int function(int *p, int *k) { for (int i=0; i<20-1; i++) for (int j=i+1; j<20; j++) if (p < p) { https://www.cyberforum.ru/ pascal/ thread1978874.html Почему не работает удаление для нулевого элемента списка? Pascal
procedure Delete(var L:link; i:integer); var k:integer; p, q:link; begin k:=0; p:=L; while (p<>nil) and (k<i-1) do p:=p^.next; if i=0 then begin q:=L; L:=L^.next; dispose(q); end else if p^.next<>nil then begin q:=p^.next;
Pascal Решение с использованием двумерных массивов https://www.cyberforum.ru/ pascal/ thread1978765.html
Ссылка удалена. Решить задачу с помощью Паскаля. Вариант 7
Pascal Решение уравнения методом Эйлера https://www.cyberforum.ru/ pascal/ thread1978601.html
прошу помочь написать решение задач в Pascal 1) решить уравнение Y’x –sin(x) =0 методом Эйлера. Получите семейство решений, соответствующих различным начальным условиям Y0=У (0)=С. 2) Решить обыкновенное дифференциальное у-е вида Yx'-f(x,y)=0 методом Рунге-Кутта четвертого порядка. Заранее большое спасибо
Pascal Решение дифференциального уравнения
Форумчане прошу помочь 1) решить уравнение Y’x –sin(x) =0 методом Эйлера. Получите семейство решений, соответствующих различным начальным условиям Y0=У(0)=С. 2) Решить обыкновенное дифференциальное у-е вида Yx'-f(x,y)=0 методом Рунге-Кутта четвертого порядка. Заранее большое спасибо
Pascal Записать в файл F первый столбец и последнюю строку матрицы https://www.cyberforum.ru/ pascal/ thread1978113.html
Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F первый столбец и последнюю строку матрицы. Найти максимальное значение компоненты файла. Если максимум больше 10, то обнулить каждую третью компоненту файла. Файл и матрицу распечатать.
Почетный модератор
64303 / 47598 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.05.2017, 09:07 0

Переписать в другой текстовый файл те строки из первого файла, в которых сумма чисел не четна. - Pascal - Ответ 10426520

12.05.2017, 09:07. Показов 3478. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено roman_li как решение

Решение

Тестируйте, проверяйте.
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
procedure FP(name1,name2:string);
var f,g:text;
    s,s1:string;
    i,j,k,sum:integer;
begin
writeln('Введите имя исходного файла без расширения');
readln(name1);
name1:=name1+'.txt';
if not fileexists(name1) then
 begin
  writeln('Файл с именем ',name1, 'не найден');
  readln;
  exit
 end;
assign(f,name1);
reset(f);
writeln('Введите имя выходного файла без расширения');
readln(name2);
name2:=name2+'.txt';
assign(g,name2);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  s:=' '+s+' ';
  i:=2;
  sum:=0;
  while i<length(s) do
  if(s[i]<>' ')and(s[i-1]=' ') then
   begin
    j:=i;
    s1:='';
    k:=0;
    while(j<length(s))and(s[j]<>' ') do
     begin
      s1:=s1+s[j];
      if s[j] in ['0'..'9'] then k:=k+1;
      j:=j+1;
     end;
    if k=length(s1) then sum:=sum+strtoint(s1);
    i:=i+length(s1);
   end
  else i:=i+1;
  if sum mod 2=0 then writeln(g,s);
 end;
 close(f);
 close(g);
 end;
 var name1,name2:string;
 begin
 FP(name1,name2);
 end.


Вернуться к обсуждению:
Переписать в другой текстовый файл те строки из первого файла, в которых сумма чисел не четна. Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2017, 09:07
Готовые ответы и решения:

Переписать в другой текстовый файл строки исходного файла, кроме непустых строк, начинающихся с точки
Дан текстовый файл. Необходимо переписать в другой текстовый файл его содержимое, кроме непустых...

Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти символов
Имеется текстовый файл. Переписать в другой файл те его строки, в которых имеется более 30-ти...

переписать содержимое текстового файла в другой текстовый файл,добавляя в начало каждой строки её порядковый номер(с++)
переписать содержимое текстового файла в другой текстовый файл,добавляя в начало каждой строки её...

Переписать в новый файл слова, длина которых четна
Дан текстовый файл.В новый файл напишите,который длина слов равны четному числу.Разделители могут...

2
12.05.2017, 09:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2017, 09:07
Помогаю со студенческими работами здесь

Переписать в другой файл те массивы, у которых сумма элементов больше 0
1. Создать файл, содержащий 10 одномерных целочисленных массивов a1, a2,..., a10, заполненных...

Имеется текстовый файл. Переписать его строки в другой файл.
Имеется текстовый файл. Переписать его строки в другой файл. Порядок строк во втором файле должен...

Дан текстовый файл F. Переписать в другой файл G все строки, содержащие цифры.
народ помогите сессия началась, задачи не могу сделать на С+ в билдере в консоле, не научился пока...

Имеется текстовый файл. Переписать его строки в перевернутом виде в другой файл
Здравствуйте. Помогите пожалуйста с задачкой. Вот есть код, для перевертывания слова... ...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru