|
Помощь с паскалем!Срочно надо!!!
|
|
Очень нужно для выхода на сессию решить задачи!!Помогите пожалуйста
В заданный непустой текст входят только цифры и буквы. Определить, удовлетворит ли он следующему свойству : текст состоит только из цифр, причем их числовые значения образуют арифметическую прогрессию
(например:2468,741,3)
|
|
|
|
http://cs10819.vkontakte.ru/u105015262/136078417/x_8e6699ba.jpg
помогите решить
помогите мне
|
|
|
|
помогите составить
Для каждой цыфры "0","1",....,"9" подсчитать количество вхождений в данную строку S
S-произвольная строка.
|
|
|
|
Считываешь строку,в цикле получаешь позицию 0 в этой строке, счётчику присваиваешь +1, удаляешь этот 0, и т.д.
пока позиция не будет равна нолю, и так для каждой следующей цифры..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
нет надо подсчитать сколько раз в строке встречается та или иная цыфра я просто не знаю как записать
|
|
|
|
Пожалуйста помогите написать на Паскале (Free или Тurbo) программу, очень нужно. Сама уже две недели в выходные пробовала программу написать, но ничего не получается, а скоро сдавать нужно. Помогите, хотя бы Задание 1!
Задание 1 (программирование циклических алгоритмов):
Требуется осуществить перевод данного целого (дробного) числа: из троичной системы в десятичную. Чтобы программа работала как для дробного, так и для целого!
Задание 2 (программирование циклических алгоритмов
(с параметром)):
Требуется определить план выпуска продукции, обеспечивающий наибольшую суммарную прибыль:На предприятии организуется побочный цех для использования отходов производства. Цех может освоить выпуск продукции двух видов: столов и книжных шкафов. На производство одного стола и шкафа затрачивается соответственно рабочего времени – С1 человеко-часов и С2 человеко-часов, древесины – D1 м3 и D2 м3, а на производство одного шкафа, кроме того -2 м стекла. Ресурсы ос¬новных материалов в месяц составляют: С человеко-часов рабочего времени, V м3 древесины и S м2 стекла. Прибыль от реализации стола составляет P1 руб., шкафа – P2 руб.
|
|
|
|
Пусть x1=y1=1; x[i] = 0.3 * x[i-1];
y[i] = x[i-1] + y[i-1]; i=2,3,....
Дано натуральное n. Найти:
n
╔══ x[i]
╠ ──────────
╚══ 1 + │y[i]│Добавлено (23.12.11, 18:14)
---------------------------------------------
Помогите дописать программу.Вот учсловие программы.
Удалить элемент массива вещественных чисел, который
меньше среднего арифметического элементов массива.А фот сомапрограмма.
Program lab9;
uses crt;
Var a:array[1..10] of integer;
j,k,n,i:integer;
s:real;
Begin
clrscr;
Writeln('Введите размерность массива'); Readln(n);
For i:=1 to n do
Begin Write('a[',i,']='); Read(a[i]);
End;
s:=0;
For i:=1 to 10 do s:=s+a[i];
Writeln('Среднее арифметическое =',s/n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i]:=0;
end;
for i:=1 to n do
begin
if a[i]<>0 then
writeln(a[i]);
end;
end;
end.
|
|
|
|
Ты немного не правильно дописал...
var
a:array[1..100]of integer;
i,n,s:integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(a[i]);
s:=s+a[i];end;
s:=round(s/n);
for i:=1 to n do
if a[i]<s then a[i]:=0;
for i:=1 to n do
if a[i]<>0 then write(a[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста!!!
Составить программу, обеспечивающую ввод массива символьных строк (20 элементов массива по 70 символов в строке) и, если необходимо по условию варианта задания, то и ввод дополнительного символа или группы символов, а также выполнение процедуры, сущность которой сформулирована ниже.Результаты решения задачи вывести на экран монитора.
Вариант: Удалить из элементов исходного одномерного массива символьных строк только все начальные цифровые символы (первым символом каждой строки должен стать следующий за ними символ).
|
|
|
|
Запутано всё, пример ввода-вывода в студию
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) Запутано всё, пример ввода-вывода в студию
вот что я сделал:
program pasha10;
const C='0123456789';
var a: array[1..20] of string [70];
i:byte;
begin
writeln('Введите массив строк ');
i:=1;
while (not EoF)and(i<20) do begin
readln (a[i]);
i:=i+1;
write ('строка',i,':');
end;
вообщем нужно ввести массив строк, а потом среди этих строк искать те которые начинаются с цифр... удалять эти цифры а следующие за ними символы оставлять, и выводить строки без цифр...
|
|
|
|
Нужно удалять только начальные цифры или все цифры которые встречаются в каждой из строк?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) но удалять только начальные цифры или все цифры которые встречаются в каждой из строк?
только начальные....
ПРИМЕР:
дан массив:
2паыв56ук87
авыак6пы598
П+-5ПАВ56Р
356АВыапвпр
ы45ывап++п
55па6в3+465
результат:
паыв56ук87
авыак6пы598
П+-5ПАВ56Р
АВыапвпр
ы45ывап++п
па6в3+465
|
|
|
|
Ахах) Ну и пример)
Держи код:
var
a:array[1..20]of string[70];
s:string;
i:integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do begin
s:=a[i];
while (ord(s[1])>48)and(ord(s[1])<57) do
delete(s,1,1);
a[i]:=s;
end;
for i:=1 to 20 do
writeln(a[i]);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) var
a:array[1..20]of string[70];
s:string;
i:integer;
begin
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do begin
s:=a[i];
while (ord(s[1])>48)and(ord(s[1])<57) do
delete(s,1,1);
a[i]:=s;
end;
for i:=1 to 20 do
writeln(a[i]);
end.
=)))) спасибо)) но мне почемуто говорили что надо созать константу с перечислением всех цифр, а потом с ней сравнивать...
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).
А толку то?
Константа занимает лишнюю память, плюс при проверке на символы - нужно было бы брать первый символ и сравнивать его с каждым символом константы, это как минимум в 10 раз умедленяет процесс.
Этого не заметно на 20-ти строках, а вот если бы нужно было бы удалять все цифры со всех строк и строк было-бы не 20, а миллион или больше, то разница во времени "очищения" была бы существенной:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) А толку то?
Константа занимает лишнюю память, плюс при проверке на символы - нужно было бы брать первый символ и сравнивать его с каждым символом константы, это как минимум в 10 раз умедленяет процесс.
Этого не заметно на 20-ти строках, а вот если бы нужно было бы удалять все цифры со всех строк и строк было-бы не 20, а миллион или больше, то разница во времени "очищения" была бы существенной:)
Да просто у нас такой препод, что если она сказала, значит надо чтобы было так)))
|
|
|
|
У нас практически так-же)
По крайней мере раньше так было.
Просто главное преподу доказать, что так работает быстрее и лучше)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Berestovskiy) У нас практически так-же)
По крайней мере раньше так было.
Просто главное преподу доказать, что так работает быстрее и лучше)
это будет проблемно...
|
|
|
|
Согласен, часто тяжко преподу доказать что так правильней и т.д.
Но после того как препод с тобой согласится - понимаешь:"Оно того стоило" :3
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
