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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуетс)
 
(не показано 13 промежуточных версий 4 участников)
Строка 1: Строка 1:
−
антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 2х заданных файлах после разных символов
+
                                                                '''ДО'''
  
−
== by Black Bull ==
 
  
−
uses crt;
+
[[Изображение:Глаза.jpeg]]
−
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.
 
  
−
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
 
  
−
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
+
 
 +
 
 +
                                                              '''ПОСЛЕ'''
 +
[[Изображение:monday_6.jpg]]

Текущая версия на 10:55, 13 мая 2009

                                                                ДО


Глаза.jpeg 



                                                              ПОСЛЕ

Monday 6.jpg

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