Помогите решить задачи
Задача 1: Составить на языке Паскаль программу: Ввести значения четырех углов в градусах. Вывести на печать tg этих углов по образцу:
tg(45)=1.00 tg(30)=......
********
tg(10)=..... tg(60)=......
Задача 2:Составить на языке Паскаль программу: Найти сумму положительных элементов массива В размерности N и подсчитать их количество. Предоставить схему алгоритма.
Задача 3: Составить на языке Паскаль программу: Найти два наибольших числа среди отрицательных чисел массива и место их расположения в массиве. Предоставить схему алгоритма.
Задача №2
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.
Code
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.
Доброе время суток, господа.
Учеба, мать её...
Попалась вот такая задача:
Определить d (день), m (месяц) – дату k-го по счету дня високосного года.
Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце
Надо написать прогу на паскале используя выбор варианта по ключу
Сама структура ключа выглядит так, если кому-то более привычно видеть её в таком виде
Сам сидел голову ломал - на if понимаю как построить, а на выборе варианта по ключу - что-то проблематично.
Причем нельзя использовать массивы и подобные вещи. if для контроля вводимых данных и выбор по ключу для самого алгоритма
Огромное спасибо за внимание!
Учеба, мать её...
Попалась вот такая задача:
Определить d (день), m (месяц) – дату k-го по счету дня високосного года.
Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце
Надо написать прогу на паскале используя выбор варианта по ключу
Сама структура ключа выглядит так, если кому-то более привычно видеть её в таком виде
Code
case K of
k1: d1;
..
kn: dn;
End;
k1: d1;
..
kn: dn;
End;
Сам сидел голову ломал - на if понимаю как построить, а на выборе варианта по ключу - что-то проблематично.
Причем нельзя использовать массивы и подобные вещи. if для контроля вводимых данных и выбор по ключу для самого алгоритма
Огромное спасибо за внимание!
Хм,можно вопрос?Можно ли на паскале написать прогу,чтобы когда вставляешь флешку в чужой комп,открываешь на флешке программу,нажимаешь кнопочку,и с компьютера на флешку незаметно копируются к примеру "Мои рисунки"?
Можно. Такие программы называются троянцы. Поищи, в инете их много...
HoKi, можно.
charodey_mag, такие программы называются копировальщиками файлов.
Никак не "троянцами".
charodey_mag, такие программы называются копировальщиками файлов.
Никак не "троянцами". Цитата | Quote(kot003 @ 23.11.2009 - 2:13)
Попалась вот такая задача:
Определить d (день), m (месяц) – дату k-го по счету дня високосного года.
Т.е. есть високосный год. 366 дней. Дается цифра из диапазона 1..366, надо из этой цифры изъять информацию о номере месяца и номере числа в этом месяце
Определить 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.
{$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.
de1ay,ой там всё сложно и не по-русски..но всё равно спасибо,может разберусь =)
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.
Определить 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.
Помогите решить две задачи,ко вторнику надо,а врубится никак не могу:
и вторая:
Цитата | Quote
1. Дано арифметическое выражение, операндами которого являются целые положительные числа, а разрешенные операции "+" и "*". Требуется расставить знаки так, чтобы результат вычисления был максимальным.
и вторая:
Цитата | Quote
2. Заполнить массив А размером 6х4 следующим способом (смотри картинку)
SoftoRooM © 2004-2024