19. (Язык программирования - Pascal). Ввести с клавиатуры 3 действительных числа. Вывести на экран в одной строке их квадраты с 4 знаками в дробной части, в другой – сумму и среднее арифметическое

program exam19;

{ Ввести с клавиатуры 3 действительных числа.Вывести на экран в одной строке их квадраты

с 4 знаками в дробной части, в другой - сумму и среднее арифметическое }

var

a,b,c: real;

sum: real;

begin

write('введите три числа:'); readln(a,b,c);

writeln('квадраты: ',sqr(a):10:4,' ',sqr(b):10:4,' ',sqr(c):10:4);

sum:=a+b+c;

writeln('сумма и среднее:',sum:10:4,' ',sum/3:10:4);

readln;

end.

21 (Язык программирования - Pascal). Создать программу решения квадратного уравнения. Коэффициенты уравнения вводятся пользователем с клавиатуры

program exam21;

{ Создать программу решения квадратного уравнения. }

{ Коэффициенты уравнения вводятся пользователем с клавиатуры }

var

a,b,c: real; // коэффициенты уравнения

D,x1,x2: real; // дискриминант и корни

begin

write('введите коэффициенты уравнения: '); readln(a,b,c);

D:=b*b-4*a*c;writeln(' D= ',D:10:4);

if D<0 then writeln('решения нет')

else begin

x1:=(-b+sqrt(D))/2/a; x2:=(-b-sqrt(D))/2/a;

writeln('x1= ',x1:10:4,' x2=',x2:10:4);

end;

readln;

end.

2. (Язык программирования – C++). Составить программу, определяющую, является ли год високосным

// exam02 - пример условного оператора

// определить, является ли год високосным - вариант 2

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

int year, result;

// ввод года

cout << ("\n\nВведите год -> "); cin >> year;

if ((year % 4 )!=0) result = 0; // если год не делится на 4 - он не високосный

else

{

if ((year % 100) == 0)

{

// если год вековой (1800, 1900, 2000 ...) то он

// является високосным только если (year/100) % 4 =0

if (((year/100) % 4) == 0) result =1;

else result = 0;

}

else result =1;

}

if (result == 1) cout << year << " - это високосный год";

else cout << year << " - это НЕ високосный год";

getchar(); getchar();

return 0;

}

******************************************

// exam02a - пример условного оператора

// определить, является ли год високосным - другой вариант

#include <iostream>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

int year;

cout << "введите год: "; cin>>year;

if ((year % 4)!=0) {cout<<"год не високосный\n"; }

else

if ((year%100 == 0)&&(year%400 !=0)) {cout <<"год не високосный\n"; }

else cout <<"год високосный\n";

getchar(); getchar();

return 0;

}

4. (Язык программирования - C++). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл с предусловием

#include <iostream>

#include <stdio.h>

#include <conio.h>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

int i=0, n=10; // n - размер массива

float a[n]; // объявление массива

float s;

// ВВОД МАССИВА

cout<<"введите элементы массива:\n";

for (i=0;i<n;i++)

{ cout<<"a["<<i<<"]= "; cin>>a[i]; }

// ВЫВОД МАССИВА

cout << "введенный массив:\n";

for (i=0;i<n;i++)

//cout << a[i]<<" ";

printf("%8.4f ",a[i]);

s = 0; i=0;

while (i<n)

{ s+=a[i];i++; }

s/=n; cout<<"\nсреднее равно:"<<s<<endl;

getch();

return 0;

}

6. (Язык программирования - C++). Составить фрагмент программы вычисления максимального значения одномерного массива, используя цикл с постусловием

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

int i=0, n=10; // счетчик и размер массива

float a[n], amax;

setlocale(LC_ALL,"Russian");

// ввод элементов массива

cout << "Ввод элементов массива" << endl ;

for (i=0; i<10; i++) { cout << "a[" << i << "] = "; cin >> a[i]; }

// для контроля: вывод массива

for (i=0; i<10; i++) printf("%8.4f ",a[i]);

// определение минимального элемента

i=1; amax=a[0];

do

{

if (amax<a[i]) amax=a[i]; i++;

} while (i<n);

cout<<"\nмаксимальный элемент: "<<amax<<endl;

return 0;

}

7. (Язык программирования – Pascal, C++). Составить фрагмент программы открытия и чтения строк из текстового файла

// чтение строк из текстового файла

#include <iostream>

#include <stdio.h>

#include <string.h>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

FILE *file;

char fname[] = "d:\\exam07.txt";

char res_string[50]; //Строка в 50 символов

file = fopen(fname,"r");

if(file == 0)

{

printf("не могу открыть файл '%s'",fname);

return 0;

}

while(fgets(res_string,sizeof(res_string),file))

{ printf("%s",res_string); }

fclose(file);

getchar(); getchar();

return 0;

}

9. (Язык программирования - C++). Составить фрагмент программы вычисления среднего значения одномерного массива, используя цикл со счетчиком

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

int i=0, n=10; // счетчик и размер массива

float a[n], s;

setlocale(LC_ALL,"Russian");

// ввод элементов массива

cout << "Ввод элементов массива" << endl ;

for (i=0; i<10; i++) { cout << "a[" << i << "] = "; cin >> a[i]; }

// для контроля: вывод массива

for (i=0; i<10; i++) printf("%8.4f ",a[i]);

// определение среднего значения

for (i=0,s=0;i<n;i++) s+=a[i]; s/=n;

cout<<"\nсреднее значение: "<<s<<endl;

getchar();getchar();

return 0;

}

11. (Язык программирования – С++). Составить фрагмент программы вычисления минимального значения одномерного массива, используя цикл со счетчиком

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

int i=0, n=10; // счетчик и размер массива

float a[n], amin;

setlocale(LC_ALL,"Russian");

// ввод элементов массива

cout << "Ввод элементов массива" << endl ;

for (i=0; i<10; i++) { cout << "a[" << i << "] = "; cin >> a[i]; }

// для контроля: вывод массива

for (i=0; i<10; i++) printf("%8.4f ",a[i]);

// определение минимального элемента

amin=a[0];

for(i=1;i<n;i++) if (amin>a[i]) amin=a[i];

cout<<"\nминимальный элемент: "<<amin<<endl;

getchar();getchar();

return 0;

}

13. (Язык программирования - C++). Составить фрагмент программы ввода и вывода на экран двумерного массива

#include <iostream>

#include <conio.h>

#include <stdio.h>

using namespace std;

int main()

{

setlocale(LC_ALL,"Russian");

int ROWS=10, COLS=10, i,j;