IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

2 страниц V  1 2 >  
Closed Topic Открыть новую тему 
> помогите умоляю
сообщение
Сообщение #1


Гость






помогите кто знает я в отчаяньи
Всего 4 задачи: (Операция целочисленного деления)
Цитата(Задача 1)
Написать программу которая по номеру дня недели выдаёт количество уроков в этот день.

Цитата(Задача 2)
Определить равен ли квадрат заданного трёхзначного числа,кубу суммы цифр этого числа.

Цитата(Задача 3)
Написать программу нахождении суммы большего и меньшего из 3 чисел(а,в,с)

Цитата(Задача 4)
Подсчитать количество положительных чисел среди чисел(а,в,с)

Вот прошу помоги просто неккому обратиться больше 8-)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Пока держи 4:

Код
program new1;
var a,b,c:real;
begin
writeln('введите 3 числа');
readln(a,b,c);
if a=>0 then
if b=>0 then
if c=>0 then
writeln('3 числа положительны');
else writeln('2 числа положительны');
else writeln('1 число положительно');
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Number 3:
Заранее прошу прощение за кривое написание но я пишу это в 2 ночи так что......
Код
program new2;
var s,a,b,c:real;
begin
writeln('введите a,b,c');
readln(a,b,c);
if a<b and b<c then do
begin
s:=a+c;
write('сумма равна', s:5:3);
end;
else
if b<a and a<c then do
begin
s:=b+c;
write(сумма равна', s:5:3);
end;
else
if a<c and c<b then do
begin
s:a+b;
write('сумма равна', s:5:3);
end;
end.


Кстати MJ ты щас в онлайне вроде бы....может заодно проверишь???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Цитата
Пока держи 4:

program new1;
var a,b,c:real;
begin
writeln('введите 3 числа');
readln(a,b,c);
if a=>0 then
if b=>0 then
if c=>0 then
writeln('3 числа положительны');
else writeln('2 числа положительны');
else writeln('1 число положительно');
end.

Это неверное решение задачи...
И ещё: перед else нельзя ставить точку с запятой.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


1.
Код
program P1;
var
 d, u :Byte;
begin
 writeln('введите день недели (1..7)');
 readln(d);
 case d of
   1: u := 4;
   2: u := 2;
   3: u := 3;
   4: u := 3;
   5: u := 4;
   6: u := 2;
   7: u := 0;
   else u := 255;
 end;
 if u=255 then writeln('День недели введён неверно')
 else writeln('Сегодня уроков: ', u);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


2.
Код
program P2;
var
 d, u: Word;
begin
 writeln('введите трёхзначное число');  
 readln(d);
 if (d<100) or (d>999) then
   writeln('Число введено неверно')
 else begin
   u := (d div 100)+(d div 10 mod 10)+(d mod 10);
   if (d*d)=(u*u*u) then writeln('Да');
   else writeln('Нет');
 end;
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


3.
Код
program P3;
var  
 d1, d2, d3, d: Integer;
begin  
 writeln('введите три числа');  
 readln(d1);
 readln(d2);
 readln(d3);
 if d2<d1 then
 begin
   d := d1;
   d1 := d2;
   d2 := d;
 end;
 if d3<d1 then
 begin
   d := d1;
   d1 := d3;
   d3 := d;
 end;
 if d3<d2 then
 begin
   d := d2;
   d2 := d3;
   d3 := d;
 end;
 d := d1+d3;
 writeln('Ответ ', d);
end.

----- -----
3. способ сложнее
Код
program P3;
var  
 a, b, c, p, m, u: Integer;
begin  
 writeln('введите три числа');  
 readln( a );
 readln( B );
 readln( c );
 p := (a+b+abs( a-B )) div 2;
 m := (a+b-abs( a-B )) div 2;
 u := (c*2+p+abs(p-c)+m-abs(m-c)) div 2;
 writeln('Ответ ', u);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


4.
Код
program P4;
var  
 d1, d2, d3, d: Integer;
begin  
 writeln('введите три числа');    
 readln(d1);
 readln(d2);
 readln(d3);
 d := byte(d1>=0)+byte(d2>=0)+byte(d3>=0);
 writeln('Ответ ', d);
end.


PS: Во всех задачах можно использовать любые типы числовых данных (вместо предложенных мною)...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Вчера ночью сидел решал эти задачи и хотел как приду после унивситета, их размещу... А тут уже все решено... Остались ли у тебя какие-либо вопросы, Tema ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
Это неверное решение задачи...
И ещё: перед else нельзя ставить точку с запятой.

Я уже понял....вот сижу разбираю!Вчера просто загрузочный день был! 8)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Вот правильное решение:

Код
program new1;
uses wincrt;(у меня виндовый пас)
var a,b,c:real;
begin
writeln('введите 3 числа');
readln(a,b,c);
if a>=0  then
if b>=0  then
if c>=0  then
writeln('3 числа положительны')
else writeln('2 числа положительны')
else writeln('1 число положительно')
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Цитата
program P2;
var  
 d, u: Word;  
begin  
 writeln('введите трёхзначное число');  
 readln(d);
 if (d<100) or (d>999) then
   writeln('Число введено неверно')  
 else begin
   u := (d div 100)+(d div 10 mod 10)+(d mod 10);
   if (d*d)=(u*u*u) then writeln('Да');
   else writeln('Нет');
 end;
end.

У тебя тоже такая же ошибка - перед else точку с запятой поставил!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Цитата
У тебя тоже такая же ошибка - перед else точку с запятой поставил!

Верно...
Я эти задачи не проверял...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Adminь
****

Группа: Пользователи
Сообщений: 803
Пол: Мужской
Реальное имя: Евгений

Репутация: -  5  +


Цитата
Вот правильное решение:

program new1;
uses wincrt;(у меня виндовый пас)
var a,b,c:real;
begin
writeln('введите 3 числа');
readln(a,b,c);
if a>=0  then
if b>=0  then
if c>=0  then
writeln('3 числа положительны')
else writeln('2 числа положительны')
else writeln('1 число положительно')
end.

Ну это полная чушь...
Если a и с положительные, а b отридцательное, то ответ будет 1.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #15


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


Точно....прогоняю по-страшному!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #16


Пионер
**

Группа: Пользователи
Сообщений: 104
Пол: Мужской

Репутация: -  0  +


А вообще задачи, что то не трудные.
НАдо больше вопросов админам оставлять пусь работают, работают. А так молодцы, что помогаете. Ведь не Всем надо знать этот Паскаль. Напрягают в универе напрягают, и  что. Вот у нас в универе есть кто учится на специальности прикладная ифномратика, а понимать и решать, делать программы на языках программирования не хотят. Вот, что с ними делать, нафиг учаться?????


--------------------
Заработок в Интернете www.webdengi.nm.ru
www.turbopascal.tk
FIDO 2:5028/63.29
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #17


Бывалый
***

Группа: Пользователи
Сообщений: 201

Репутация: -  0  +


На какой фиг тогда они пошли на такую специальность!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #18


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


Да птому что папа так захотел и усё..............


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #19


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


У меня в группе 30 человек...7 уверено идут на отчисление....после этого семестра останется не больше 20!В математике и компьютерах - ни бум-бум!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #20


...
*****

Группа: Пользователи
Сообщений: 1 347
Пол: Мужской

Репутация: -  3  +


А теперь вопрос: на какой черт они сунулись на эту специальность?...да группа то у нас к тому же платная!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

2 страниц V  1 2 >
Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 16:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name