Частное - это целое число...
P.S. Я сегодня детально не смогу помочь (мало времени). Какой срок сдачи задачния?
Частное - это целое число...
P.S. Я сегодня детально не смогу помочь (мало времени). Какой срок сдачи задачния?
Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.
Trotil
До понедельника помогите пожалуйста!!! Хотя бы парочку задачек.
3. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.
var n:integer;
begin
readln(n);
if n mod 3=0 then writeln('да') else writeln('нет');
readln;
end.
2. Написать программу решения квадратного уравнения. Программа должна проверять правильность исходных данных и в сучае, когда коэффициент при второй степени неизвестного раве нулю, выводить соответствующее сообщение.
var a,b,c:integer;
x1,x2,d:real;
begin
readln(a,b,c);
if a=0 then writeln('уравнение не квадратное') else begin
d:=sqrt(b*b-4*a*c);
if d<0 then writeln('уравнение не имеет корней');
if d=0 then begin x1:=(-1*b)/(2*a); writeln(x1);end;
if d>0 then begin x1:=(-1*b)-d/(2*a); x2:=(-1*b)+d/(2*a);writeln(x1,' ',x2);end;
end
readln;
end.
4. Написать программу, которая вычисляет сумму первых n членов ряда 1,2,3,5,7,... Количество суммируемых членов ряда задается во время работы программы.
Не поняла последовательности... Может, вместо 7 стоит 8?
Вообще, мои решения еще перепроверить надо, но решалось, кажется, так. Если ничего не путаю.
Deep Sin
Спасибо большое!!! Действительно очень помогла!!!!
Помогите пожалуйста. Надо написать программу в TurboPasсal, которая нарисует месяц.
Ключевая функция:
Ellipse(X,Y,BAngle,Eangle,XRad,YRad);
X,Y - координаты центра, Bangle и Eangle - начальный и конечный углы дуги (в радианах), XRad,Yrad - горизонтальный и вертикальных радиус эллипса.
Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.
Здравствуйте. Пожалуйста помогите решить 4 задачки в Паскале. Я в этом вообще ни чего не понимаю. Если можно то сделайте до 5.04.2007 (субботы)
№1. Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7
№2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2
№3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.
№4 Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.
Здравствуйте. Пожалуйста помогите решить 4 задачки в Паскале. Я в этом вообще ни чего не понимаю. Если можно то сделайте до 5.04.2007 (субботы)
#1. Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7
#2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2
#3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.
#4 Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.
Можете кто-нибудь помочь написать 2 программки по информатике?
1)Дан двухмерный массив. определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательные элементов.
(Free Pascal)
2) Сформировать двухерный массив:
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5
(Free Pascal)
Помогите мне пожалуйста=((
Не могу понять почему не работает программа=(( Паскаль постоянно выдаёт ошибки...
Вот задача и прога
2)Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с наименьшей суммой элементов и заменить все элементы этого столбца этой суммой.
Реш.
Uses Crt;
Const NMAX=100;
Type
Vector=array[1..NMAX] of integer;
Matrix=array[1..NMAX] of Vector;
var
a:matrix;
n,m:byte;
b:vector;
Procedure InputM(var M:matrix;str:byte;sto:byte);
var
i,j: integer;
begin
for i := 1 to str do
for j := 1 to sto do
m[i,j]:=random(20);
end;
procedure PrintM(var M: Matrix;str:byte; sto:byte;s:string);
var
i,j: integer;
begin
writeln(s);
for i := 1 to str do
begin
for j := 1 to sto do write(M[i,j]:4,' ');
writeln;
end;
end;
Procedure Summ(var M:matrix;str:byte;sto:byte;s1:string);
var j,i:byte;
s:word;
begin
writeln(S1);
for j:=1 to sto do
begin
s:=0;
for i:=1 to str do
begin s:=s+m[i,j]; end;
b[j]:=s;
write(b[j],' ');
end;
end;
Function MinJ(var V: Vector;sto:byte):byte;
var
min,mini: integer;
j: integer;
begin
min := V[1];
mini := 1;
for j := 2 to sto do
if V[j]<min then
begin
min := V[j];
mini := j;
end;
MinJ:=mini;
end;
Function MinS(var V: Vector;sto:byte):byte;
var
min,mini: integer;
j: integer;
begin
min := V[1];
mini := 1;
for j := 2 to sto do
if V[j]<min then
begin
min := V[j];
mini := j;
end;
MinS:=min;
end;
procedure MinSt(var M1: Matrix; str:byte);
var
i: integer;
mini: integer;
begin
for i := 1 to str do
begin
M1[i,MinJ(b,m)] := MinS(b,m);
end;
end;
Begin
CLRSCR;
writeln('‚ўҐ¤ЁвҐ Ї®а冷Є ¬ ваЁжл');
read(n,m);
InputM(a,n,m);
PrintM(a,n,m,'?б室- п ¬ ваЁж ');
summ(a,n,m,'‘г¬¬л Ї® бв®«Ўж ¬');
writeln;
Writeln('Ќ®¬Ґа бв®«Ўж б ¬Ё-Ё¬ «м-®© б㬬®©');
Writeln(MinJ(b,m));
Writeln('ЊЁ-Ё¬ «м- п б㬬 ');
Writeln(minS(b,m));
writeln;
MinSt(a,n);
PrintM(a,n,m,'Њ ваЁж Ї®б«Ґ § ¬Ґ-л');
readkey;
end.
Груша, не надо дублировать темы, это запрещено нашими правилами. Достаточно того, что ты оставила свой вопрос здесь. Если кто-то сможет тебе помочь, то обязательно ответит.
Ясно буду знать=_)
Пожалуйста, помогите решить задание. Я эту тему вообще не поняла, а завтра надо уже сдавать(
1)
Построить таблицу истинности:
a)не А и B или B и C
_
А ^ B v B ^C
A=1
B=0
C=1
b) A и B и C или не C
_
A v B v C ^ C
2)
Логическое уравнение
_ ____
a) (x1+x3)*x1=x1*x2*x3
__ __ __
b) x2*x3+x1*x2=(x1+x2)*x2
В первом черточка над С
Во втором
a)черточка над х3 после равно х1,х2
b)черточка над х2,х2 после равно и после скобок над х2
До экзамена осталось 2 дня. Одну задачу я сделала, но осталась вот эта. Как к ней подступиться не знаю. Задачу надо сделать в екселе, используя в ней формулы ВПР и СУММЕСЛИ.
Составить таблицы следующего вида:
Справочник библиотечных изданий
Инвентарный номер Наименование книги Автор Цена
Справочник читателей
Номер чита-тельского би-лета Инвентарный номер Дата выдачи Фактическая дата возвра-та Номер телефона
Заполнить первые две таблицы. С помощью справочных таблиц должна автоматически заполняться результирующая таб-лица.
Возврат книг в библиотеку
Номер читательского билета Дата возврата Штраф
Штраф в размере 10 % взимается тогда, когда книга нахо-дится у читателя больше месяца.
Привести круговую диаграмму о наличии в библиотеке книг одного и того же автора, автоматически корректируемую при изменении данных в исходной таблице.
Вывести наименование самой дорогой книги, хранящейся в библиотеке.
Помогите решить задание такое: Y=a/n 〖*x〗^2+b*x+ln〖x/n〗 на интервале xЄ [a1; a2]
Idea and creation: fuldon (aka miXei) © 2000-2015
Powered by vBulletin® Version 4.2.6 by vBS Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. |