Top.Mail.Ru
Ответы

Помогити с паскалем

Практические задания
1.Составить программу, проверяющую знание таблицы умножения. В ней случайным образом получают два целых числа, больших 0 и меньших 10; после чего на экран выводится вопрос о произведении этих чисел, например, в виде: "4*9=?". Вопрос выводится 10 раз; проводится подсчет и вывод на экран количества правильных и неправильных ответов.
2.Смоделировать 100 подбрасываний монеты и падений ее одной из сторон: лицевой («решка») или обратной («орел»), то есть с помощью датчика случайных чисел получить одно из целых чисел 0 или 1. Подсчитать и вывести процент выпавших «решек» и «орлов».
3.Смоделировать бросание игрального кубика (то есть с помощью датчика случайных чисел получить одно из целых чисел 1, 2, ..6) каждым из двух игроков («Игрок1» и «Игрок2»). Определить, кто из игроков выиграл.
4.Шахматную доску будем представлять в виде квадратного символьного массива размером 8 х 8. Заполнить массив таким образом, чтобы элементы массива, соответствующие черным полям, имели значение Х, а белым - О. Левое нижнее поле на шахматной доске всегда черное.
5.Составить программу нахождения корней квадратного уравнения вида ax²+bx+c=0. где D = b2 - 4ac — дискриминант. Если D > 0, то уравнение имеет два различных вещественных корня (два решения). Если D = 0, то оба корня вещественны и равны (одно решение). Если D < 0, то оба корня являются комплексными числами, вещественных корней нет (нет решения).
6.Заполнить двухмерный массив размером 7 х 7 таким образом, чтобы элементы его диагоналей равнялись 1, а остальные элементы - 0.
7.Дан двухмерный массив, заполненный случайными числами. Составить программу, которая определяет максимальное из двух чисел: суммы элементов k-й строки и суммы элементов s-го столбца массива. k и s вводятся вручную.
8.Дан одномерный массив, заполненный случайными числами. Переставить последний элемент массива на место первого. При этом остальные элементы сдвинуть вправо на 1 позицию.
9.Дано слово. Составить программу, определяющую является ли оно палиндромом (одинаково читающимся в обоих направлениях).
10.Дан двухмерный массив 7 х 7, заполненный случайными числами в диапазоне от 1 до 9. Найти строку с минимальной суммой элементов. Вывести на экран номер строки.

Дополнен

ходя бы с задачей 6

По дате
По рейтингу
Аватар пользователя
Новичок
8лет

uses crt;
var a,b,c:real;
d,x1,x2:real;
begin
clrscr;
writeln('Программа для решения квадратных уравнений!');
write('Введите коэффициент при x^2 --> ');
readln(a);
write('Введите коэффициент при x --> ');
readln(b);
write('Введите свободный член --> ');
readln(c);
d:=b*b-4*a*c;
if (d>=0) then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write('Уравнение имеет 2 корня: ');
writeln;
writeln('X1=',x1:4:2);
writeln('X2=',x2:4:2);
end
else
writeln('Уравнение корней не имеет, дискриминант меньше 0');
writeln('Конец задачи ');
readln;
end.

Аватар пользователя
Искусственный Интеллект
8лет

>ходя бы с задачей 6

var a:packed array[1..7, 1..7] of integer;
i:integer;
begin
FillChar(#0, a, SizeOf(a));
for i:=1 to 7 do a[i, i]=1;
end;

Аватар пользователя
Искусственный Интеллект
8лет

Помогаю

6.
for i:=1 to 7 do
for j:=1 to 7 do
if (i = j) or (i = 8-j) then mass[i,j]:=1 else mass[i,j]:=0;

Удаленный ответ Ответ удалён