ЛАБОРАТОРИЯ ПАСКАЛЯ
На сайте реализована новая функция: после ответа на ваш вопрос, вам отправляется письмо на емайл. Письмо может попасть в папку спам, так что проверяйте.

пишем здесь если что то не получается (нажмите, чтобы вернуться на главную)
faizova_leisan@mail.ru2015-12-0912:22:52
#include <stdio.h>
main()
{
float i,s,p,j;
printf("Pari chisel proizvedenie kotorix v 10 raz > ix summi: ");
for (i=1 ;i<=100;i++)
for (j=1;j<=100;j++)
{
s=i+j;
p=i*j;
if (p==10*s)
printf (" i=%f j=%f",i,j);}
}

lex2015-12-0915:53:06


lex
Некрасов
Александр

АДМИНИСТРАТОР

http://paslab.ru/blok-shema.php
здесь строим блок-схему если не нашли, а так все правильно строит проверил.

slam2015-12-2217:51:56


slam
Шафер
Алекс

пользователь

#include"stdio.h"
int main(){
int a[7];
for(int i=0;i<7;i++){
scanf("%d",&a);
}
int f=0;
for(int i=0;i<7;i++){
if(a%3!=0) f=f+(a*a);
else f=f+(a/3);
}
printf("%d",f);
return 0;
}
язык С

lex2015-12-2304:09:16


lex
Некрасов
Александр

АДМИНИСТРАТОР

что именно не получается? только что проверил все работает.
http://paslab.ru/blok-shema.php
здесь строим блок-схему если не нашли, а так все правильно строит проверил.

lex2015-12-2304:11:13


lex
Некрасов
Александр

АДМИНИСТРАТОР

Дорогие друзья, кроме кода вставьте описание проблемы, чем могу помогу.

Лера2015-12-2709:33:00


Лера
Грязева
Валерия

пользователь

Const mn=['+','-','*','/'];
Var s,s1,s2:string;
n,m,k,j,i,t,p:integer;
res:real;
c:char;
Begin
Write('Введите строку: ');readln(s);
res:=0;
For j:=1 to Length(s) do
If not(s[j] in mn) then s1:=s1+s[j]
Else break;
Val(s1,n,k);
c:=s[j];
For p:=j+1 to Length(s) do
If not(s[p] in mn) then s2:=s2+s[p]
Else break;
Val(s2,m,k);
Case c of
'+':res:=n+m;
'-':res:=n-m;
'*':res:=n*m;
'/':if m<>0 then res:=n/m else t:=1;
End;
s1:='';s:=s+'-';
For i:=p+1 to Length(s) do
if not(s in mn) then s1:=s1+s
else
Begin
Val(s1,n,k);
c:=s[i-2];
if k=0 then
Case c of
'+':res:=res+n;
'-':res:=res-n;
'*':res:=res*n;
'/':if n<>0 then res:=res/n else t:=1;
End;
s1:='';
End;
if t<>1 then writeln(res:0:2)
else writeln('На ноль делить нельзя!');
readln;
End.

lex2015-12-2711:22:17


lex
Некрасов
Александр

АДМИНИСТРАТОР

case оператор не работает пока что. если везде убрать его то блок схема построится

tonya182016-01-1921:52:18


tonya18
Бурая
Антонина

пользователь

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



#include <stdio.h>
#include <conio.h>
#include <math.h>
#define size 10
void main()
{
clrscr();
float x,y;
printf ("Введите x:");
scanf ("%f",&x);
y=(1.6*pow(cos(x),3)*sin(M_PI*x)+tan((28+10/60)*M_PI/180))/(log(fabs(0.4*x*x-8))+3.2*x);
printf (" Значение y=%f",y);
getch ();
}


Введите x:45

Значение y=0.003529

lex2016-01-2003:42:47


lex
Некрасов
Александр

АДМИНИСТРАТОР

http://paslab.ru/blok-shema.php
вставьте код здесь

ApeLsin4eG2016-01-2114:52:42
а vba можете построить или только c++?
Public Sub Osypov_8()
Cells.Clear
Dim B() As Integer, m As Integer, n As Integer, iRows As Integer, iCols As Integer, Sum As Single, kol As Single, Sred As Double, dx As Single
iRows = InputBox("ê-ñòü ðÿäê³â")
iCols = InputBox("ê-ñòü ñòîâïö³â")
ReDim B(iRows, iCols) As Integer
Debug.Print "Ìàñèâ B"
Range("A1").Select
ActiveCell.Value = "Ìàñèâ B"
Range("A2").Select
For m = 1 To iRows
For n = 1 To iCols
B(m, n) = Int(Rnd * 370) - 110
Debug.Print B(m, n);
ActiveCell.Value = B(m, n)
ActiveCell.Offset(0, 1).Range("A1").Select
Next n
Debug.Print
ActiveCell.Offset(1, -iCols).Range("A1").Select
Next m
dx = 3
Debug.Print "Ñòîâïåöü", "Ñóìà", "Ê-ñòü", "Ñåðåäíº"
For n = 1 To iCols Step dx
kol = 0
Sum = 0
Sred = 0
For m = 1 To iRows
If B(m, n) < 0 And B(m, n) Mod 4 = 0 Then
Sum = Sum + B(m, n)
kol = kol + 1
End If
Next m
If Sum < 0 Then
Sred = Sum / kol
End If
Debug.Print n, Sum, kol, Format(Sred, "##0.00")
Next n
End Sub



ОТВЕТИТЬ


Сообщество лаборатории в ВК




 Рейтинг@Mail.ru