| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
1308.
(02.03.2007 17:02)
0  
Спасибо большое что сделали этот сайт только у вас я смог скачать Паскаль и имено то что надобыло и кто муже работает как надо . СПАСИБО !!!!!!!!!!!!!!!!!!!
|
1307.
Валера!
(01.03.2007 23:42)
0
Помогите пожалуйста решить 7 задачек по турбо паскалю(или около 7)!Думаю задачки будут для вас более чем простые!Если готовы помочь пишите на senchenko_V@list.ru Буду очень благодарен.Естественно ваша помощь будет не бесплатной!
Ответ: Выслал адрес
|
1306.
Kozhan
(01.03.2007 14:19)
0
Kak mozhna dobavit moyu programmu(password saver)
Ответ: Выслал Вам адрес для переписки
|
1305.
Николай
(01.03.2007 02:15)
0
здравствуйте. помогите пожалуйста с задачкой: надо вычислить значение интеграла методом трапеций или прямоугольников. Его формула: интеграл от 0 до п/2 sin^2x, число отрезков 60, вычислить с точностью до 0,005. Или хотя бы дайте ссылку на подобные задачи, только рабочие, а то "перерыл" уже интернет, а примеры все какие-то "кривоватые". Заранее спасибо.
Ответ: К понедельнику, крайний срок, сделаю. Сейчас времени оооочень мало
|
1304.
Miss
(26.02.2007 10:25)
0
описати структуру з імям "ORDER" що містить наступні поля :"рахунок платника ","рахунок отримувача", "сума що переводиться банківською операцією".
описати програму для реалізації таких дій:
1.ввід даних в масив структуру типу "ORDER" та сортування записів у алфавітному порядку по полю "рахунок платника".
2.вивід інформації про повну суму зняту з рахунку платника,введеного користувачем.
3.вивід інформації про повну суму що була перерахована на рахунок отримувача ,введеного користувачем.
якщо записів щоб відображали шукану інформацію нема - вивисти повідомлення.
Ответ: Еще нужно?
|
1303.
Style
(23.02.2007 03:04)
0
Спасибо за сайт, он очень интересный))
Удачи в развитии
|
1302.
Катя
(22.02.2007 20:21)
0
Допоможіть написати программу!!!!!!!!!!!!!!
Розробити програму з використанням символьної функції.
В заданому символьному рядку вивести на екран усі слова, які не містять заданий символ.
Будь-ласка напишіть програму!!! Мені вона треба до завтра.
Ответ: Еще нужно?
|
1301.
VVV
(21.02.2007 14:51)
0
Хороший сайт, очень даже хороший, только программы классифицированы не очень, а еще вам на нормальный платный хостинг переехать пора
|
1300.
Nick
(15.02.2007 14:07)
0
Спасибо больше! А прогу сможете седня сделать, там вроде не много.
2.
a) Создать файл, содержащий сведения о телефонах абонентов: фамилия абонента,
год установки телефона, номер телефона.
b) Написать программу, выдающую информацию следующего вида:
по вводимой фамилии абонента выдается номер телефона; определяется
количество установленных телефонов с **** года. Год вводится с клавиатуры.
Ответ: При условии, что имеется текстовый файл, в котором в ДОЛСовской (OEM) кодировке записана информация через пробел: Фамилия, год подключения, телефон. Например:
---- ABONS.DAT -------
Мамай 1248 12-12
Джугашвили 1918 0001
Петров 1923 12123-2
Сидоров 1987 12-23-34
Шустерман 2007 89271822333
-----
То программа может иметь вид:
======
uses CRT;
VAR
f: Text;
count: Integer;
S: String;
i: Integer;
procedure FindByName(TheName: String);
var c, tel: String; m, k: Integer;
begin
Reset(f); {Переход в начало файла}
k:=0;
{уберем лишние пробелы}
while NOT EOF(f) do begin
ReadLn(f, c);
if c <> '''' then
if pos(TheName, c) <> 0 then begin
inc(k);
tel:=''''; m:=length(c);
while c[m] <> '' ''do begin
tel:=c[m]+tel;
dec(m)
end;
WriteLn(TheName, '' -> '', tel);
end
end;
if k = 0 then
Writeln(''Сведения о '',TheName,''в базе данных не содержатся'');
end;
procedure FindAfterYear(TheYear: Integer);
var c, n: String; y, k, code: Integer;
begin
Reset(f);
k:=0;
while not EOF(f) do begin
ReadLn(f,c);
if c <> '''' then begin
n:=c;
while (c[1] = '' '') and (length(c) > 1) do delete(c, 1, 1);
c:= copy(c, pos('' '', c), 255);
while (c[1] = '' '') and (length(c) > 1) do delete(c, 1, 1);
c:= copy(c, 1, pos('' '', c)-1);
val(c, y, code);
if y >= TheYear then begin inc(k);
if k = 1 then WriteLn(''---- После '',TheYear,'' года подключились'');
Writeln(n) end;
end;
end;
if k = 0 then
Writeln(''Нет ни одно абонента, подключившегося позднее '',TheYear,'' года'');
end;
BEGIN
ClrScr;
Assign(f, ''abons.dat'');
{$I-} Reset(f); {$I+}
if IOresult <> 0 then begin
WriteLn(''Не могу открыть файл ABONS.DAT'');
WriteLn(''Работа программы прекращается'');
Halt(1)
end;
{Считаем строки}
count:=0;
while NOT EOF(f) do begin
ReadLn(f, s); inc(count);
end;
Reset(f);
WriteLn(''В файле содержится '', count,'' записей'');
{ Write(''''); ReadLn(s); }
s:=''Петров '';
FindByName(s);
{ Write(''''); ReadLn(i); }
i:=1900;
FindAfterYear(i);
Close(f)
END.
|
1299.
Nick
(15.02.2007 12:36)
0
Короче телефонный справочник нужен
2.
a) Создать файл, содержащий сведения о телефонах абонентов: фамилия абонента,
год установки телефона, номер телефона.
b) Написать программу, выдающую информацию следующего вида:
по вводимой фамилии абонента выдается номер телефона; определяется
количество установленных телефонов с **** года. Год вводится с клавиатуры.
И ниже дана программа ее нужно переделать так чтобы результат который
она выводит на экран, сохранялся в текстовый файл, а не на экран.
|
1298.
Nick
(15.02.2007 12:32)
0
1.
Дана матрица А(n,m), n, m <=20. Разработайте программу, формирующую одномерный массив В(n),
элементами которого должны являться количество элементов каждой строки, превышающих ср.
арифметическое знач
Уже не надо!
|
1297.
Nick
(15.02.2007 12:30)
0
>> ЗАДАНИЕ 1
>> Выполнить ЗАДАНИЕ 2 РГР Ѓ 1 с использованием текстового файла. Данные
>> в текстовый файл вывести в виде таблицы.
> Поясни, не понял :((
> --
> С уважением, Сурин Борис
Ниже дана программа ее нужно переделать так чтобы результат который
она выводит на экран, сохранялся в текстовый файл, а не на экран.
Вот сама программа. Больше я не знаю как объяснить :(
Задание №1.
Max в двухмерном массиве. Размер массива 5:5.
Листинг программы:
program mas;
uses crt;
var A:array[1..5, 1..5] of real;
j, i, N_stolb, N_stroki: byte;
Max: real;
begin
clrscr;
for i:=1 to 5 do
for j:=1 to 5 do
A[i, j]:=random;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(A[i, j]:8:3);
writeln;
end;
Max:=A[i,j]; N_stolb:=1; N_stroki:=1;
for i:=1 to 5 do
begin
for j:=2 to 5 do
if A[i, j]>Max then
begin
Max:=A[i, j];
N_stroki:=i;
N_stolb:=j;
end;
end;
writeln(''Max = '',Max:4:3, '' Nomer stroki = '',N_stroki, '' Nomer stolcba = '' ,N_stolb);
for i:=2 to 5 do
begin
for j:=1 to (i-1) do
write(A[i, j]:8:3);
writeln;
end;
readkey;
end.
|
1296.
Nick
(13.02.2007 17:54)
0
Что-то до вас почта не доходит все время пишет ошибку доставки.
Вы сделали 4 задание, нужно срочно, help!
Ответ: НАСЧЕТ ПОЧТЫ - аналогично.
Вот реализация метода хорд в простейшем варианте. А так надо бы отслеживать возможное деление на ноль, еправльный ввод
--
uses CRT;
function FUNC(x: Real): Real;
begin
FUNC := x - 2 + sin(1/x)
end;
var E : Real;
a, b,
fa, fb: Real;
x : Real;
BEGIN
ClrScr;
{ Write(''''введите точность расчетов ''''); ReadLn(E);}
E:=1e-5;
E:=abs(E);
b:=0.1; fb:= FUNC(b);
a:=0.2; fa:= FUNC(a);
while abs(a-b) > E do
begin
x:=fa/(fa-fb)*(b-a)+a;
WriteLn(''''a='''',a:12:8,'''' fa='''',fa:12:8,'''', x='''',x:12:8);
b:=a; fb:=fa;
a:=x; fa:=FUNC(x);
{ if ReadKey = #27 then Exit;}
end;
WriteLn(''''Искомое решение '''', a:12:8,'''', f('''',a:12:8,'''')='''',FUNC(a):12)
END.
|
1295.
Flar
(13.02.2007 13:27)
0
Неплохой сайт. Работал с разделом "Средние программы". :)
|
1294.
Nick
(12.02.2007 21:36)
0
Можете помочь мне сделать пару задач на pascale. А то я еще в нем мало
разбираюсь, а очень хочется понять все тонкости. Самому сделать их не
получается т.к совсем недавно начал изучать этот язык.
1.
Дана матрица А(n,m), n, m <=20. Разработайте программу, формирующую одномерный массив В(n),
элементами которого должны являться количество элементов каждой строки, превышающих ср.
арифметическое значение матрицы в целом. Если в строке таких элементов нет,
в соответствующий элемент одномерного массива заносится 0. вывести исходную матрицу,
значения ср. арифметического элементов матрицы и сформированный массив В.
2.
a) Создать файл, содержащий сведения о телефонах абонентов: фамилия абонента,
год установки телефона, номер телефона.
b) Написать программу, выдающую информацию следующего вида:
по вводимой фамилии абонента выдается номер телефона; определяется
количество установленных телефонов с **** года. Год вводится с клавиатуры.
3.
Написать процедуру, которая считывает текстовый файл, выравнивает его по правой границе
(в строке по 60 символов).
4. V. Разработать программу, вычисляющую приближенное значение корня уравнения
на заданном интервале [a, b] с заданной погрешностью E. Отделить корни можно графическим
(в приложении Exсel) и аналитическим (см. Пример 3) методами.
x — 2 + sin(l/x)=0 Метод хорд
Заранее большое спасибо за вашу помощь!
--
С уважением,
Nick
Ответ: Буду по частям выкладывать (времени маловато). Вот так просто решается 3-я задача (а уж на Free Pascal как просто!!)
--
{Читаем и выравниваем этот же файл}
uses CRT;
const RightBnd = 60;
var s: String;
f: Text;
i: Integer;
BEGIN
ClrScr;
Assign(f, ''r60.pas'');
Reset(f);
While not EOF(f) do
begin
ReadLn(f, S);
While length(S) < RightBnd do S:='' '' + S;
WriteLn(S)
end;
Close(f)
END.
----------
|
|
|
|
