Помощь с pascal`ем, решение задач
|
main
Опытный юзверь
Группа: Пользователи
Сообщений: 146
Регистрация: 4.06.2005
Из: г.Красноярск
Пользователь №: 19.586
Респектов: 3
Предупреждений: 0
| Люди мне надо решить восемь задач в паскале, если есть кто в нем рулит помогите, а то я сам не успею. | | |
| |
7.11.2009 - 9:19 |
mlvzevgen
Новичок
Группа: Пользователи
Сообщений: 2
Регистрация: 7.11.2009
Пользователь №: 1.573.638
Респектов: 0
Предупреждений:
| Помогите решить задачи
Задача 1: Составить на языке Паскаль программу: Ввести значения четырех углов в градусах. Вывести на печать tg этих углов по образцу:
tg(45)=1.00 tg(30)=......
********
tg(10)=..... tg(60)=......
Задача 2:Составить на языке Паскаль программу: Найти сумму положительных элементов массива В размерности N и подсчитать их количество. Предоставить схему алгоритма.
Задача 3: Составить на языке Паскаль программу: Найти два наибольших числа среди отрицательных чисел массива и место их расположения в массиве. Предоставить схему алгоритма.
| | |
| |
7.11.2009 - 10:21 |
yah
профи!
[SoftoRooMTeaM]
Группа: Наши Люди
Сообщений: 2.336
Регистрация: 27.01.2006
Из: рнд
Пользователь №: 500
Респектов: 408
| Задача №2Code
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
B: array[1..10] of integer=(5,-1,0,8,-7,7,5,-7,-3,2);
i, sum, kol:integer;
begin
sum:=0; kol:=0;
for i:=1 to 10 do
begin
write(B[i],' ');
if(B[i]>0) then
begin
sum:=sum+B[i];
kol:=kol+1;
end;
end;
Writeln;
Writeln('CYMMA = ',sum,' Kolichestvo = ',kol);
readln;
end.
| | |
| |
23.11.2009 - 1:13 |
kot003
Специалист
Группа: Пользователи
Сообщений: 360
Регистрация: 19.03.2005
Из: Санкт-Петербург
Пользователь №: 9.192
Респектов: 5
Предупреждений:
| Доброе время суток, господа. Учеба, мать её... Попалась вот такая задача: Определить d (день), m (месяц) – дату k-го по счету дня високосного года. Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце Надо написать прогу на паскале используя выбор варианта по ключу Сама структура ключа выглядит так, если кому-то более привычно видеть её в таком виде Code case K of
k1: d1;
..
kn: dn;
End; Сам сидел голову ломал - на if понимаю как построить, а на выборе варианта по ключу - что-то проблематично. Причем нельзя использовать массивы и подобные вещи. if для контроля вводимых данных и выбор по ключу для самого алгоритма Огромное спасибо за внимание! | | |
| |
24.11.2009 - 15:44 |
HoKi
Бывалый
Группа: Пользователи
Сообщений: 40
Регистрация: 19.11.2009
Из: Северодвинск
Пользователь №: 1.587.289
Респектов: 7
Предупреждений: 0
| Хм,можно вопрос?Можно ли на паскале написать прогу,чтобы когда вставляешь флешку в чужой комп,открываешь на флешке программу,нажимаешь кнопочку,и с компьютера на флешку незаметно копируются к примеру "Мои рисунки"? | | |
| |
24.11.2009 - 15:47 |
charodey_mag
Опытный юзверь
Группа: Пользователи
Сообщений: 147
Регистрация: 15.02.2007
Из: Opera
Пользователь №: 335.462
Респектов: 22
Предупреждений:
| Можно. Такие программы называются троянцы. Поищи, в инете их много... | | |
| |
25.11.2009 - 3:45 |
de1ay
профи!
[SoftoRooMTeaM]
Группа: Наши Люди
Сообщений: 4.437
Регистрация: 14.10.2005
Из: EU
Пользователь №: 1.010
Респектов: 613
| HoKi, можно. charodey_mag, такие программы называются копировальщиками файлов.  Никак не "троянцами". | | |
| |
25.11.2009 - 10:01 |
yah
профи!
[SoftoRooMTeaM]
Группа: Наши Люди
Сообщений: 2.336
Регистрация: 27.01.2006
Из: рнд
Пользователь №: 500
Респектов: 408
| Цитата | Quote(kot003 @ 23.11.2009 - 2:13) Попалась вот такая задача: Определить d (день), m (месяц) – дату k-го по счету дня високосного года. Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце Цитата | Quote program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var k:integer;
begin
Write('Vvedite nomer dnya: ');
Readln(k);
case k of
1..31: Writeln('Yanvar, ', k);
32..60: Writeln('Fevral, ', k-31);
61..91: Writeln('Mart, ', k-60);
92..121: Writeln('Aprel, ', k-91);
122..152: Writeln('Mai, ', k-121);
153..182: Writeln('Iyun, ', k-152);
183..213: Writeln('Iyul, ', k-182);
214..244: Writeln('Avgust, ', k-213);
245..274: Writeln('Sentyabr, ', k-244);
275..305: Writeln('Oktyabr, ', k-274);
306..335: Writeln('Noyabr, ', k-305);
336..366: Writeln('Dekabr, ', k-335);
end;
ReadLn;
end.
| | |
| |
25.11.2009 - 10:11 |
HoKi
Бывалый
Группа: Пользователи
Сообщений: 40
Регистрация: 19.11.2009
Из: Северодвинск
Пользователь №: 1.587.289
Респектов: 7
Предупреждений: 0
| de1ay,ой там всё сложно и не по-русски..но всё равно спасибо,может разберусь =)
| | |
| |
25.11.2009 - 11:01 |
kot003
Специалист
Группа: Пользователи
Сообщений: 360
Регистрация: 19.03.2005
Из: Санкт-Петербург
Пользователь №: 9.192
Респектов: 5
Предупреждений:
| yah, Благодарю. А я решил эту задачу более гуманным способом  Не слишком в лоб ) Цитата | Quote Program date; {
Определить d (день), m (месяц) – дату k-го по счету дня високосного года.
Входные данные: k - номер по счету дня
d,m - дата и месяц}
var k,d: Real;
mth,a: byte;
m: string;
Begin
Writeln('Введите порядковый номер дня в году: ');
Readln(k);
if (k < 1) AND (k > 366) then
Begin
writeln('Число задано неверно!'); halt;
End;
d:=k;
for mth:=1 to 12 do
Begin
case mth of
1,3,5,7,8,10,12: a:=31;
2: a:=29;
4,6,9,11: a:=31;
end;
if d > a then d:=d-a else break;
end;
case mth of
1: m:='Января';
2: m:='Февраля';
3: m:='Марта';
4: m:='Апреля';
5: m:='Мая';
6: m:='Июня';
7: m:='Июля';
8: m:='Августа';
9: m:='Сентября';
10: m:='Октября';
11: m:='Ноября';
12: m:='Декабря';
End;
Writeln(k,'-й день в году - ',d,'-е ',m);
End. | | |
| |
12.12.2009 - 21:24 |
serega1313
Грамотный
Группа: Пользователи
Сообщений: 205
Регистрация: 22.05.2007
Из: Россия
Пользователь №: 400.654
Респектов: 42
Предупреждений:
| Помогите решить две задачи,ко вторнику надо,а врубится никак не могу: Цитата | Quote 1. Дано арифметическое выражение, операндами которого являются целые положительные числа, а разрешенные операции "+" и "*". Требуется расставить знаки так, чтобы результат вычисления был максимальным. и вторая: Цитата | Quote 2. Заполнить массив А размером 6х4 следующим способом (смотри картинку)
| | |
| |
|
|
