Нужна ваша помощь - Форум
Пятница, 09.12.2016, 16:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужна ваша помощь (Все весьма, просто, но почему то немогу сделать)
Нужна ваша помощь
GarbertДата: Среда, 15.06.2011, 01:47 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
Program variant_5_2;
uses crt;
var n,i,j:integer;
begin
clrscr;
write('n='); readln(n);
for i:=n downto 2 do
begin
writeln;
for j:=i downto 2 do
write(j:3);
end;
end.
=====================================================================================================
program varint_5_3;
uses crt;
var N, i:byte;
begin
clrscr;
for i:=1 to 6 do
begin
write ('введите N= ');
readln (N);
if (N>=0) and (N mod 4=0) then writeln ('n делится ',n) else writeln ('n не делится ',n);
end;
readln;
end.
=====================================================================================================
program variant_5_1;
uses crt;
var x, f,a, xn, xk, h: real;
begin
clrscr;
write ('введите xn='); readln(xn);
write ('введите xk='); readln(xk);
write ('введите a='); readln(a);
write ('введите h='); readln(h);
x:=xn;
while x<=xk do begin
if x<1 then f:=1.5*sqr(cos(x))
else if x=1 then f:=1.8*a*x
else
if x>2 then f:=3*(sin(x)/cos(x))
else f:=(sqr(x-2))+6;
writeln(x:6:1,f:10:2);
x:=x+h;
end;
repeat until keypressed;
end.
=====================================================================================================
Нужна помощь - нужно либо первую либо вторую задачу переделать под оператор repeat и ко всем трем составить блок схемы.
Заранее спасибо.
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 15:51 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
блок-схемы может составить прога - раздел главная-файлы. Там скачать. Я проверял - работает.
 
KOT_B_MEIIIKEДата: Среда, 15.06.2011, 16:03 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 284
[ 36 ]
Статус: Offline
Code
program varint_5_3;
uses crt;
var N, i:byte;
begin
clrscr;
i:=0;
repeat
i:=i+1;
write ('VV N= ');
readln (N);
if (N>=0) and (N mod 4=0) then writeln ('n delitsa ',n) else writeln ('n ne delitsa',n);
until i>6;
readln;
end.
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Нужна ваша помощь (Все весьма, просто, но почему то немогу сделать)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016