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

Материал из wiki.nntc.nnov.ru
Перейти к навигации Перейти к поиску
(РЕШИТЕ КТО-НИБУДь ПОЖАЛЙСТА!!!! АНТОХА!!!! ПЛИЗ))))
(Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуетс)
Строка 18: Строка 18:
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
 
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
  
−
== for Cninich -создаёт файл ==
+
Создать модуль, содержащий подпрограммы ввода множества целых чисел и вывода множества на экран. Написать программу, в которой требуется сформировать два множества целых чисел и определить третье множество, равное их пересечению. Использовать созданный модуль.
−
 
 
−
uses crt;
 
−
const n=3;
 
−
type pass=record
 
−
fio:string[10];
 
−
adres:string[10];
 
−
tel:integer;    end;
 
−
var g:pass;
 
−
i,z:integer;
 
−
s:string[10];
 
−
f:file of pass;
 
−
begin
 
−
clrscr;
 
−
assign(f,'d:\file1.txt');
 
−
rewrite(f);
 
−
for i:=1 to n do with g do begin
 
−
writeln ('vvedite FIO hitila');
 
−
readln(fio);
 
−
writeln('adres');
 
−
readln(adres);
 
−
writeln('telefon: yes-1 no-2');
 
−
readln(tel);
 
−
end;
 
−
write(f,g);
 
−
close(f);
 
−
{assign(f,'d:\file1.txt'); reset(f);
 
−
seek(f,0);
 
−
writeln('vvedite adress dla proverki'); readln(s);
 
−
z:=0;
 
−
while not (eof(f)) do begin read (f,g);
 
−
    with g do
 
−
      if (s=adres) and (tel=1) then begin z:=z+1; writeln('vbgfb'); end;
 
−
end;
 
−
close(f);
 
−
writeln('kol-vo tel  ',z);
 
−
readln;}
 
−
end.
 

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

антох, реши плиз! : Создайте процедуру , удаляющюю текст в файле после заданного символа. Используйте процедуру для удаления текста в 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.

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

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

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