Обсуждение:Вычислительные машины, комплексы, системы и сети: различия между версиями

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуетс)
(→‎by Black Bull)
Строка 1: Строка 1:
 
антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов
 
антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов
  
−
== by Black Bull ==
 
  
−
uses crt;
 
−
var s:string;  s1:string[1]; l,k,j,i:integer;
 
−
begin
 
−
writeln('vvedite text'); readln(s);
 
−
l:=length(s);
 
−
writeln('vvedite simvol'); readln(s1);
 
−
for i:=1 to l do if s1=s[i] then begin j:=l-i+1; delete(s,i+1,j); break end;
 
−
writeln(s);
 
−
writeln;
 
−
writeln('programm has made by Black Bull');
 
−
readln;
 
−
end.
 
  
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
  
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.

Версия 09:08, 4 июля 2008

антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов


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

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

Источник — https://wiki.nntc.nnov.ru/index.php?title=Обсуждение:Вычислительные_машины,_комплексы,_системы_и_сети&oldid=2706