сервис вопросов и ответов1 Составить программу на языке Паскаль. Написать программу, заносящую в файл массив из 7 вещественных чисел, введенных с клавиатуры, а потом считывающую
5-9 класс|
|
этот массив и выводящую на экран количество отрицательных элементов. Если таких нет, то выдать об этом сообщение.
2. Составить программу на языке Паскаль. Описать функцию нахождения максимума для двух величин. Ввести с клавиатуры a,b,c,d. Для каждой пары величин найти максимальную, а потом напечатать большее из максимальных величин.
Korelinsergei
12 дек. 2015 г., 22:47:21 (8 лет назад)
соломон4ик
13 дек. 2015 г., 1:15:21 (8 лет назад)
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
for i:=1 to 7 do
begin
readln(x);
a[i]:=x;
end;
assign(f,'file.txt');
rewrite(f);
for i:=1 to 7 do
begin
str(a[i],s);
writeln(f,s);
end;
close(f);
reset(f);
k:=0;
while not eof(f) do
begin
readln(f,s);
val(s,x,c);
if x<0 then k:=k+1;
end;
close(f);
if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
else writeln('В массиве нет отрицательных элементов');
erase(f);
end.
2)
Var a,b,c,d:integer;
Function max(a,b:integer):integer;
begin
if a>b then max:=a
else max:=b;
end;
Begin
readln(a,b,c,d);
a:=(max(a,b));
b:=(max(c,d));
writeln('max=',max(a,b));
Ответить
Другие вопросы из категории
Ребят , помогите пожалуйста с информатикой ,я в ней вообще ноль . Составьте алгоритм вывода на экран значений функций 6x^2+x-10 для x от 1 до 100 , если я
не ошибаюсь, нужно составить циклический алгоритм . Заранее спасибо
СРОЧНО!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
решите чему будет равен х и у
programp2;
var a,b,a1,b1:real;
procedure sd (x,y:real; var p,q:real);
begin
p:=(x+y)/2;
q:=(x-y)/2;
end;
begin
a:=2;b:=-4
sd(a,b,a1,b1);
writeln ('a', a:5:2,'b='b:5:2, 'al=',al:5:2,'bl=',bl:5:2);
sd(a,b,b1,a1);
writeln('a=',a:5:2, 'b=', b:5:2, 'al=',al:5:2, 'bl=', b1:5:2);
end.
Читайте также
3. Написать программу, которая вводит массив из N вещественных чисел, а затем заменяет в нём все элементы, превышающие данное число Z, этим числом. Вывести
на экран полученный массив и количе-ство замен. Протестировать программу на следующих исходных данных:
а) Z=10 Массив: 1,2 2,6 3 -4,5 11 10,2 3,2 87 -15
б) Z=-2 Массив: 0 -3,1 11 -7,9 -2,1 -1,9 4
НА ПАСКАЛЕ
Составьте программу на языке Паскаль для решения квадратного уравнения.Коэффициенты a,b и c вводятся с клавиатуры.На экране выводится информация о
значении корней квадратного уравнения.
Плиз срочно надо.1)Найдите правильную на языке паскаль запись выражения
19(16,3+7,7).а)19(16.3+7.7),в)19*(16.3+7.7).д)19(16,3+7.7).с)19*(16.3+7.7).2)Найдите правильную на языке паскаль записы выраженияа)34.5+24.5/15у в)(34.5+24.5)/15у с)(34.5+24.5)15*у.д)(34.5+24.5)/(15*у).3)Вычислите длину окружности и площадь круга одного и того же заданного радиуса R.4)Даны два числа.Найдите среднее арифметическое кубов этих чисел и среденее геометрическое модулей этих чисел.Два последних номера там нужно написать программу,программу присылать на листочке
Помогите, пожалуйста, очень нужно! Срочно!:( 1) Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль
составьте программу на языке паскаль.Абитуриенты сдают три экзамена если они набирают не менее 13 балов,то поступают на дневное отделение,от 10 до 12
на вечернее,от 8 до 9 на заочное,менее 8 балов отказано от приема на учебу.
Вы находитесь на странице вопроса "1 Составить программу на языке Паскаль. Написать программу, заносящую в файл массив из 7 вещественных чисел, введенных с клавиатуры, а потом считывающую", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.