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

Материал из 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.

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

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