RE: Решение задач на Паскале и Delphi
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-19 20:25:05.546666
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Оперативная память и процессорное время, чтобы программа могла работать в фоновом режиме, и это не отражалось на быстродействии компьютера. Так же желательно, чтобы и сама она весила достаточно мало, но это уже вторично. В любом случае, я не напишу монстра, занимающего гигабайты на жестком диске))
Вполне логичный вопрос: какого компьютера? Думаю, буду сравнивать со своим старым железом. 512 оперативы и 4й пентиум 2.2 ГГц.
З. Ы. У меня одного форум так лагает? По пол дня невозможно зайти (ошибка 504 - чаще всего). Извиняюсь за оффтоп.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-19 21:59:32.930000
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
А еще до меня не до конца дошло, как с помощью дополнительной переменной освободить занятую память…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-20 12:00:08.290000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ещё раз вопрос. Зачем тебе это всё надо с оптимизацией, если ты даже с элементарным выделением памяти разобраться не можешь? Преждевременная оптимизация - очень страшное зло.
Про память:
buf := allocmem(len);
p1 := buf;
{...}
freemem(buf);
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-20 15:26:39.806666
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Ты не совсем понял) Никакой оптимизации я не провожу. Я всего лишь хотел получить совет, с какой БД мне будет удобней работать?
А все работы по оптимизации будут проводиться уже после того, как основная работа над программой будет закончена (если они вообще будут).
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-20 16:12:33.973333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Про БД - на той, которую знаешь ;)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-20 19:10:55.763333
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
:D хорошо сказано)) Но кто сказал, что сделать что-то стоящее можно только, если на все 220% знаешь, что и как делать? =) бОльшую часть материала я не знаю, но узнаю по ходу продвижения дела) Меня всегда привлекала творческая сторона этой работы.
Тогда такой вопрос: можно ли при установке ПП создать файл БД, на который программно же установить пароль (на подключение)? Если да - можно ли это сделать с любой БД? Если нет - с какими можно?))
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-20 20:06:32.640000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Ты писать начни, а потом уже по существу вопросы задавай… А то абсолютно не ясно, что тебе надо, какие требования к безопасности и т.п.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-22 01:12:02.480000
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Видимо, мы друг друга недопоняли. Вся сложность ситуации заключается как раз в том, как именно выглядит строка, заключенная в указателе. Она имеет следующий вид: 'Строка1#0Строка2#0…СтрокаN#0#0'. Как известно, нулевой символ - это для типа Pchar признак конца строки. Другими словами, если вытаскивать строку присваиванием или командой String(), то в результате я увижу только 'Строка1'. Именно поэтому я использую посимвольную обработку в цикле. Если бы все было так просто, я бы не обращался за помощью)
З. Ы. Два дня пытался написать это. Либо ошибка 503, либо 504 при доступе к форуму. Постоянно.
З. З. Ы. _SaZ_, не будет ли слишком нагло с моей стороны попросить твои контакты (ася/почта/скайп/вконтакте/мой мир/учетка квипа/facebook), чтобы разрешить этот вопрос несколько быстрее? 8| А то это не дело: по-хорошему, можно было бы и за 10-15 минут нормальной беседы все сделать, если не меньше…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-23 03:23:33.170000
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Либо я просто-напросто даун и быдлокодер и не понимаю элементарных вещей. Уж растолкуйте, пожалуйста 8|
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-26 04:23:54.600000
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
Вопрос снят, во всем разобрался :) Спасибо за помощь, очень пригодилось все :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-26 18:37:17.446666
|
|
|
Qwart
Сообщений: 1
Оценки: 0
Присоединился: 2011-01-26 18:09:34.540000
|
люди добрые помогите пожалуйста
задание надо найти среднее арифметическое элементов массива с учётом и без учёта минимального и максимального элементов
собственно вот что накалякал но где то ошибка так как считает прога криво подскажите где неправду написал=)
var i:integer;
s,k,min,max,p:real;
var a:array[1..10] of real;
begin
min:=a[1];
max:=a[2];
s:=0;
k:=0;
p:=0;
writeln;
write('Формируем массив:');
randomize;
for i:=1 to 10 do
begin
a:=random(26)-10;
write(a:6:1);
k:=k+1;
if (a>max) then max:=a;
if (a<min) then min:=a;
if (a<>max) and (a<>min) then p:=p+a/(k-2);
s:=(s+a)/k;
end;
writeln;
write('среднее арифметическое без учёта min и max ',s);
writeln;
write('среднее арифметическое с учётом min и max ',p);
end.
уже неактуально
нашёл ошибку
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-26 21:18:00.950000
|
|
|
armagedonks
Сообщений: 1
Оценки: 0
Присоединился: 2011-01-26 21:09:40.213333
|
памагите пажалуста решить задачу
Программа создает массив записей с информацией о предметы, изъяты на таможне: дата изъятия, наименование предмуту, код предмета, количество единиц, цена одиници.Отсортировать записи по коду предмета и ввести список предметов с ценой, превышающей цену, указанную пользователем программы.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-27 08:48:55.596666
|
|
|
Эллурн
Сообщений: 83
Оценки: 0
Присоединился: 2008-12-27 21:46:32.516666
|
А у мну вот такой ступор:
function GetNoteText(theheader: PChar): TMemoryStream;
begin
mymod:=tdatamodule5.create(Application);
result := TMemoryStream.Create;
with mymod.ADOQuery1 do
begin
Active := False;
SQL[1]:='thenote';
SQL[3]:='nheader='+string(theheader);
Active := True;
Result.LoadFromStream(CreateBlobStream(FieldByName('Data'), bmRead));
end;
end; Ругается на bmRead: undeclared identifier.
Это происходит в dll, поэтому такая мысль возникла: может, надо добавить что-то в uses?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-27 12:09:22.683333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Где у тебя объявлена переменная bmRead?
P.S. может стоит начать программирование с чего-нибудь попроще?
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-27 18:54:04.500000
|
|
|
Surft
Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
|
можно как нибудь в memo произвести поиск по началу слова <a href=" и оканцовкой "> и то что находится между ними записать в переменую string, тоесть например в мемо найти строку <a href="site"> и записать site в переменую.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-27 19:05:32.053333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Можно, регулярными выражениями. Но куда правильнее работать с DOM моделью страницы, чем работать с ней, как с текстом.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-29 18:02:43.033333
|
|
|
Altaon
Сообщений: 1
Оценки: 0
Присоединился: 2011-01-29 17:54:38.480000
|
Привет всем, пожалуйста помогите решить задачу, просто раньше с таким не сталкивались, а задали решить.
Составить программу, которая переставляет элементы массивов А(1..10) и В(1..8) в обратном порядке, т. е. первый элемент обменивается своим значением с последним, второй – с предпоследним. Преобразование массива оформить в виде подпрограммы.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-29 19:00:29.800000
|
|
|
dr_vice
Сообщений: 702
Оценки: 10
Присоединился: 2010-11-14 18:01:36.116666
|
В чём ошибка?
unit auth;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP;
type
TForm5 = class(TForm)
http1: TIdHTTP;
btn1: TButton;
Label1: TLabel;
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5.btn1Click(Sender: TObject);
var params,responseres:tstringlist;
begin
params:=TStringList.Create;
responseres:=TStringList.Create;
params.Add('Login=gaviri4022590');
params.Add('Domain=mail.ru');
params.Add('Password=8Lm0quYH');
responseres.Text:=http1.Post('http://win.mail.ru/cgi-bin/auth',params);
if Pos('logout',responseres.Text)>0 then
Label1.Font.Color := $00453829;
Label1.Caption := 'Статус: Вход выполнен.';
else
begin
Label1.Font.Color := $001F22EA;
Label1.Caption := 'Статус: Вход не выполнен.';
end;
end.
Подчёркивает последнее "else" и у предпоследнего end знак ";"
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-29 19:07:08.736666
|
|
|
Alianna
Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333
|
Перед else точка с запятой не ставится. И я так понимаю что вместо
quote:
if Pos('logout',responseres.Text)>0 then
Label1.Font.Color := $00453829;
Label1.Caption := 'Статус: Вход выполнен.';
else
должно быть
if Pos('logout',responseres.Text)>0 then
begin
Label1.Font.Color := $00453829;
Label1.Caption := 'Статус: Вход выполнен.';
end
else
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-30 05:40:02.600000
|
|
|
dr_vice
Сообщений: 702
Оценки: 10
Присоединился: 2010-11-14 18:01:36.116666
|
Спасибо,теперь работает. :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-01-30 06:20:26.136666
|
|
|
dr_vice
Сообщений: 702
Оценки: 10
Присоединился: 2010-11-14 18:01:36.116666
|
А теперь как мне организовать,что бы после того как залогинился,происходил поиск по заголовкам писем на наличие нужного мне(указанного в Edit)? :)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-02-22 22:55:32.226666
|
|
|
ruzakki
Сообщений: 4
Оценки: 0
Присоединился: 2011-02-22 22:49:59.576666
|
помогите решить плиз:
Даны натуральное число n, целые числа а1..аn. Получить суму положительных и число отрицательных членов последовательности а1..аn
плиз помогите оч нужно (если можно сделайте скрин)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-02-23 00:19:40.790000
|
|
|
Alianna
Сообщений: 1922
Оценки: 356
Присоединился: 2010-03-02 11:27:12.343333
|
quote:
ORIGINAL: ruzakki
помогите решить плиз:
Даны натуральное число n, целые числа а1..аn. Получить суму положительных и число отрицательных членов последовательности а1..аn
плиз помогите оч нужно (если можно сделайте скрин)
Ну и в чем проблема? По информатике задали а писать/читать учебник/гуглить/думать лень? Хорошо, натолкну на мысль. n объявляешь как константу. Потом тебе нужен массив, первый элемент будет a[1], последний a[n]. В цикле заполняешь массив. Потом опять же в цикле делаешь проверку - если элемент массива больше нуля, прибавляешь его к сумме. Если меньше, увеличиваешь счетчик отрицательных членов. Ну и выводишь потом, мол сумма положительных столько то, количество отрицательных столько то. Ничего сложного.
А код за тебя писать, извини, влом. Попробуй подумать самостоятельно, это полезно.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-02 21:00:36.280000
|
|
|
keksik91
Сообщений: 1
Оценки: 0
Присоединился: 2011-03-02 20:56:35.010000
|
умоляю помогите решить эту злорадную задачу(((( за решения отправлю 15 грн. на любой мобильный номер)))
Создать файл, с N записями (N> 5). Программа должна выполнять следующие действия:
• дополнять существующий файл новыми данными
• осуществлять просмотр данных файла.
• осуществить просмотр данных файла, которые отвечают критериям отбора из представленной ниже…
Описание полей записи: Номер записи, фамилия студента, название предмета, дата оценка.
Критерий отбора: вывести информацию о студентах, получивших оценку … по предмету …
Вот пример.
Пример 2. Создать файл записей, который содержит информацию об автомобилях: модель, цвет, год выпуска, фамилия владельца. Вывести содержимое файла на экран. Вывести на экран информацию об авто, год выпуска которых не превышает введенного.
Программа решения данной задачи.
type avto=record
model:string;
color:string;
rik:integer;
vlasnuk:string;
end;
var f:file of avto;
a1:avto;
i,n:integer;
nf:string;
begin
writeln('Введіть кількість авто');
readln(n);
writeln('Введіть назву файла');
readln(nf);
assign(f,nf);
rewrite(f);
for i:=1 to n do
begin
writeln('Введіть модель авто, колір, рік випуску, прізвище власника');
readln(a1.model);
readln(a1.color);
readln(a1.rik);
readln(a1.vlasnuk);
write(f,a1);
end;
close(f);
writeln(' Модель авто Колір Рік Власник');
writeln('———————————————————');
reset(f);
for i:=1 to n do
begin
read(f,a1);
writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20);
end;
close(f);
writeln('Vvedite rik');
readln(k);
reset(f);
writeln(' model avto colir rik vlasnuk');
writeln('————————————————–');
while not eof(f) do
begin
read(f,a1);
if a1.rik<k then
writeln(a1.model:14,a1.color:10,a1.rik:6,a1.vlasnuk:20);
end;
readln
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-04 19:17:03.913333
|
|
|
Surft
Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
|
блин помогите пожалуста я уже замучался искать
значит мне нужно чтоб программа извлекала фаил с расширением *.vtf
1) как мне добавить этот фаил в программу (перед компиляцией)
2) как мне извлеч этот фаил (после компиляции)
желательно с примерами тк я с этим еще неработал
———-
насколько я понял это можно сделать так
добавить файл ресурсов и потом подключить его к своему проекту и в случае надобности спокойно извлекать его
если да то как мне это сделать
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-04 20:16:32.080000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Гугл + МСДН + Работа с ресурсами. Там даже готовый код есть.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-05 07:45:18.310000
|
|
|
Surft
Сообщений: 252
Оценки: 5
Присоединился: 2010-08-25 07:23:20.633333
|
я создал фаил myRes.RES а как мне теперь его извлеч кпримеру в папку C:\
———————-
Все разобрался.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-07 09:28:58.046666
|
|
|
positive_vitamin
Сообщений: 1
Оценки: 0
Присоединился: 2011-01-23 11:27:11.320000
|
Задача:
Путь домой.
После экзамена Василий решил пройтись до дома пешком. Зная, что путей от школы до дома очень много, ещё будучи в первом классе, Василий решил, что каждый день будет ходить по новой дороге. К счастью, город, в котором живёт Василий, является очень большим квадратом, в котором все кварталы образуют квадраты. От школы до дома ему надо идти по перпендикулярным улицам, причём, либо на север, либо на восток. К сожалению, часть города, находящаяся выше диагонали "Школа-Дом", является небезопасной для школьников, поэтому Василий не хочет там даже появляться. Его дом расположен на N кварталов северней и на N кварталов восточней школы. Сколько существует возможных путей из школы домой, отличающихся хотят бы одним участком?
Ввод:
Целое число N (0<N<=10^3)-число характеризующее положение дома Василия относительно школы.
Вывод:
Количество различных путей между школой и домом, удовлетворяющих условиям, указанным выше.
Пример
Ввод: Вывод:
4 14
Первый раз столкнулся с подобной задачей. И не могу понять как её решать. Прошу объяснить алгоритм решения задачи.
И ещё вопрос не касающийся этой задачи.
Что делать, если надо записать в одну строку 10^9 символов, а string в паскале поддерживает только 255 символов в одной строке. В делфи вроде можно использовать для этого AnsiString, но я пишу пока только на паскале. Поэтому интересует как засунуть в одну строку 10^9 символов в паскале.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-07 10:02:56
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Насчёт задачи: она на то и дана, чтобы ты сам придумал алгоритм.
Насчёт длины строк: зачем тебе понадобилась такая длинная строка? Сомневаюсь, что возможно сделать такую строку "в лоб" на 32-х разрядной ОС (не говоря про дос, под который ты, скорее всего, пишешь).
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-07 10:13:41.240000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
quote:
ORIGINAL: positive_vitamin
Задача:
Путь домой.
После экзамена Василий решил пройтись до дома пешком. Зная, что путей от школы до дома очень много, ещё будучи в первом классе, Василий решил, что каждый день будет ходить по новой дороге. К счастью, город, в котором живёт Василий, является очень большим квадратом, в котором все кварталы образуют квадраты. От школы до дома ему надо идти по перпендикулярным улицам, причём, либо на север, либо на восток. К сожалению, часть города, находящаяся выше диагонали "Школа-Дом", является небезопасной для школьников, поэтому Василий не хочет там даже появляться. Его дом расположен на N кварталов северней и на N кварталов восточней школы. Сколько существует возможных путей из школы домой, отличающихся хотят бы одним участком?
Ввод:
Целое число N (0<N<=10^3)-число характеризующее положение дома Василия относительно школы.
Вывод:
Количество различных путей между школой и домом, удовлетворяющих условиям, указанным выше.
Пример
Ввод: Вывод:
4 14
Первый раз столкнулся с подобной задачей. И не могу понять как её решать. Прошу объяснить алгоритм решения задачи.
Алгоритм такой же как и для любой программерской задачи на сочинение алгоритма. Надо для начала научиться без компьютера считать всё то, что должен считать компьютер.
Попробуй сосчитать эти пути самостоятельно. На пальцах. Возьми какой-нибудь N и попробуй. Нарисуй на бумаге в клеточку 21 квадрат 10x10, и на каждом нарисуй один из возможных путей. Причём старайся выбирать следующий путь глядя только на предыдущий. Когда нарисуешь 21 путь то либо станет понятно, как перебрать пути, либо надо будет повторить – взять другой листочек и повторить, нарисовать ещё 21 путь. Если вообще-вообще никак не получается, считай не на пальцах, а на счётных палочках (или ещё на каких-нибудь подручных средствах, которых много): нарисуй 100 квадратов и в них 100 разных путей.
Если из этого ничего не выйдет, попробуй придумать код, который позволит описать путь. То есть придумать способ как глядя на любой путь записать его числами, причём таким образом, чтобы потом по этим числам можно было бы однозначно восстановить путь. Если ты сделаешь это, то тебе надо будет уже пересчитывать не пути, а коды – надо будет сосчитать сколько существует валидных кодов.
До конца считать не обязательно, надо считать их до тех пор, пока ты не увидишь алгоритм перебора этих путей/кодов. А когда будет алгоритм перебора, его можно будет запрограммировать "как есть", чтобы он выполнял ту самую работу, которую только что делал ты. А может быть можно будет соптимизировать, чтобы поменьше перебирать. Но для начала надо научиться решать задачу без компьютера.
ps. Формулировка задачи неправильная. Вопрос должен звучать иначе: до скольки лет Василий будет учиться в школе, если известно что он упёртый чувак, и будет ходить разными путями до тех пор, пока не пройдёт всеми.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-08 02:46:41.346666
|
|
|
Insale
Сообщений: 2
Оценки: 0
Присоединился: 2010-11-12 20:35:24.176666
|
Построить конкатенацию (последовательную запись) файла TWO самого себя,только записанного задом наперед.
Помогите пожалуйста, вообще не представляю как сделать((
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-14 15:52:20.633333
|
|
|
Flingstone
Сообщений: 346
Оценки: 0
Присоединился: 2011-03-07 18:13:08.170000
|
раньше были проблемы в знание паскаля сейчас слава Богу всё ок:)
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-18 20:16:04.443333
|
|
|
vesst10
Сообщений: 1
Оценки: 0
Присоединился: 2011-03-18 19:58:53.553333
|
Здарова все!!у меня тут загвозка с задачей по Pascal:
над "Убрать из любой заданной фразы последнее слово"
Вот мое неполное решение:
Program asd;
var
a:string;
s,d:integer;
begin
write('Vvedite frazu..');readln(a);
s:=length(a);
for d:=1 to s do
if a[d]=' '{'пробел'} then delete(a,d,s);{я нашёл 1й пробел,но мне нужен последний чтобы скосить последнее слово.Как найти последний пробел??}
write(q);
readln;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-19 10:50:14.003333
|
|
|
Neitrosha
Сообщений: 1
Оценки: 0
Присоединился: 2011-03-18 18:03:05.773333
|
суть задачи такова- нужно перемножить два многочлена, отдельно вводимые в один из двух эдитов, но дальше введения самих многочленов дойти не смог.
вот сам код (всё работает)
procedure PrintPolinom(var B:link; var Ed:TEdit);
var S:string;
t:Link;
begin
S:='';
t:=B;
While t<>nil do
begin
S:=S+'+'+IntToStr(t^.coef)+'x^'+Int ToStr(t^.st);
t:=T^.next;
end;
ed.Text:=S;
end;
procedure AddToEnd (var B:link; var w:link);
var t :Link;
begin
t:=B;
if B<>nil
then
begin
While T^.next<>nil do
t:=t^.next;
t^.next:=w;
end
else
B:=w;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
p:=nil; Q:=nil;
end;
procedure TForm1.Button1Click(Sender: TObject);
var w:link;
begin
new(w);
W^.coef:=StrToInt(edit1.Text);
W^.st:=StrToInt(edit2.Text);
W^.next:=nil;
AddToEnd(P,w);
PrintPolinom(P,edit3);
end;
procedure TForm1.Button2Click(Sender: TObject);
var w:link;
begin
new(w);
W^.coef:=StrToInt(edit4.Text);
W^.st:=StrToInt(edit5.Text);
W^.next:=nil;
AddToEnd(Q,w);
PrintPolinom(Q,edit6);
end;
вообще, каждый множитель у меня вбивается отдельно, т.е. сначала вбивается коэффициент перед ИКС, потом его степень, нажатием на баттон он переходит в эдит уже в готовом виде (например "+7x^5"), и так далее.
нужна процедура перемножения…
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-23 22:55:39.656666
|
|
|
pypath
Сообщений: 1
Оценки: 0
Присоединился: 2011-03-23 22:13:23.390000
|
quote:
ORIGINAL: vesst10
Здарова все!!у меня тут загвозка с задачей по Pascal:
над "Убрать из любой заданной фразы последнее слово"
Вот мое неполное решение:
Program asd;
var
a:string;
s,d:integer;
begin
write('Vvedite frazu..');readln(a);
s:=length(a);
for d:=1 to s do
if a[d]=' '{'пробел'} then delete(a,d,s);{я нашёл 1й пробел,но мне нужен последний чтобы скосить последнее слово.Как найти последний пробел??}
write(q);
readln;
end.
Просмотреть строку с конца и использовать break.
var
s: string;
len,i: byte;
begin
write('String: ');
readln(s);
len := length(s);
for i:=len downto 1 do
if s[i]=' ' then begin
delete(s,i,len-i+1);
break;
end;
writeln(s);
readln
end.
Если не использовать инструкцию break, то цикл продолжит выполняться и постепенно удалит все слова из строки за исключением первого.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-24 21:40:10.540000
|
|
|
Belmega
Сообщений: 1
Оценки: 0
Присоединился: 2011-03-24 21:35:32.193333
|
Люди помогите пожалуйста, не для себя прошу а для девушки… Ей задали задачу на информатике составить прогу на Паскале
Задача такова:
Составьте программу,которая строит круговую диаграмму, иллюстрирующую:
а) распределение результатов тестирования по трем предметам (данные вводятся с клавиатуры)
б) химический состав земной коры (данные вводятся с клавиатуры): кислород-47.2%, кремний-27.6, аллюминий-8.3%,железо-5.1%, кальций-3.6%,другие элементы-8.2%.
Помогите кто сможет… реально жизненно-важный вопрос.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-25 12:53:21.243333
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Тут
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-26 22:16:30.930000
|
|
|
Shift_LK
Сообщений: 5
Оценки: 0
Присоединился: 2011-03-26 20:59:49.160000
|
помогите пожалуйста сделать вот такое задание :
1) Составить процедуру для ввода данных в матрицу А(m,n) типа real.Данные вводятся из текстового файла.
2)Составить функцию для определения номера строки матрицы А(m,n) типа real,имеющей минимальную сумму элементов.
3)Составить процедуру для записи нулей в к-ую строку матрицы А(m,n) типа real.
4)Составить процедуру для вывода матрицы А(m,n) на экран в виде матрицы.
5)Составить процедуру для определения суммы элементов матрицы,расположенных выше строки,имеющей минимальную сумму элементов.
Работу процедур реализовать в основной программе с помощью меню и модуля.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-26 22:20:55.923333
|
|
|
Shift_LK
Сообщений: 5
Оценки: 0
Присоединился: 2011-03-26 20:59:49.160000
|
unit Unit1;
interface
const
m=10; n=10;
type matr=array[1..m,1..n] of Real;
procedure VVOD ( var a:matr; var n,m : integer);
function number ( a:matr; m,n:integer) : integer;
procedure nuli (a : matr;var m,n : integer;k:integer);
procedure VIVOD (var a:matr ; var m,n:integer);
procedure sumelementov( a:matr ; var m,n:integer );
implementation
procedure VVOD ( var a:matr ; var n,m : integer);
var i,j:integer;
begin
writeln('Vvedite kol-vo strok');
readln(m);
writeln('Vvedite kol-vo stolbcov');
readln(n);
writeln('Vvedite matricu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;
function number ( a:matr; m,n:integer) : integer;
var i,j,l : integer; min:real;
begin
l:=1;
for i:= 1 to m do
min:=min+a[i,1];
for j:= 2 to n do
for i := 1 to m do
if min>a[i,j]then begin
min:=a[i,j];
l:=j;
end;
end;
procedure nuli (a : matr;var m,n : integer;k:integer);
var i,j:integer;
begin
for j := 1 to n do
a[k,j]:= 0 ;
end;
procedure VIVOD (var a:matr ; var m,n:integer);
var i,j:integer;
begin
for i := 1 to n do begin
for j := 1 to m do write(a[i,j]);
readln;
end;
end;
procedure sumelementov( a:matr ; var m,n:integer ) ;
var i,j,nmin:integer;
min,sum:real;
begin
for j:= 1 to n do
min:=min + a[1,j];
nmin:=1;
for i:= 1 to m do
begin
sum:=0;
for j:=1 to n do
sum:=sum+a[i,j];
if sum<min then begin
min:=sum ;
nmin:=i;
end;
end;
sum:=0;
for i:=1 to nmin do
for j:= 1 to n do
sum:= sum + a[i,j];
end;
end.
|
|
|
|
|
RE: Решение задач на Паскале и Delphi - 2011-03-26 22:21:55.413333
|
|
|
Shift_LK
Сообщений: 5
Оценки: 0
Присоединился: 2011-03-26 20:59:49.160000
|
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas';
const m=10 ; n=10 ;
var
a:matr; f1:textfile; d,h,p,t,v,y,c,o:integer;
names:string;
begin
repeat
writeln ('vvedite jelaemuy procedyry');
writeln('1.vvod dannih v matricu A(m,n).');
writeln ('2.opredelenie nomera stroki A(m,n) s min sum elementov.');
writeln ('3.zapis nuley v k-stroku.');
writeln ('4.vivod matrici A(m,n).');
writeln ('5.opredelenie sum elemntov.');
readln(d);
case d of
1: begin
writeln('Vvedite imia dly faila');
readln(names);
assign(f1,names);
vvod(a,h,p);
writeln('File ',names,' Zapisan!');
readln;
end;
2:begin
writeln('Vvedite imia dly faila');
readln(names);
assign(f1,names);
number(a,t,o);
readln;
end;
3:begin
writeln('Vvedite imia dly faila');
readln(names);
assign(f1,names);
nuli(a,c,h,p);
readln;
end;
4:begin
writeln('Vvedite imia dly faila');
readln(names);
assign(f1,names);
VIVOD(a,h,p)
end;
5:begin
writeln('Vvedite imia dly faila');
readln(names);
assign(f1,names);
sumelementov(a,v,y);
readln;
end;
end;
until d=0;
readln;
end.
|
|
|
|
|
|
