Построение блок схем алгоритмов. Алгоритмические языки высокого уровняРефераты >> Программирование и компьютеры >> Построение блок схем алгоритмов. Алгоритмические языки высокого уровня
#include<iostream.h>
#include<conio.h>
#include<stdio.h>
int main()
{
int l1=0,l2=0,i,j,a,b;
float G[10][10],sum1=0,sum2=0;
clrscr();
cout<<"Input A and B: ";
cin>>a;
cin>>b;
for (i=1;i<=a;i++)
for (j=1;j<=b;j++)
{
cout<<"G["<<i<<","<<j<<"]= ";
cin>>G[i][j];
}
for (i=1;i<=a;i++)
for (j=1;j<=b;j++)
{
if (G[i][j]>=0.0)
{
l1+=1;sum1+=G[i][j];
}
else
{
l2+=1;sum2+=G[i][j];
}
}
if (l1>l2) cout<<"Summa(+)= "<<sum1;
if (l1<l2) cout<<"Summa(-)= "<<sum2;
if (l1==l2) cout<<"(-) = (+)";
getch();
return 0;
}
|
Задание №3 |
Turbo Pascal |
Program lab_3;
Uses Crt;
Var
g:array[1 100,1 100] of real;
l1,l2,i,j,a,b:integer;
sum1,sum2:real;
Begin
clrscr;
l1:=0;l2:=0;sum1:=0;sum2:=0;
write('Input a: ');
readln(a);
write('Input b: ');
readln(b);
for i:=1 to a do
begin
for j:=1 to b do
begin
write('Input G[',i,',',j,']:');readln(g[i,j]);
end;
writeln;
end;
for i:=1 to a do
begin
for j:=1 to b do
begin
if g[i,j]>=0.0 then
begin
l1:=l1+1;sum1:=sum1+g[i,j];
end
else
begin
l2:=l2+1;sum2:=sum2+g[i,j];
end;
end;
end;
if l1>l2 then write('Z+ =',sum1:3:5);
if l1<l2 then write('Z- =',sum2:3:5);
if l1=l2 then write('l1=l2');
readln;
End.
|
Задание №3 |
Borland Delphi 5 |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ListBox1: TListBox;
Button5: TButton;
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i,j,m,n:integer;
g:array[1 100,1 100] of real;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
i:=1;
j:=1; {FormCreate}
m:=1;
n:=0;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
i:=i+1;
j:=1; {NEXT}
m:=m+1;
n:=0;
Listbox1.Items.Add('');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Listbox1.Items.Add(Edit1.Text);
g[i,j]:=StrToFloat(Edit1.Text);
j:=j+1;
n:=n+1; {ADD}
Edit1.Text:='';
end;
procedure TForm1.Button4Click(Sender: TObject);
var
l1,l2:integer;
sum1,sum2:real;
s:string;
begin
l1:=0;l2:=0;sum1:=0.0;sum2:=0.0;
for i:=1 to m do {CALC}
for j:=1 to n do
begin
if g[i,j]>=0.0 then
begin
sum1:=sum1+g[i,j];
l1:=l1+1;
end;
if g[i,j]<0.0 then
begin
sum2:=sum2+g[i,j];
l2:=l2+1;
end;
end;
if l1>l2 then
begin
str(sum1:3:5,s);
Edit2.Text:=s;
end;
if l1<l2 then
begin
str(sum2:3:5,s);
Edit2.Text:=s;
end;
if l1=l2 then Edit2.Text:=' "+" = "-" ';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
procedure TForm1.Button5Click(Sender: TObject);
var
sum1,sum2:real;
begin
Edit1.Text:='';
Edit2.Text:=''; {CLEAR}
Listbox1.Clear;
sum1:=0.0;
sum2:=0.0;
i:=1;j:=1;m:=1;n:=0;
end;
end.
 |
Список используемой литературы:
|
1 |
Джесс Либерти. Освой самостоятельно С++ за 21 день. М, Вильямс, 2001 |
|
2 |
Конспект лекций по курсам «Системное программирование», «Алгоритмические языки». |
|
3 |
Г.С. Прокудин, Л.М. Оленина. Компьютерная техника и программирование. Часть 2. Алгоритмизация и программирование. Издательство Украинско-финского института менеджмента и бизнеса. Киев, 1998, 56. |
|
4 |
В.И. Пономарёва. Практикум по программированию в среде Turbo Pascal. Симферополь, Таврида, 1998, 256. |
|
5 |
Глушаков С.В., Коваль А.В., Смирнов С.В. Язык программирования С++. Харьков, Фолио, 2002, 500. |
