Програмирование на PASCAL

[SvetlanaLisenko]

дан массив х=(0,4 ; 0,5; -3,7; -3,9; -0,4; 5,6; 5,9; 4; 4,18)
подсчитать количество элементов в массиве А, удовлетворяющих условию:
3*x*x(i) < a(i) <= 1/(2*x(i) - 3)
где a(i)=0.8*x(i)+sin(x(i))+3.16

 

[Egoist1]

count:=0;
for i:=1 to 9 do
begin
a:=0.8*x+sin(x)+3.16;
if a>3*x*x then if a<=1/(2*x-3) then count:=count+1;
end;
writeln ('count=',count);

 

[Vit_OS]

здрасте! мне нужна прога для считывания пола по отчеству! ну у мужчин отчество заканчивается на Ч а у женщин на другие буквы! вводиться ИМЯ ФАМИЛИЯ ОТЧЕСТВО!

 

[Kиca]

program pol;
var
s:string;
c:integer;
begin
write('familiya imya otchestvo');
readln(s);
c:=length(s);
if S[c]='h' then writeln('mudhskoy') else writeln('dhensky');
readln;
end.
вот вариант но в нем отчество должно вводится последним и все вводится на английском языке если у тя паскаль подерживает русскую кодировку измени буквы в условии

 

[shamanesco]

значит есть задача:
по введенной дате рождения(в формате ДД/ММ/ГГГГ) определить возраст и вывести на экран это дело ввиде, например 21 ГОД, 33 ГОДА, 45 ЛЕТ
помогите пожалуйста=)

 

[Kиca]

а если допустим дата рождения 31.12.91 а сейчас дата 25.11.09. то получается ему еще нет 18 лет это учитывать?

 

[shurf]

хм.... читай внимательно.... год пишется полностью, из соврем даты выитается дата рождения, и если писать год полность *ГГГГ* то все правильнь будет считаться!

 

[shurf]

вопрос в основном к Сергею:
дана строка из рандомно вводимых символов, прога должна срреди первых 25 заменять группы пробелов на один и выводить полученную строку ввиде результата, все норм если только 25 символ не пробел. тогда прога виснет!
каак я понимаю нужно условие вывода любого результата (обрезание например по 24 символ если 25 = пробел???) подскажи пожалуйста

 

[shamanesco]

а как сделаьь, чтоб выдавало правильное существительное после числа(имею ввиду Год,Года,Лет)?

 

[shurf]

мб поставить условие:
for a:=33 *a - возраст* to b:="года"
криво, но как-то в жтом направлении....
мб ошибаюсь, у меня счас голова уже не варит

 

[shurf]

b- переменная типа char

 

[moozooh]

. Дано файл f, що містить зведення про іграшки , указується назва іграшки (наприклад, лялька, кубики, м'яч, конструктор і т.д.), її вартість у копійках і вікові границі дітей, для яких іграшка призначена (наприклад, для дітей від двох до п'яти років). Одержати наступні зведення;
1.чи можна підібрати іграшку, кожну, крім м'яча, що підходить дитині 3 років, і додатково м'яч так, щоб сумарна вартість іграшок не перевершувала Г) руб.?;
ПОМОГИТЕ ПОЖАЛУЙСТА КТО МОЖЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[Qub]

Всем привет!) Помогите плиииз!!! Последняя лаба осталась.

Вывести на печать элементы матрицы
A(i,j)<=4

 

[Kиca]

это все элементы массива которые меньше 4 вывести на экран? и их положение в матрице надо выводить?

 

[Qub]

Нет, просто все элементы массива которые меньше 4 вывести на экран

 

[Kиca]

program matrix;
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
clrscr;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3,' ');
end;
writeln;
end;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i,j]<4 then write(a[i,j]:2);
end;
end;
readln;
end.
вот сначала выводится матрица а ниже через пробел все числа меньше 4

 

[Qub]

СПасибо огромное)

 

[evto]

кто знает, по каким пяти пунктам нужно тестировать программу в паскале?

 

[AllenZ09]

помогите прогу на паскале написать
С помощью подпрограммы с массивом открытого типа организовать ввод и вывод матриц 3х2 и 4х4.

 

[Kиca]

это типа дана матрица и вывести на экран матрицы составленные из первой матрицы размерама 3х2 и 4х4?

 

[evto]

Program matrix;
var i,j: integer;
a: array [1..3, 1..2]

{для ввода матрицы 3х2}
for i:=1 to 3 do
for j:=1 to 2 do
begin write('Enteg the characters of matrix);
read(a[i,j])
end;

{Для ввода матрицы 4х4}
for i:=1 to 4 do
for j:=1 to 4 do
begin write('Enteg the characters of matrix);
read(b[i,j])
end;

for i:=1 to 3 do
begin for j:=1 to 2 d
write(a[i,j]);
writeln
end;

for i:=1 to 4 do
begin for j:=1 to 4 do
write(a[i,j]);
writeln
end

end.

 

[EllieCheers]

Помогите с задачей, ПЛИЗ!!Радиолюбитель Вася решил собрать детекторный приемник. Для этого ему понадобился конденсатор емкостью C мкФ. В распоряжении Васи есть набор из N конденсаторов, емкости которых равны С1, С2, ... ,СN соответственно. Вася помнит, как вычисляется емкость параллельного соединений двух конденсаторов (Cnew = C1 + C2) и последовательного соединения двух конденсаторов (Cnew = (C1*C2)/(C1+C2)). Вася хочет спаять некоторую последовательно-параллельную схему из имеющегося набора конденсаторов, такую, что ее емкость ближе всего к искомой (то есть абсолютная величина разности значений минимальна). Разумеется, Вася не обязан использовать для изготовления схемы все конденсаторы.
Напомним определение последовательно-параллельной схемы. Схема, составленная из одного конденсатора, – последовательно-параллельная схема. Любая схема, полученная последовательным соединением двух последовательно-параллельных схем, – последовательно-параллельная, а также любая схема, полученная параллельным соединением двух последовательно-параллельных схем, – последовательно-параллельная.
Формат входных данных
В первой строке каждого входного файла заданы числа N и C. Во второй строке содержится последовательность емкостей имеющихся в наличии конденсаторов C1, C2, ..., CN. Значения всех емкостей – вещественные числа. Для всех входных файлов N ≤ 6.
Формат выходных данных
В выходной файл необходимо вывести емкость такой схемы, емкость которой меньше всего отличается от C. Результат выводите с шестью знаками после запятой.
Пример
input.txt | output.txt
3 1.66 | 1.666666
1 2 1 |
Пояснение к примеру: последовательно соединим первый и второй конденсаторы, а затем полученную схему соединим параллельно с третьим.

 

[AllenZ09]

Павел "Только твой..." Гриза
спасибо, конечно, но здесь требуется немного другое
мы для ввода и вывода матриц используем одну процедуру на обе матрицы...в качестве параметров процедуры здесь и будет открытый массив

 

[evto]

ну можно с процедурой
{Прцедура ввода}
procedure Mass (m,n: integer; var Mass: array [1..20, 1..20];
{сдесь ь m,n - размерность матрицы, а С - сама исходная матрица...}
var i,j: integer;
begin
for i:=1 to m do
for j:=1 to n do
begin write('Enteg the characters of matrix);
read(b[i,j])
end
end;

{Процедура вывода}
procedure Mass (m,n: integer; var Mass: array [1..20, 1..20];
var i,j: integer;
begin
for i:=1 to 3 do
begin for j:=1 to 2 d
write(a[i,j]);
writeln
end
end;

 

[kykaev]

помогите написать программу для рисования солнышка, желательно через цикл, пожалуйста

 

[drum_computer]

Вопрос:
С клавиатуры вводятся данные(должны быть типа real).
если ввести что-то типа char вместо real, программма завершается с указанием об ошибке. как избежать это?
как сделать так, чтобы программа, узнав, что тип не числовой, попросит заново ввести данные???

 

[pukkz]

можно из паскаля скопировать в word???))

 

[evto]

нужно открыть в блокноте и оттуда скопировать!

 

[Special_Kate]

а в паскаль ничо вроде низя копернуть

 

[drum_computer]

#150, объясните пожалуйста подробнее, как именно должно выглядеть солнце....

 

[Kиca]

#156
program df;
var
x,k,y:longint;
begin
write('vvedite chislo');
readln(x);
k:=0;
while x>0 do begin y:=x mod 10;
k:=k+y;
x:=x div 10;
end;
writeln('summa chisel= ',k);
readln;
end.

 

[shpr]

Я начинаю учить Pascal. Одну книжечку уже прочитал. Всего по чуть-чуть знаю. (строки, массивы, файлы,модули, процедуры,функции)
Какие книги хорошие можно почитать? И вопрос такой. Нужно ли мне вообще паскаль читать или можно на делфи сразу переходить?

 

[Piriyev]

помогите плиз с задачей!
Даны действительные числа x, y. Определить, при надлежит
ли точка с координатами следующей области:
квадрат с центром (0, 0) и диагоналями =2, диагонали расположены
вдоль осей координат.
сделать надо с помошью ветвлений!если можно напишите алгоритм)

 

[shpr]

{S=sqr(d)/2 S=sqr(a) a=sqrt(2)}

вот код:
if (-sqrt(2)/2<= x)and(x <= sqrt(2)/2) then
if(-sqrt(2)/2<= y)and(y <= sqrt(2)/2) then
writeln('О да,детчка!!!11!');

Ветвление лень писать. if - это 'если', а then - 'то'

 

[mamenko]

люди!! помагите пожалуйсто с зада4ей, по-сро4неку нужна*))))

на двумерный массив:
верно ли, 4то сумма цифр минимального элемента матрицы есть 4исло 12?

 

[xeniaschiptsova]

Прошу помочь с задачами, т.к. особо в паскале не рублю...

3) Напишите программу которая по значению 2-х катетов вычесляет гипотенузу и площадь треугольника.

4) Напишите программу вычисления расстояния между двумя точками с заданными координатами х1у1 и х2у2

1) Определить знач. истиности высказываний A,B,C,D,E,F,G,I,J,K,
если высказывания a-д истины,а высказывания е-к ложны
а) А<-> (2<3)
б) В<->(2>3)
в) (6<=7)<->¬G
г) (6>=7)<->¬D
д) (2*2=4)<-> E
e) F<->(2<3)
ж) G<->(2>3)
з) (6<=7)<->¬H
и) (6>=7)<->¬I
к) (2*2=4)<->¬J

2) Введите с клавы целочисленные элементы матрицы 3х3, выведите исходную матрицу на экран,
умножте каждый элемент на 3 и выведите результат на экран.

 

[mashadrokova]

Парни помогите пожалуйста!!! Мне нужен словарь из цифр на Паскале от 0 до 9999999999! Напишите программу чтоб выдавала числа от 0 до 9999999999! Писать словарь вручную от 0 до 9999999999 долго, можно же згенерировать его на паскале?! напишите пажалуйста программу ток желательно провереную чтоб работала! заранее спасибо!!!!!!!!!!!!!!!

 

[pchiger]

это типа просто шоб оно выдало все числа до 9999999999 ?

 

[pchiger]

Владислав Valdesor Шитов
4) Напишите программу вычисления расстояния между двумя точками с заданными координатами х1у1 и х2у2

program pr4;
var l,x1,y1,x2,y2 : longint;
f1,f2:text;
begin
assign(f1,'input.in');
reset(f1);
read(x1,y1,x2,y2);
close(f1);
l:=sqrt(sqr(x2-x1)+sqr(y2-y1));
assign(f2,'output.out');
rewrite(f2);
write(f2,l);
cloose(f2);
end.

 

[pchiger]

Владислав Valdesor Шитов:

program pr3;
var AB,AC,BC,S:real;
f1,f2:text;
begin
assign(f1,'pr3.in');
reset(f1);
read(AB,AC);
close(f1);
S:=(AB*AC)/2;
BC:=sqrt(sqr(AB)+sqr(AC));
assign(f2,'pr3.out');
rewrite(f2);
write(f2,'S=',S,' ','katet=',BC);
close(f2);
end.

 

[pchiger]

Владислав Valdesor Шитов:
неуверен шо я правильно решил второе,может быть я условие не понял....
program pr2;
var a:array [1..3,1..3] of longint;
i,j:byte;
f1,f2:text;
begin
assign(f1,'pr2.in');
reset(f1);
for i:=1 to 3 do begin
for j:=1 to 3 do
read(f1,a[i,j]);
end;
close(f1);
assign(f2,'pr2.out');
rewrite(f2);
for i:=1 to 3 do begin
for j:=1 to 3 do
write(f2,a[i,j],' ');
writeln(f2)
end;
writeln(f2);
for i:=1 to 3 do begin
for j:=1 to 3 do
write(f2,a[i,j]*3,' ');
writeln(f2)
end;
close(f2);
end.

 

[Sovety]

Знает кто нить, где можно достать учебник по программированию?

 

[evto]

а у меня задачка=)))
Написать программу по нахождению точек выпуклой оболочки за алгоритмом Джарвиса=)))
2 листа в ворде занимает=)

 

[0lz]

Народ, помогите написать 2 проги, срочно надо.. только на Паскале..

1) Разработать программу, отображающую на экране в графическом режиме изображение введенной строки символов с произвольным коэффициентом увеличения, который может изменяться при нажатии клавиш управления курсором.

2) Использовать очередь или стек для описания двоичных деревьев, элементами которых являются числа. Напечатать все элементы дерева на уровнях дерева. Определить число вершин на каждом уровне дерева.

Заранее благодарен..

 

[kykaev]

ПОМОГИТЕ Записать в файл последовательного доступа N произвольных натуральных чисел. Переписать в другой файл последовательного доступа те элементы, которые кратны К. Вывести полученный файл на печать.

 

[melted_honey]

Задачка:
падение точек в область ограниченную 3 кривыми
y=0.2x-k
y=1.4cos(x+0.25)
y^2=0.5x
k(нач)=0.1 k(кон)=0.5
шаг изменения k=0.1

помогите пжлста програмку написать или блок схему...

 

[Avelia]

В задачи с массивами есть условие, что в массивах не известное кол-во элементов, но не превышает 100 и есть условие: нельзя использовать в алгоритме верхней границы массивов(100). Это значит, что вообще во всей программе нельзя использовать число 100? Или нельзя только в основе программы, а в начале программы(program...begin) можно?

 

[johansson_twin]

ПОМОГИТЕ ПОЖАЛУЙСТА! очень срочно надо...

Задача:
Составить программу, удаляющую в тексте все, что заключено между круглыми скобками (включая скобки). Текст ввести из файла, результат вывести на экран.

 

[Eskat0n]

помогите плз =))
Даны действительные числа х1, у1, х2, у2 ... х10, у10. Найти пириметр десяти угольника, вершины которого имеют соответственно координаты (х1, у1), (х2,у2) ... (х10, у10). В программе определить подпрограму вычесления растояния между двумя точками, заданными своими координатоми.
(программа с функицией)

 

[pchiger]

to рома :
здесь можно использовать теорему архимеда . т.е представить х1 у1 как координаты концов прямоугольного треугольника .
процедура выглядит так :

function distance(x1,y1,x2,y2:longint):real;
var l:real;
begin
l:=sqrt(sqr(x1-x2)+sqr(y1-y2));
distance:=l
end;