Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 31.01.2011, 15:00   #1 (permalink)
LeoN47AK
Новичок
 
Регистрация: 31.01.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Помогите сделать блок схему.

1.Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном целочисленном массиве имеется хотя бы один элемент, кратный а и не кратный b.
2.Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10):
a. саженей в метры ( 1 сажень равна 2,1366 м)
b. футов в метры (1 фут равен 0,3048 м)
c. драхм в граммы (1 драхма равна 3,7325 г)
d. унций в граммы (1 унция равна 29,86 г)
e. фунтов в килограммы (1 фунт равен 0,40951 кг)
f. аршинов в метры (1 аршин равен 0,7112 м)
g. золотников в граммы (1 золотник равен 4,2657 г)
h. дюймов в миллиметры (1 дюйм равен 25,3995 мм)
3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ...
4.Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
Листинг есть в блок схемах к сожалению не шарю заранее спасибо за помощь!!!
LeoN47AK вне форума   Ответить с цитированием

Старый 31.01.2011, 15:00
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Возможно вам будет полезно обратить внимание на эти топики

Помогите сделать схему
Помогите пожалуйста составить блок-схему!

Старый 31.01.2011, 15:09   #2 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
По умолчанию

LeoN47AK если вам нужны блок-схемы по вашим листингам, то выкладывайте их сюда.

Последний раз редактировалось shrek=); 31.01.2011 в 15:17
shrek=) вне форума   Ответить с цитированием
Старый 31.01.2011, 15:14   #3 (permalink)
LeoN47AK
Новичок
 
Регистрация: 31.01.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

1.Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном целочисленном массиве имеется хотя бы один элемент, кратный а и не кратный b.
program Project1;
{$APPTYPE CONSOLE}
uses sysutils;
var
l:array[1..100] of integer;
a,b,n,i:integer;
w:boolean;
begin
readln(n);
randomize;
for i:=1 to n do
begin
l[i]:=random(10)-3;
write(l[i]:3);
end;
writeln;
readln(a,b);
w:=false;
for i:=1 to n do
if (l[i] mod a=0) and (l[i] mod b<>0) then
begin
w:=true;
end;
writeln(w);
readln;
end.


3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ...
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
VAR
a,e:REAL;
i:BYTE;
BEGIN
e:=1;
i:=0;
a:=1;
Repeat
Inc(i);
a:=a/i;
e:=e+a;
Until a<0.000001;
WriteLn(e:9:7);
ReadLn;
END.


Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
program Project2;
{$APPTYPE CONSOLE}
uses sysutils;
var
i,j:integer;
begin
for i:=10 to 99 do
for j:=1 to 99 do
if (i*100+j) mod (i*j) = 0 then writeln(i,' i ',j);
readln
end.
LeoN47AK вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
блок схема, задача, помогите, програмирование, программа

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 09:49.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.